Net-SMTPS-0.04/000755 000765 000024 00000000000 12423627525 013220 5ustar00tomostaff000000 000000 Net-SMTPS-0.04/Changes000644 000765 000024 00000000635 12423627112 014507 0ustar00tomostaff000000 000000 Revision history for Perl extension Net::SMTPS. 0.01 Thu Feb 14 23:20:47 2013 - original version; created by h2xs 1.23 with options -AXn Net::SMTPS 0.02 Thu Feb 15 01:20:07 2013 - add README 0.03 Thu Mar 25 18:00:00 2013 - fix new() for multiple call 0.04 Thu Oct 24 18:15:00 2014 - fix new() for Ticket #99743 "problem with ipv6/v4 autodetection on win32 ... (thanks, ) Net-SMTPS-0.04/lib/000755 000765 000024 00000000000 12107171277 013763 5ustar00tomostaff000000 000000 Net-SMTPS-0.04/Makefile.PL000644 000765 000024 00000001114 12423622622 015160 0ustar00tomostaff000000 000000 #use 5.012003; use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( NAME => 'Net::SMTPS', VERSION_FROM => 'lib/Net/SMTPS.pm', # finds $VERSION PREREQ_PM => { 'Net::SMTP' => 2.0, 'IO::Socket::SSL' => 1.0, 'Authen::SASL' => 2.0, }, ($] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => 'lib/Net/SMTPS.pm', # retrieve abstract from module AUTHOR => 'Tomo.M ') : ()), ); Net-SMTPS-0.04/MANIFEST000644 000765 000024 00000000121 12107210110 014314 0ustar00tomostaff000000 000000 Changes Makefile.PL MANIFEST META.json META.yml README t/smtp.t lib/Net/SMTPS.pm Net-SMTPS-0.04/META.json000644 000765 000024 00000001654 12423627344 014646 0ustar00tomostaff000000 000000 { "abstract" : "SSL/STARTTLS support for Net::SMTP", "author" : [ "Tomo.M " ], "dynamic_config" : 0, "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.120351", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "Net-SMTPS", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Authen::SASL" : "2", "IO::Socket::SSL" : "1", "Net::SMTP" : "2" } } }, "release_status" : "stable", "version" : "0.04" } Net-SMTPS-0.04/META.yml000644 000765 000024 00000001012 12423627344 014462 0ustar00tomostaff000000 000000 --- abstract: 'SSL/STARTTLS support for Net::SMTP' author: - 'Tomo.M ' build_requires: ExtUtils::MakeMaker: 0 configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 0 generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.120351' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: Net-SMTPS no_index: directory: - t - inc requires: Authen::SASL: 2 IO::Socket::SSL: 1 Net::SMTP: 2 version: 0.04 Net-SMTPS-0.04/README000644 000765 000024 00000002354 12423627525 014104 0ustar00tomostaff000000 000000 Net-SMTPS version 0.04 ====================== This module implements a wrapper for Net::SMTP, enabling over-SSL/STARTTLS support. This module inherits all the methods from Net::SMTP. You may use all the friendly options that came bundled with Net::SMTP. You can control the SSL usage with the options of new() constructor method. 'doSSL' option is the switch, and, If you would like to control detailed SSL settings, you can set SSL_* options that are brought from IO::Socket::SSL. Please see the document of IO::Socket::SSL about these options detail. Just one method difference from the Net::SMTP, you may select SMTP AUTH mechanism as the third option of auth() method. INSTALLATION To install this module type the following: perl Makefile.PL make make test make install DEPENDENCIES This module requires these other modules and libraries: Net::SMTP IO::Socket::SSL Authen::SASL COPYRIGHT AND LICENCE Put the correct copyright and licence information here. Copyright (C) 2014 by Tomo This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.12.3 or, at your option, any later version of Perl 5 you may have available. Net-SMTPS-0.04/t/000755 000765 000024 00000000000 12107205664 013456 5ustar00tomostaff000000 000000 Net-SMTPS-0.04/t/smtp.t000644 000765 000024 00000001300 12107205664 014620 0ustar00tomostaff000000 000000 # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl smtp.t' ######################### use strict; use warnings; use Test::More; use Net::Config; BEGIN { require_ok('Socket') or diag("I don't believe that the missing of Socket"); } BEGIN { use_ok('Net::SMTPS'); } ######################### SKIP: { skip "No suitable testing server given (NetConfig).", 3 unless (@{$NetConfig{smtp_hosts}} && $NetConfig{test_hosts}); my $smtp = Net::SMTPS->new(Debug => 0); ok( defined($smtp), 'create Net::SMTPS object'); ok( $smtp->domain, 'getting sever reply'); ok ( $smtp->quit, 'closing connection'); } done_testing; Net-SMTPS-0.04/lib/Net/000755 000765 000024 00000000000 12423627410 014505 5ustar00tomostaff000000 000000 Net-SMTPS-0.04/lib/Net/SMTPS.pm000644 000765 000024 00000014433 12422156331 015754 0ustar00tomostaff000000 000000 # ==== # SSL/STARTTLS extention for G.Barr's Net::SMTP. # plus, enable arbitrary SMTP auth mechanism selection. # IO::Socket::SSL (also Net::SSLeay openssl), # Authen::SASL, MIME::Base64 should be installed. # package Net::SMTPS; use vars qw ( $VERSION @ISA ); $VERSION = "0.04"; use base qw ( Net::SMTP ); use Net::Cmd; # import CMD_OK, CMD_MORE, ... use Net::Config; eval { require IO::Socket::INET6 and unshift @ISA, 'IO::Socket::INET6'; } or do { require IO::Socket::INET and unshift @ISA, 'IO::Socket::INET'; }; use strict; # Override to support SSL/TLS. sub new { my $self = shift; my $type = ref($self) || $self; my ($host, %arg); if (@_ % 2) { $host = shift; %arg = @_; } else { %arg = @_; $host = delete $arg{Host}; } my $ssl = delete $arg{doSSL}; my $hosts = defined $host ? $host : $NetConfig{smtp_hosts}; my $obj; # eliminate IO::Socket::SSL from @ISA for multiple call of new. @ISA = grep { !/IO::Socket::SSL/ } @ISA; my %_args = map { +"$_" => $arg{$_} } grep {! /^SSL/} keys %arg; my $h; $_args{PeerPort} = $_args{Port} || 'smtp(25)'; $_args{Proto} = 'tcp'; $_args{Timeout} = defined $_args{Timeout} ? $_args{Timeout} : 120; foreach $h (@{ref($hosts) ? $hosts : [$hosts]}) { $_args{PeerAddr} = ($host = $h); #if ($_args{Debug}) { # foreach my $i (keys %_args) { # print STDERR "$type>>> arg $i: $_args{$i}\n"; # } #} $obj = $type->SUPER::new( %_args ) and last; } return undef unless defined $obj; $obj->autoflush(1); $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef); # common in SSL my %ssl_args; if ($ssl) { eval { require IO::Socket::SSL; } or do { $obj->set_status(500, ["Need working IO::Socket::SSL"]); $obj->close; return undef; }; %ssl_args = map { +"$_" => $arg{$_} } grep {/^SSL/} keys %arg; $IO::Socket::SSL::DEBUG = (exists $arg{Debug} ? $arg{Debug} : undef); } # OverSSL if (defined($ssl) && $ssl =~ /ssl/i) { $obj->ssl_start(\%ssl_args) or do { $obj->set_status(500, ["Cannot start SSL"]); $obj->close; return undef; }; } unless ($obj->response() == CMD_OK) { $obj->close(); return undef; } ${*$obj}{'net_smtp_exact_addr'} = $arg{ExactAddresses}; ${*$obj}{'net_smtp_host'} = $host; (${*$obj}{'net_smtp_banner'}) = $obj->message; (${*$obj}{'net_smtp_domain'}) = $obj->message =~ /\A\s*(\S+)/; unless ($obj->hello($arg{Hello} || "")) { $obj->close(); return undef; } # STARTTLS if (defined($ssl) && $ssl =~ /starttls/i && $obj->supports('STARTTLS') ) { (($obj->command('STARTTLS')->response() == CMD_OK) and $obj->ssl_start(\%ssl_args) and $obj->hello($arg{Hello} || "")) or do { $obj->set_status(500, ["Cannot start SSL session"]); $obj->close(); return undef; }; } $obj; } sub ssl_start { my ($self, $args) = @_; my $type = ref($self); (unshift @ISA, 'IO::Socket::SSL' and IO::Socket::SSL->start_SSL($self, %$args) and $self->isa('IO::Socket::SSL') and bless $self, $type # re-bless 'cause IO::Socket::SSL blesses himself. ) or return undef; } # Override to specify a certain auth mechanism. sub auth { my ($self, $username, $password, $mech) = @_; eval { require MIME::Base64; require Authen::SASL; } or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo auth"]), return 0; my $mechanisms = $self->supports('AUTH', 500, ["Command unknown: 'AUTH'"]); if ($mech) { $mechanisms = $mech; } return unless $mechanisms; my $sasl; if (ref($username) and UNIVERSAL::isa($username, 'Authen::SASL')) { $sasl = $username; $sasl->mechanism($mechanisms); } else { die "auth(username, password)" if not length $username; $sasl = Authen::SASL->new( mechanism => $mechanisms, callback => { user => $username, pass => $password, authname => $username, } ); } # We should probably allow the user to pass the host, but I don't # currently know and SASL mechanisms that are used by smtp that need it my $client = $sasl->client_new('smtp', ${*$self}{'net_smtp_host'}, 0); my $str = $client->client_start; # We dont support sasl mechanisms that encrypt the socket traffic. # todo that we would really need to change the ISA hierarchy # so we dont inherit from IO::Socket, but instead hold it in an attribute my @cmd = ("AUTH", $client->mechanism); my $code; push @cmd, MIME::Base64::encode_base64($str, '') if defined $str and length $str; while (($code = $self->command(@cmd)->response()) == CMD_MORE) { @cmd = ( MIME::Base64::encode_base64( $client->client_step(MIME::Base64::decode_base64(($self->message)[0])), '' ) ); } $code == CMD_OK; } 1; __END__ =head1 NAME Net::SMTPS - SSL/STARTTLS support for Net::SMTP =head1 SYNOPSYS use Net::SMTPS; my $ssl = 'starttls'; # 'ssl' / 'starttls' / undef my $smtp = Net::SMTPS->new("smtp.example.com", Port => 587, doSSL => $ssl); =head1 DESCRIPTION This module implements a wrapper for Net::SMTP, enabling over-SSL/STARTTLS support. This module inherits all the methods from Net::SMTP. You may use all the friendly options that came bundled with Net::SMTP. You can control the SSL usage with the options of new() constructor method. 'doSSL' option is the switch, and, If you would like to control detailed SSL settings, you can set SSL_* options that are brought from IO::Socket::SSL. Please see the document of IO::Socket::SSL about these options detail. Just one method difference from the Net::SMTP, you may select SMTP AUTH mechanism as the third option of auth() method. =head1 METHODS Most of all methods of Net::SMTP are inherited as is, except auth(). =over 4 =item auth ( USERNAME, PASSWORD [, AUTHMETHOD]) Attempt SASL authentication through Authen::SASL module. AUTHMETHOD is your required method of authentication, like 'CRAM-MD5', 'LOGIN', ... etc. the default is 'CRAM-MD5'. =back =head1 SEE ALSO L, L, L =head1 AUTHOR Tomo.M =head1 COPYRIGHT Copyright (c) 2013 Tomo.M All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut