74 lines
1.6 KiB
Perl
74 lines
1.6 KiB
Perl
package Net::SMTP::SSL;
|
|
use strict;
|
|
|
|
our $VERSION = '1.04';
|
|
|
|
use IO::Socket::SSL;
|
|
use Net::SMTP;
|
|
|
|
our @ISA = ( 'IO::Socket::SSL',
|
|
grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );
|
|
|
|
sub isa {
|
|
my $self = shift;
|
|
return 1 if $_[0] eq 'Net::SMTP';
|
|
return $self->SUPER::isa(@_);
|
|
}
|
|
|
|
no strict 'refs';
|
|
foreach ( keys %Net::SMTP:: ) {
|
|
next unless (ref(\$Net::SMTP::{$_}) eq "GLOB" && defined(*{$Net::SMTP::{$_}}{CODE}))
|
|
|| ref(\$Net::SMTP::{$_}) eq "REF";
|
|
*{$_} = \&{"Net::SMTP::$_"};
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Net::SMTP::SSL - SSL support for Net::SMTP
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Net::SMTP::SSL;
|
|
|
|
my $smtps = Net::SMTP::SSL->new("example.com", Port => 465);
|
|
|
|
=head1 DEPRECATED
|
|
|
|
B<Hey! Read this!>
|
|
|
|
Since Net::SMTP v1.28 (2014-10-08), Net::SMTP itself has support for SMTP over
|
|
SSL, and also for STARTTLS. Use Net::SMTP, not Net::SMTP::SSL.
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Implements the same API as L<Net::SMTP|Net::SMTP>, but uses
|
|
L<IO::Socket::SSL|IO::Socket::SSL> for its network operations. Due to
|
|
the nature of C<Net::SMTP>'s C<new> method, it is not overridden to make
|
|
use of a default port for the SMTPS service. Perhaps future versions
|
|
will be smart like that. Port C<465> is usually what you want, and it's
|
|
not a pain to specify that.
|
|
|
|
For interface documentation, please see L<Net::SMTP|Net::SMTP>.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Net::SMTP>,
|
|
L<IO::Socket::SSL>,
|
|
L<perl>.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Casey West, <F<casey@geeknest.com>>.
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
Copyright (c) 2004 Casey West. All rights reserved.
|
|
This module is free software; you can redistribute it and/or modify it
|
|
under the same terms as Perl itself.
|
|
|
|
=cut
|