diff options
Diffstat (limited to 'fml/lib/Mail/Delivery/Net')
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/.cvsignore | 1 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/INET4.pm | 112 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/INET6.pm | 209 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/Makefile | 6 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/index.ja.html | 31 |
5 files changed, 359 insertions, 0 deletions
diff --git a/fml/lib/Mail/Delivery/Net/.cvsignore b/fml/lib/Mail/Delivery/Net/.cvsignore new file mode 100644 index 00000000..b643ba41 --- /dev/null +++ b/fml/lib/Mail/Delivery/Net/.cvsignore @@ -0,0 +1 @@ +@@doc diff --git a/fml/lib/Mail/Delivery/Net/INET4.pm b/fml/lib/Mail/Delivery/Net/INET4.pm new file mode 100644 index 00000000..f9005ff8 --- /dev/null +++ b/fml/lib/Mail/Delivery/Net/INET4.pm @@ -0,0 +1,112 @@ +#-*- perl -*- +# +# Copyright (C) 2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $Id$ +# $FML$ +# + +package Mail::Delivery::Net::INET4; +use strict; +use vars qw(@ISA @EXPORT @EXPORT_OK); +use Carp; +use Mail::Delivery::Utils; + +require Exporter; + +@ISA = qw(Exporter); +@EXPORT = qw(connect4); + +sub connect4 +{ + my ($self, $args) = @_; + my $mta = $args->{ _mta }; + my $socket = ''; + + # avoid croak() in IO::Socket module; + eval { + local($SIG{ALRM}) = sub { Log("Error: timeout to connect $mta");}; + use IO::Socket; + $socket = new IO::Socket::INET($mta); + }; + if ($@) { + Log("Error: cannot make socket for $mta"); + $self->error_set("Error: cannot make socket: $@"); + return undef; + } + + if (defined $socket) { + Log("(debug) o.k. connected to $mta"); + $self->{'_socket'} = $socket; + $socket->autoflush(1); + return $socket; + } + else { + Log("(debug) error. fail to connect $mta"); + $self->error_set("Error: cannot open socket: $!"); + return undef; + } +} + + +=head1 NAME + +Mail::Delivery::Net::INET4 - establish tcp connection over IPv4 + +=head1 SYNOPSIS + + use Mail::Delivery::Net::INET4; + + $mta = '127.0.0.1:25'; + $self->connect4( { _mta => $mta }); + +=head1 DESCRIPTION + +This module tries to create a socket and establish tcp connection over +IPv4. This is a typical socket program. + +=head1 METHODS + +=item C<connect4()> + +try L<connect(2)>. +If it succeeds, returned +$self->{ _socket } has true value. +If not, +$self->{ _socket } is undef. + +Avaialble arguments follows: + + connect4( { _mta => $mta }); + +$mta is a hostname or [raw_ipv4_addr]:port form, for example, +127.0.0.1:25. + +=head1 SEE ALSO + +L<Mail::Delivery::SMTP>, +L<Socket>, +L<IO::Socket>, +L<Mail::Delivery::Utils> + +=head1 AUTHOR + +Ken'ichi Fukamachi + +=head1 COPYRIGHT + +Copyright (C) 2001 Ken'ichi Fukamachi + +All rights reserved. This program is free software; you can +redistribute it and/or modify it under the same terms as Perl itself. + +=head1 HISTORY + +Mail::Delivery::Net::INET4 appeared in fml5 mailing list driver package. +See C<http://www.fml.org/> for more details. + +=cut + +1; diff --git a/fml/lib/Mail/Delivery/Net/INET6.pm b/fml/lib/Mail/Delivery/Net/INET6.pm new file mode 100644 index 00000000..eb6f4bdc --- /dev/null +++ b/fml/lib/Mail/Delivery/Net/INET6.pm @@ -0,0 +1,209 @@ +#-*- perl -*- +# +# Copyright (C) 2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $Id$ +# $FML$ +# + +package Mail::Delivery::Net::INET6; +use strict; +use vars qw(@ISA @EXPORT @EXPORT_OK); +use Carp; +use Mail::Delivery::Utils; + +require Exporter; + +@ISA = qw(Exporter); +@EXPORT = qw(is_ipv6_ready is_ipv6_mta_syntax connect6); + +sub _we_can_use_Socket6 +{ + my ($self, $args) = @_; + + eval q{ + use Socket; + use Socket6; + }; + + if ($@ =~ /Can\'t locate Socket6.pm/) { + $self->{_ipv6_ready} = 'no'; + } + else { + Log("IPv6 ready"); + $self->{_ipv6_ready} = 'yes'; + } +} + + +sub is_ipv6_ready +{ + my ($self, $args) = @_; + + # probe the IPv6 availability for the first time + unless ($self->{_ipv6_ready}) { + _we_can_use_Socket6($self, $args); + }; + + $self->{_ipv6_ready} eq 'yes' ? 1 : 0; +} + + +sub is_ipv6_mta_syntax +{ + my ($self, $host) = @_; + my ($x_host, $x_port); + + # check the mta syntax whether it is ipv6 form or not. + if ( $host =~ /\[([\d:]+)\]:(\d+)/) { + ($x_host, $x_port) = ($1, $2); + return ($x_host, $x_port); + } + else { + return wantarray ? () : undef; + } +} + + +sub connect6 +{ + my ($self, $args) = @_; + my $mta = $args->{ _mta }; + + # check the mta syntax is $ipv6_addr:$port or not. + my ($host, $port) = $self->is_ipv6_mta_syntax( $args->{ _mta } ); + + # if mta is ipv6 raw address syntax, + # try to parse $mta to $host:$port style. + unless ($host) { + if ($mta =~ /(\S+):(\S+)/) { + ($host, $port) = ($1, $2); + } + } + + # hmm, invalid MTA + unless ($host && $port) { + Log("connect6: cannot find mta=$mta"); + $self->{_socket} = undef; + return undef; + } + + $self->{_socket} = undef; + return undef; + + eval q{ + use IO::Handle; + use Socket; + use Socket6; + + my ($family, $type, $proto, $saddr, $canonname); + my $fh = new IO::Socket; + my $inet6_family = &AF_INET6; + + # resolve socket info by getaddrinfo() + my @res = getaddrinfo($host, $port, AF_UNSPEC, SOCK_STREAM); + $family = -1; + + LOOP: + while (scalar(@res) >= 5) { + ($family, $type, $proto, $saddr, $canonname, @res) = @res; + + my ($host, $port) = + getnameinfo($saddr, NI_NUMERICHOST | NI_NUMERICSERV); + + # check only IPv6 case here. + next LOOP if $family != $inet6_family; + + socket($fh, $family, $type, $proto) || do { + Log("Error: cannot create IPv6 socket"); + next LOOP; + }; + if (connect($fh, $saddr)) { + Log("(debug6) o.k. connect $host"); + last LOOP; + } + else { + Log("Error: cannot connect via IPv6"); + } + + $family = -1; + } + + if ($family != -1) { + $self->{_socket} = $fh; + Log("connected to $host:$port by IPv6"); + } else { + $self->{_socket} = undef; + Log("(debug6) fail to connect $host:$port by IPv6"); + } + }; +} + + +=head1 NAME + +Mail::Delivery::Net::INET6 - establish tcp connection over IPv6 + +=head1 SYNOPSIS + + if ($self->is_ipv6_ready($args)) { + $self->connect6($args); + } + +=head1 DESCRIPTION + +This module tries to create a socket and establish a tcp connection +over IPv6. It is used within C<Mail::Delivery::SMTP> module. + +=head1 METHODS + +=item C<is_ipv6_ready()> + +It checks whether your environment has Socket6.pm or not? +If Socket6 module exists, we assume your operating system is IPv6 ready! + +=item C<connect6()> + +try L<connect(2)>. +If it succeeds, returned +$self->{ _socket } has true value. +If not, +$self->{ _socket } is undef. + +Avaialble arguments follows: + + connect6( { _mta => $mta }); + +$mta is a hostname or [raw_ipv6_addr]:port form, for example, +[::1]:25. + +=head1 SEE ALSO + +L<Mail::Delivery::SMTP>, +L<Socket6>, +L<Socket>, +L<IO::Handle>, +L<IO::Socket>, +L<Mail::Delivery::Utils> + +=head1 AUTHOR + +Ken'ichi Fukamachi + +=head1 COPYRIGHT + +Copyright (C) 2001 Ken'ichi Fukamachi + +All rights reserved. This program is free software; you can +redistribute it and/or modify it under the same terms as Perl itself. + +=head1 HISTORY + +Mail::Delivery::Net::INET6 appeared in fml5 mailing list driver package. +See C<http://www.fml.org/> for more details. + +=cut + +1; diff --git a/fml/lib/Mail/Delivery/Net/Makefile b/fml/lib/Mail/Delivery/Net/Makefile new file mode 100644 index 00000000..795737fa --- /dev/null +++ b/fml/lib/Mail/Delivery/Net/Makefile @@ -0,0 +1,6 @@ +all: html + +html: index.ja.html + +index.ja.html: *pm + ../../../../doc/bin/dir2url.pl > index.ja.html diff --git a/fml/lib/Mail/Delivery/Net/index.ja.html b/fml/lib/Mail/Delivery/Net/index.ja.html new file mode 100644 index 00000000..1bdd7b0b --- /dev/null +++ b/fml/lib/Mail/Delivery/Net/index.ja.html @@ -0,0 +1,31 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> +<HTML> +<HEAD> +<TITLE> +Mail::Delivery/Net::* classes +</TITLE> +<META http-equiv="Content-Type" + content="text/html; charset=EUC-JP"> +</HEAD> + +<BODY BGCOLOR="#E6E6FA"> +<CENTER><EM>Mail::Delivery::Net class modules</EM></CENTER> +<HR> +<TABLE> +<TR> +<TD> + INET4.pm <TD> +<A HREF="INET4.pm">[source]</A> +<TD> +<A HREF="@@doc/INET4.txt">[manual]</A> +<TD> +<TR> +<TD> + INET6.pm <TD> +<A HREF="INET6.pm">[source]</A> +<TD> +<A HREF="@@doc/INET6.txt">[manual]</A> +<TD> +</TABLE> +</BODY> +</HTML> |