diff options
| author | fukachan <fukachan> | 2002-01-13 07:09:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-01-13 07:09:05 +0000 |
| commit | f7d4ea82b3a0dbf72da983a7d680681fccfe7159 (patch) | |
| tree | af5953f222ae7340e88c604595133ce9f8eeac49 /fml/lib/Mail | |
| parent | c02692cd7d1d7b4ec28991d5cfde216526aeb9f3 (diff) | |
| download | fml8-f7d4ea82b3a0dbf72da983a7d680681fccfe7159.tar.gz fml8-f7d4ea82b3a0dbf72da983a7d680681fccfe7159.tar.bz2 fml8-f7d4ea82b3a0dbf72da983a7d680681fccfe7159.zip | |
update comments, copyright. FNF-ify.
Diffstat (limited to 'fml/lib/Mail')
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/INET4.pm | 11 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/INET6.pm | 24 |
2 files changed, 29 insertions, 6 deletions
diff --git a/fml/lib/Mail/Delivery/Net/INET4.pm b/fml/lib/Mail/Delivery/Net/INET4.pm index 7c2f96c4..6cb4809e 100644 --- a/fml/lib/Mail/Delivery/Net/INET4.pm +++ b/fml/lib/Mail/Delivery/Net/INET4.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 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. # -# $FML: INET4.pm,v 1.2 2001/06/17 08:57:12 fukachan Exp $ +# $FML: INET4.pm,v 1.3 2001/12/22 09:21:17 fukachan Exp $ # package Mail::Delivery::Net::INET4; @@ -18,6 +18,11 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(connect4); + +# Descriptions: try connect(2) by IPv4 +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: create ipv4 smtp connection +# Return Value: HANDLE sub connect4 { my ($self, $args) = @_; @@ -96,7 +101,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001 Ken'ichi Fukamachi +Copyright (C) 2001,2002 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. diff --git a/fml/lib/Mail/Delivery/Net/INET6.pm b/fml/lib/Mail/Delivery/Net/INET6.pm index c72121de..ad15d0b1 100644 --- a/fml/lib/Mail/Delivery/Net/INET6.pm +++ b/fml/lib/Mail/Delivery/Net/INET6.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 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. # -# $FML: INET6.pm,v 1.6 2001/10/10 09:46:22 fukachan Exp $ +# $FML: INET6.pm,v 1.7 2001/12/22 09:21:17 fukachan Exp $ # package Mail::Delivery::Net::INET6; @@ -18,6 +18,11 @@ require Exporter; @ISA = qw(Exporter); @EXPORT = qw(is_ipv6_ready is_ipv6_mta_syntax connect6); + +# Descriptions: we have Socket6.pm or not ? +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: none +# Return Value: none sub _we_can_use_Socket6 { my ($self, $args) = @_; @@ -37,6 +42,10 @@ sub _we_can_use_Socket6 } +# Descriptions: This host supports IPv6 ? +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: none +# Return Value: 1 or 0 sub is_ipv6_ready { my ($self, $args) = @_; @@ -50,6 +59,11 @@ sub is_ipv6_ready } +# Descriptions: $host is IPv6 syntax ? +# return (host, port) if IPv6 native format +# Arguments: OBJ($self) STR($host) +# Side Effects: none +# Return Value: ARRAY(host, port) sub is_ipv6_mta_syntax { my ($self, $host) = @_; @@ -66,6 +80,10 @@ sub is_ipv6_mta_syntax } +# Descriptions: try connect(2) by IPv6. +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: create IPv6 smtp connection +# Return Value: none sub connect6 { my ($self, $args) = @_; @@ -207,7 +225,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001 Ken'ichi Fukamachi +Copyright (C) 2001,2002 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. |