Главная   Изменения   Спек   Патчи   Исходники   Загрузить   Gear   Bugs and FR  Repocop 

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 <casey@geeknest.com>',
               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, <casey@geeknest.com>.

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<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
Net-SMTP-SSL-1.01/t/000075500000000000000000000000001076561015500136505ustar00rootroot00000000000000Net-SMTP-SSL-1.01/t/test.t000064400000000000000000000000641076561015500150140ustar00rootroot00000000000000use Test::More tests => 1;
use_ok 'Net::SMTP::SSL';