Net-SMTP-SSL-1.01/000075500000000000000000000000001076561015500134055ustar00rootroot00000000000000Net-SMTP-SSL-1.01/Changes000064400000000000000000000000521076561015500146750ustar00rootroot000000000000001.01 2004-07-19 - Initial Revision. Net-SMTP-SSL-1.01/MANIFEST000064400000000000000000000001371076561015500145370ustar00rootroot00000000000000Changes lib/Net/SMTP/SSL.pm Makefile.PL MANIFEST This list of files META.yml README t/test.t Net-SMTP-SSL-1.01/META.yml000064400000000000000000000006441076561015500146620ustar00rootroot00000000000000# 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/Makefile.PL000064400000000000000000000010301076561015500153510ustar00rootroot00000000000000use 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/README000064400000000000000000000015431076561015500142700ustar00rootroot00000000000000NAME 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/lib/000075500000000000000000000000001076561015500141535ustar00rootroot00000000000000Net-SMTP-SSL-1.01/lib/Net/000075500000000000000000000000001076561015500147015ustar00rootroot00000000000000Net-SMTP-SSL-1.01/lib/Net/SMTP/000075500000000000000000000000001076561015500154645ustar00rootroot00000000000000Net-SMTP-SSL-1.01/lib/Net/SMTP/SSL.pm000064400000000000000000000025561076561015500164730ustar00rootroot00000000000000package 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/t/000075500000000000000000000000001076561015500136505ustar00rootroot00000000000000Net-SMTP-SSL-1.01/t/test.t000064400000000000000000000000641076561015500150140ustar00rootroot00000000000000use Test::More tests => 1; use_ok 'Net::SMTP::SSL';