Net-SMTP-SSL-1.01/0040755000076500000000000000000010077107554012416 5ustar cwestwheelNet-SMTP-SSL-1.01/Changes0100644000076500000000000000005210077107037013677 0ustar cwestwheel1.01 2004-07-19 - Initial Revision. Net-SMTP-SSL-1.01/lib/0040755000076500000000000000000010077107554013164 5ustar cwestwheelNet-SMTP-SSL-1.01/lib/Net/0040755000076500000000000000000010077107554013712 5ustar cwestwheelNet-SMTP-SSL-1.01/lib/Net/SMTP/0040755000076500000000000000000010077107554014475 5ustar cwestwheelNet-SMTP-SSL-1.01/lib/Net/SMTP/SSL.pm0100644000076500000000000000255610077107752015501 0ustar cwestwheelpackage Net::SMTP::SSL; # $Id: SSL.pm,v 1.1 2004/07/20 03:22:18 cwest Exp $ use strict; use vars qw[$VERSION @ISA]; $VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1]; use IO::Socket::SSL; use Net::SMTP; @ISA = ( 'IO::Socket::SSL', grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA ); no strict 'refs'; foreach ( keys %Net::SMTP:: ) { next unless defined *{$Net::SMTP::{$_}}{CODE}; *{$_} = \&{"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 DESCRIPTION Implements the same API as L, but uses L for its network operations. Due to the nature of C's C 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. =head1 SEE ALSO L, L, L. =head1 AUTHOR Casey West, >. =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 Net-SMTP-SSL-1.01/Makefile.PL0100644000076500000000000000103010077106710014350 0ustar cwestwheeluse ExtUtils::MakeMaker; WriteMakefile ( AUTHOR => 'Casey West ', ABSTRACT => "SSL support for Net::SMTP", NAME => 'Net::SMTP::SSL', PREREQ_PM => { 'Test::More' => '0.47', 'Net::SMTP' => '', 'IO::Socket::SSL' => '', }, VERSION_FROM => 'lib/Net/SMTP/SSL.pm', ); Net-SMTP-SSL-1.01/MANIFEST0100644000076500000000000000013710077107145013541 0ustar cwestwheelChanges lib/Net/SMTP/SSL.pm Makefile.PL MANIFEST This list of files META.yml README t/test.t Net-SMTP-SSL-1.01/META.yml0100644000076500000000000000064410077107554013670 0ustar cwestwheel# http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Net-SMTP-SSL version: 1.01 version_from: lib/Net/SMTP/SSL.pm installdirs: site requires: IO::Socket::SSL: Net::SMTP: Test::More: 0.47 distribution_type: module generated_by: ExtUtils::MakeMaker version 6.17 Net-SMTP-SSL-1.01/README0100644000076500000000000000154310077107022013264 0ustar cwestwheelNAME Net::SMTP::SSL - SSL support for Net::SMTP SYNOPSIS use Net::SMTP::SSL; my $smtps = Net::SMTP::SSL->new("example.com", Port => 465); DESCRIPTION Implements the same API as Net::SMTP, but uses IO::Socket::SSL for its network operations. Due to the nature of "Net::SMTP"'s "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 465 is usually what you want, and it's not a pain to specify that. For interface documentation, please see Net::SMTP. SEE ALSO Net::SMTP, IO::Socket::SSL, perl. AUTHOR Casey West, . 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. Net-SMTP-SSL-1.01/t/0040755000076500000000000000000010077107554012661 5ustar cwestwheelNet-SMTP-SSL-1.01/t/test.t0100644000076500000000000000006410077107115014013 0ustar cwestwheeluse Test::More tests => 1; use_ok 'Net::SMTP::SSL';