Perlについての質問箱 21箱目
■ このスレッドは過去ログ倉庫に格納されています
0185デフォルトの名無しさん
2005/12/21(水) 12:28:54表示するスクリプトを作成しています。
Crypt::SSLeayはほぼLWPでのHTTPSアクセス専用みたいだったので、
Net::SSLeayを使えば出来そうだと考え、試しに、
use Net::SSLeay;
($reply, $err, $server_cert) = Net::SSLeay::sslcat('ほげほげ.jp', 443, '/');
print Net::SSLeay::X509_NAME_oneline(Net::SSLeay::X509_get_subject_name($server_cert)) . "\n";
などとしたところ、証明書のサブジェクトが表示されました。
同様に有効期限も取得できると思い、
print Net::SSLeay::X509_get_notBefore($server_cert) . "\n";
print Net::SSLeay::X509_get_notAfter($server_cert) . "\n";
などとしましたが、なんだか良く分からない数字が出てきます。
(アクセスするごとに違う(増えたり減ったりする)ので、これは時刻ではなさそうです。)
opensslのソースを見てみましたが、私はCが分からないため、
意味不明です。
具体的にどのようにすれば有効期限を取得できますか?
■ このスレッドは過去ログ倉庫に格納されています