diff options
| author | Graham Barr <gbarr@pobox.com> | 2003-05-20 10:57:22 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2003-05-20 10:57:22 +0000 |
| commit | 1a1f5417e3dc1dbad9515a85cabefb464ed6dcc4 (patch) | |
| tree | c1d5b5adec94df6192dc216a4bf7d00414667bc4 | |
| parent | 31b6a7d89c51d48b95f1c0a772d5cd6fc9655fcb (diff) | |
| download | perl-libnet-1a1f5417e3dc1dbad9515a85cabefb464ed6dcc4.tar.gz | |
Net::SMTP
- Fixes to the DSN parameter to mail() (patch from Rafael Garcia-Suarez)
| -rw-r--r-- | Net/SMTP.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Net/SMTP.pm b/Net/SMTP.pm index 960f537..b5efb95 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.26"; # $Id: //depot/libnet/Net/SMTP.pm#27 $ +$VERSION = "2.26"; # $Id: //depot/libnet/Net/SMTP.pm#28 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -230,7 +230,7 @@ sub mail { if(exists $esmtp->{DSN}) { - $opts .= " RET=" . uc $v + $opts .= " RET=" . ((uc($v) eq "FULL") ? "FULL" : "HDRS"); } else { @@ -589,11 +589,13 @@ The C<mail> method can some additional ESMTP OPTIONS which is passed in hash like fashion, using key and value pairs. Possible options are: Size => <bytes> - Return => <???> + Return => "FULL" | "HDRS" Bits => "7" | "8" Transaction => <ADDRESS> Envelope => <ENVID> +The C<Return> and C<Envelope> parameters are used for DSN (Delivery +Status Notification). =item reset () @@ -694,6 +696,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/SMTP.pm#27 $> +I<$Id: //depot/libnet/Net/SMTP.pm#28 $> =cut |