NAME
Net::SSL::ExpireDate - obtain expiration date of certificate
SYNOPSIS
use Net::SSL::ExpireDate;
$ed = Net::SSL::ExpireDate->new( https => 'example.com' );
$ed = Net::SSL::ExpireDate->new( https => 'example.com:10443' );
$ed = Net::SSL::ExpireDate->new( ssl => 'example.com:465' ); # smtps
$ed = Net::SSL::ExpireDate->new( ssl => 'example.com:995' ); # pop3s
$ed = Net::SSL::ExpireDate->new( file => '/etc/ssl/cert.pem' );
$expire_date = $ed->expire_date; # return DateTime instance
$expired = $ed->is_expired; # examine already expired
$expired = $ed->is_expired('2 months'); # will expire after 2 months
$expired = $ed->is_expired(DateTime::Duration->new(months=>2)); # ditto
DESCRIPTION
Net::SSL::ExpireDate get certificate from network (SSL) or local file and obtain its expiration date.
METHODS
new
$ed = Net::SSL::ExpireDate->new( %option )
This method constructs a new "Net::SSL::ExpireDate" instance and returns it. %option is to specify certificate.
KEY VALUE
----------------------------
ssl "hostname[:port]"
https (same as above ssl)
file "path/to/certificate"
expire_date
$expire_date = $ed->expire_date;
Return expiration date by "DateTime" instance.
begin_date
$begin_date = $ed->begin_date;
Return beginning date by "DateTime" instance.
not_after
Synonym for expire_date.
not_before
Synonym for begin_date.
is_expired
$expired = $ed->is_expired;
Obtain already expired or not.
You can specify interval to obtain will expire on the future time. Acceptable intervals are human readable string (parsed by "Time::Duration::Parse") and "DateTime::Duration" instance.
# will expire after 2 months
$expired = $ed->is_expired('2 months');
$expired = $ed->is_expired(DateTime::Duration->new(months=>2));
type
return type of examinee certificate. "ssl" or "file".
target
return hostname or path of examinee certificate.
BUGS AND LIMITATIONS
No bugs have been reported.
Please report any bugs or feature requests to bug-net-ssl-expiredate@rt.cpan.org
, or through the web interface at http://rt.cpan.org.
AUTHOR
HIROSE Masaaki <hirose31@gmail.com>
LICENCE AND COPYRIGHT
Copyright (c) 2006, HIROSE Masaaki <hirose31@gmail.com>
. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.