diff options
author | Graham Barr <gbarr@pobox.com> | 2004-03-22 14:53:21 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 08:51:37 -0600 |
commit | adc88c9017b7ecf8e7273cc6b3d0e6b5d34a00da (patch) | |
tree | 8f9937fd322c7596b7a3383aec51112d02341857 | |
parent | 0b6944c6957dc22d803493448f3fc7cc0ce78ae0 (diff) | |
download | perl-libnet-adc88c9017b7ecf8e7273cc6b3d0e6b5d34a00da.tar.gz |
"Add support for XVERP"
-rw-r--r-- | Net/SMTP.pm | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/Net/SMTP.pm b/Net/SMTP.pm index 959ec98..e7276de 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -1,6 +1,6 @@ # Net::SMTP.pm # -# Copyright (c) 1995-1997 Graham Barr <gbarr@pobox.com>. All rights reserved. +# Copyright (c) 1995-2004 Graham Barr <gbarr@pobox.com>. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.27"; # $Id: //depot/libnet/Net/SMTP.pm#32 $ +$VERSION = "2.28"; @ISA = qw(Net::Cmd IO::Socket::INET); @@ -310,6 +310,18 @@ sub mail } } + if(defined($v = delete $opt{XVERP})) + { + if(exists $esmtp->{'XVERP'}) + { + $opts .= " XVERP" + } + else + { + carp 'Net::SMTP::mail: XVERP option not supported by host'; + } + } + carp 'Net::SMTP::recipient: unknown option(s) ' . join(" ", keys %opt) . ' - ignored' @@ -695,6 +707,7 @@ in hash like fashion, using key and value pairs. Possible options are: Bits => "7" | "8" | "binary" Transaction => <ADDRESS> Envelope => <ENVID> + XVERP => 1 The C<Return> and C<Envelope> parameters are used for DSN (Delivery Status Notification). @@ -831,12 +844,8 @@ Graham Barr <gbarr@pobox.com> =head1 COPYRIGHT -Copyright (c) 1995-1997 Graham Barr. All rights reserved. +Copyright (c) 1995-2004 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. -=for html <hr> - -I<$Id: //depot/libnet/Net/SMTP.pm#32 $> - =cut |