milkbone57
22 years ago
2 changed files with 771 additions and 37 deletions
@ -1,37 +0,0 @@
@@ -1,37 +0,0 @@
|
||||
use Milkbone; |
||||
use Net::SMTP; |
||||
|
||||
use strict; |
||||
use warnings; |
||||
|
||||
sub sendmail |
||||
{ |
||||
print "sending message";; |
||||
my ($sub, $text, $user) = @_; |
||||
$user =~ s/ /_/g; |
||||
my $smtp = Net::SMTP->new('smtpauth.earthlink.net', |
||||
Hello => 'milkbone.org', Debug => 1); |
||||
|
||||
$smtp->auth('batkins86@earthlink.net', 'superfly'); |
||||
$smtp->mail("$user\@milkbone.org"); |
||||
$smtp->to('savannah@batkins.com'); |
||||
|
||||
$text =~ s/<.*?>//g; |
||||
|
||||
$smtp->data(); |
||||
$smtp->datasend("To: \n"); |
||||
$smtp->datasend("From: Milkbone Monitor <$user\@milkbone.org>\n"); |
||||
$smtp->datasend("Subject: $user - $sub \n"); |
||||
$smtp->datasend("\n"); |
||||
$smtp->datasend("$user - $text"); |
||||
$smtp->dataend(); |
||||
|
||||
$smtp->quit; |
||||
} |
||||
|
||||
register_hook("msg_in", sub { |
||||
return unless hook("protocol_away_status"); |
||||
sendmail('Message Received', "Received the following message from $ARGS{-user}:\n\n$ARGS{-msg}", $ARGS{-user}); |
||||
}); |
||||
|
||||
1; |
||||
@ -0,0 +1,771 @@
@@ -0,0 +1,771 @@
|
||||
# Net::SMTP.pm |
||||
# |
||||
# Copyright (c) 1995-1997 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. |
||||
|
||||
package Net::SMTP; |
||||
|
||||
require 5.001; |
||||
|
||||
use strict; |
||||
use vars qw($VERSION @ISA); |
||||
use Socket 1.3; |
||||
use Carp; |
||||
use IO::Socket; |
||||
use Net::Cmd; |
||||
use Net::Config; |
||||
|
||||
$VERSION = "2.26"; # $Id$ |
||||
|
||||
@ISA = qw(Net::Cmd IO::Socket::INET); |
||||
|
||||
sub new |
||||
{ |
||||
my $self = shift; |
||||
my $type = ref($self) || $self; |
||||
my $host = shift if @_ % 2; |
||||
my %arg = @_; |
||||
my $hosts = defined $host ? $host : $NetConfig{smtp_hosts}; |
||||
my $obj; |
||||
|
||||
my $h; |
||||
foreach $h (@{ref($hosts) ? $hosts : [ $hosts ]}) |
||||
{ |
||||
$obj = $type->SUPER::new(PeerAddr => ($host = $h), |
||||
PeerPort => $arg{Port} || 'smtp(25)', |
||||
LocalAddr => $arg{LocalAddr}, |
||||
LocalPort => $arg{LocalPort}, |
||||
Proto => 'tcp', |
||||
Timeout => defined $arg{Timeout} |
||||
? $arg{Timeout} |
||||
: 120 |
||||
) and last; |
||||
} |
||||
|
||||
return undef |
||||
unless defined $obj; |
||||
|
||||
$obj->autoflush(1); |
||||
|
||||
$obj->debug(exists $arg{Debug} ? $arg{Debug} : 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; |
||||
} |
||||
|
||||
$obj; |
||||
} |
||||
|
||||
## |
||||
## User interface methods |
||||
## |
||||
|
||||
sub banner |
||||
{ |
||||
my $me = shift; |
||||
|
||||
return ${*$me}{'net_smtp_banner'} || undef; |
||||
} |
||||
|
||||
sub domain |
||||
{ |
||||
my $me = shift; |
||||
|
||||
return ${*$me}{'net_smtp_domain'} || undef; |
||||
} |
||||
|
||||
sub etrn { |
||||
my $self = shift; |
||||
defined($self->supports('ETRN',500,["Command unknown: 'ETRN'"])) && |
||||
$self->_ETRN(@_); |
||||
} |
||||
|
||||
sub auth { |
||||
|
||||
require MIME::Base64; |
||||
require Authen::SASL; |
||||
|
||||
my ($self, $username, $password) = @_; |
||||
|
||||
my $mechanisms = $self->supports('AUTH',500,["Command unknown: 'AUTH'"]); |
||||
return unless defined $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; |
||||
} |
||||
|
||||
sub hello |
||||
{ |
||||
my $me = shift; |
||||
my $domain = shift || "localhost.localdomain"; |
||||
my $ok = $me->_EHLO($domain); |
||||
my @msg = $me->message; |
||||
|
||||
if($ok) |
||||
{ |
||||
my $h = ${*$me}{'net_smtp_esmtp'} = {}; |
||||
my $ln; |
||||
foreach $ln (@msg) { |
||||
$h->{uc $1} = $2 |
||||
if $ln =~ /(\w+)\b[= \t]*([^\n]*)/; |
||||
} |
||||
} |
||||
elsif($me->status == CMD_ERROR) |
||||
{ |
||||
@msg = $me->message |
||||
if $ok = $me->_HELO($domain); |
||||
} |
||||
|
||||
return undef unless $ok; |
||||
|
||||
$msg[0] =~ /\A\s*(\S+)/; |
||||
return ($1 || " "); |
||||
} |
||||
|
||||
sub supports { |
||||
my $self = shift; |
||||
my $cmd = uc shift; |
||||
return ${*$self}{'net_smtp_esmtp'}->{$cmd} |
||||
if exists ${*$self}{'net_smtp_esmtp'}->{$cmd}; |
||||
$self->set_status(@_) |
||||
if @_; |
||||
return; |
||||
} |
||||
|
||||
sub _addr { |
||||
my $self = shift; |
||||
my $addr = shift; |
||||
$addr = "" unless defined $addr; |
||||
|
||||
if (${*$self}{'net_smtp_exact_addr'}) { |
||||
return $1 if $addr =~ /^\s*(<.*>)\s*$/s; |
||||
} |
||||
else { |
||||
return $1 if $addr =~ /(<[^>]*>)/; |
||||
$addr =~ s/^\s+|\s+$//sg; |
||||
} |
||||
|
||||
"<$addr>"; |
||||
} |
||||
|
||||
sub mail |
||||
{ |
||||
my $me = shift; |
||||
my $addr = _addr($me, shift); |
||||
my $opts = ""; |
||||
|
||||
if(@_) |
||||
{ |
||||
my %opt = @_; |
||||
my($k,$v); |
||||
|
||||
if(exists ${*$me}{'net_smtp_esmtp'}) |
||||
{ |
||||
my $esmtp = ${*$me}{'net_smtp_esmtp'}; |
||||
|
||||
if(defined($v = delete $opt{Size})) |
||||
{ |
||||
if(exists $esmtp->{SIZE}) |
||||
{ |
||||
$opts .= sprintf " SIZE=%d", $v + 0 |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: SIZE option not supported by host'; |
||||
} |
||||
} |
||||
|
||||
if(defined($v = delete $opt{Return})) |
||||
{ |
||||
if(exists $esmtp->{DSN}) |
||||
{ |
||||
$opts .= " RET=" . ((uc($v) eq "FULL") ? "FULL" : "HDRS"); |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: DSN option not supported by host'; |
||||
} |
||||
} |
||||
|
||||
if(defined($v = delete $opt{Bits})) |
||||
{ |
||||
if($v eq "8") |
||||
{ |
||||
if(exists $esmtp->{'8BITMIME'}) |
||||
{ |
||||
$opts .= " BODY=8BITMIME"; |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: 8BITMIME option not supported by host'; |
||||
} |
||||
} |
||||
elsif($v eq "binary") |
||||
{ |
||||
if(exists $esmtp->{'BINARYMIME'} && exists $esmtp->{'CHUNKING'}) |
||||
{ |
||||
$opts .= " BODY=BINARYMIME"; |
||||
${*$me}{'net_smtp_chunking'} = 1; |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: BINARYMIME option not supported by host'; |
||||
} |
||||
} |
||||
elsif(exists $esmtp->{'8BITMIME'} or exists $esmtp->{'BINARYMIME'}) |
||||
{ |
||||
$opts .= " BODY=7BIT"; |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: 8BITMIME and BINARYMIME options not supported by host'; |
||||
} |
||||
} |
||||
|
||||
if(defined($v = delete $opt{Transaction})) |
||||
{ |
||||
if(exists $esmtp->{CHECKPOINT}) |
||||
{ |
||||
$opts .= " TRANSID=" . _addr($me, $v); |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: CHECKPOINT option not supported by host'; |
||||
} |
||||
} |
||||
|
||||
if(defined($v = delete $opt{Envelope})) |
||||
{ |
||||
if(exists $esmtp->{DSN}) |
||||
{ |
||||
$v =~ s/([^\041-\176]|=|\+)/sprintf "+%02x", ord($1)/sge; |
||||
$opts .= " ENVID=$v" |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: DSN option not supported by host'; |
||||
} |
||||
} |
||||
|
||||
carp 'Net::SMTP::recipient: unknown option(s) ' |
||||
. join(" ", keys %opt) |
||||
. ' - ignored' |
||||
if scalar keys %opt; |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::mail: ESMTP not supported by host - options discarded :-('; |
||||
} |
||||
} |
||||
|
||||
$me->_MAIL("FROM:".$addr.$opts); |
||||
} |
||||
|
||||
sub send { my $me = shift; $me->_SEND("FROM:" . _addr($me, $_[0])) } |
||||
sub send_or_mail { my $me = shift; $me->_SOML("FROM:" . _addr($me, $_[0])) } |
||||
sub send_and_mail { my $me = shift; $me->_SAML("FROM:" . _addr($me, $_[0])) } |
||||
|
||||
sub reset |
||||
{ |
||||
my $me = shift; |
||||
|
||||
$me->dataend() |
||||
if(exists ${*$me}{'net_smtp_lastch'}); |
||||
|
||||
$me->_RSET(); |
||||
} |
||||
|
||||
|
||||
sub recipient |
||||
{ |
||||
my $smtp = shift; |
||||
my $opts = ""; |
||||
my $skip_bad = 0; |
||||
|
||||
if(@_ && ref($_[-1])) |
||||
{ |
||||
my %opt = %{pop(@_)}; |
||||
my $v; |
||||
|
||||
$skip_bad = delete $opt{'SkipBad'}; |
||||
|
||||
if(exists ${*$smtp}{'net_smtp_esmtp'}) |
||||
{ |
||||
my $esmtp = ${*$smtp}{'net_smtp_esmtp'}; |
||||
|
||||
if(defined($v = delete $opt{Notify})) |
||||
{ |
||||
if(exists $esmtp->{DSN}) |
||||
{ |
||||
$opts .= " NOTIFY=" . join(",",map { uc $_ } @$v) |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::recipient: DSN option not supported by host'; |
||||
} |
||||
} |
||||
|
||||
carp 'Net::SMTP::recipient: unknown option(s) ' |
||||
. join(" ", keys %opt) |
||||
. ' - ignored' |
||||
if scalar keys %opt; |
||||
} |
||||
elsif(%opt) |
||||
{ |
||||
carp 'Net::SMTP::recipient: ESMTP not supported by host - options discarded :-('; |
||||
} |
||||
} |
||||
|
||||
my @ok; |
||||
my $addr; |
||||
foreach $addr (@_) |
||||
{ |
||||
if($smtp->_RCPT("TO:" . _addr($smtp, $addr) . $opts)) { |
||||
push(@ok,$addr) if $skip_bad; |
||||
} |
||||
elsif(!$skip_bad) { |
||||
return 0; |
||||
} |
||||
} |
||||
|
||||
return $skip_bad ? @ok : 1; |
||||
} |
||||
|
||||
BEGIN { |
||||
*to = \&recipient; |
||||
*cc = \&recipient; |
||||
*bcc = \&recipient; |
||||
} |
||||
|
||||
sub data |
||||
{ |
||||
my $me = shift; |
||||
|
||||
if(exists ${*$me}{'net_smtp_chunking'}) |
||||
{ |
||||
carp 'Net::SMTP::data: CHUNKING extension in use, must call bdat instead'; |
||||
} |
||||
else |
||||
{ |
||||
my $ok = $me->_DATA() && $me->datasend(@_); |
||||
|
||||
$ok && @_ ? $me->dataend |
||||
: $ok; |
||||
} |
||||
} |
||||
|
||||
sub bdat |
||||
{ |
||||
my $me = shift; |
||||
|
||||
if(exists ${*$me}{'net_smtp_chunking'}) |
||||
{ |
||||
my $data = shift; |
||||
|
||||
$me->_BDAT(length $data) && $me->rawdatasend($data) && |
||||
$me->response() == CMD_OK; |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead'; |
||||
} |
||||
} |
||||
|
||||
sub bdatlast |
||||
{ |
||||
my $me = shift; |
||||
|
||||
if(exists ${*$me}{'net_smtp_chunking'}) |
||||
{ |
||||
my $data = shift; |
||||
|
||||
$me->_BDAT(length $data, "LAST") && $me->rawdatasend($data) && |
||||
$me->response() == CMD_OK; |
||||
} |
||||
else |
||||
{ |
||||
carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead'; |
||||
} |
||||
} |
||||
|
||||
sub datafh { |
||||
my $me = shift; |
||||
return unless $me->_DATA(); |
||||
return $me->tied_fh; |
||||
} |
||||
|
||||
sub expand |
||||
{ |
||||
my $me = shift; |
||||
|
||||
$me->_EXPN(@_) ? ($me->message) |
||||
: (); |
||||
} |
||||
|
||||
|
||||
sub verify { shift->_VRFY(@_) } |
||||
|
||||
sub help |
||||
{ |
||||
my $me = shift; |
||||
|
||||
$me->_HELP(@_) ? scalar $me->message |
||||
: undef; |
||||
} |
||||
|
||||
sub quit |
||||
{ |
||||
my $me = shift; |
||||
|
||||
$me->_QUIT; |
||||
$me->close; |
||||
} |
||||
|
||||
sub DESTROY |
||||
{ |
||||
# ignore |
||||
} |
||||
|
||||
## |
||||
## RFC821 commands |
||||
## |
||||
|
||||
sub _EHLO { shift->command("EHLO", @_)->response() == CMD_OK } |
||||
sub _HELO { shift->command("HELO", @_)->response() == CMD_OK } |
||||
sub _MAIL { shift->command("MAIL", @_)->response() == CMD_OK } |
||||
sub _RCPT { shift->command("RCPT", @_)->response() == CMD_OK } |
||||
sub _SEND { shift->command("SEND", @_)->response() == CMD_OK } |
||||
sub _SAML { shift->command("SAML", @_)->response() == CMD_OK } |
||||
sub _SOML { shift->command("SOML", @_)->response() == CMD_OK } |
||||
sub _VRFY { shift->command("VRFY", @_)->response() == CMD_OK } |
||||
sub _EXPN { shift->command("EXPN", @_)->response() == CMD_OK } |
||||
sub _HELP { shift->command("HELP", @_)->response() == CMD_OK } |
||||
sub _RSET { shift->command("RSET")->response() == CMD_OK } |
||||
sub _NOOP { shift->command("NOOP")->response() == CMD_OK } |
||||
sub _QUIT { shift->command("QUIT")->response() == CMD_OK } |
||||
sub _DATA { shift->command("DATA")->response() == CMD_MORE } |
||||
sub _BDAT { shift->command("BDAT", @_) } |
||||
sub _TURN { shift->unsupported(@_); } |
||||
sub _ETRN { shift->command("ETRN", @_)->response() == CMD_OK } |
||||
sub _AUTH { shift->command("AUTH", @_)->response() == CMD_OK } |
||||
|
||||
1; |
||||
|
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
Net::SMTP - Simple Mail Transfer Protocol Client |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
use Net::SMTP; |
||||
|
||||
# Constructors |
||||
$smtp = Net::SMTP->new('mailhost'); |
||||
$smtp = Net::SMTP->new('mailhost', Timeout => 60); |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
This module implements a client interface to the SMTP and ESMTP |
||||
protocol, enabling a perl5 application to talk to SMTP servers. This |
||||
documentation assumes that you are familiar with the concepts of the |
||||
SMTP protocol described in RFC821. |
||||
|
||||
A new Net::SMTP object must be created with the I<new> method. Once |
||||
this has been done, all SMTP commands are accessed through this object. |
||||
|
||||
The Net::SMTP class is a subclass of Net::Cmd and IO::Socket::INET. |
||||
|
||||
=head1 EXAMPLES |
||||
|
||||
This example prints the mail domain name of the SMTP server known as mailhost: |
||||
|
||||
#!/usr/local/bin/perl -w |
||||
|
||||
use Net::SMTP; |
||||
|
||||
$smtp = Net::SMTP->new('mailhost'); |
||||
print $smtp->domain,"\n"; |
||||
$smtp->quit; |
||||
|
||||
This example sends a small message to the postmaster at the SMTP server |
||||
known as mailhost: |
||||
|
||||
#!/usr/local/bin/perl -w |
||||
|
||||
use Net::SMTP; |
||||
|
||||
$smtp = Net::SMTP->new('mailhost'); |
||||
|
||||
$smtp->mail($ENV{USER}); |
||||
$smtp->to('postmaster'); |
||||
|
||||
$smtp->data(); |
||||
$smtp->datasend("To: postmaster\n"); |
||||
$smtp->datasend("\n"); |
||||
$smtp->datasend("A simple test message\n"); |
||||
$smtp->dataend(); |
||||
|
||||
$smtp->quit; |
||||
|
||||
=head1 CONSTRUCTOR |
||||
|
||||
=over 4 |
||||
|
||||
=item new Net::SMTP [ HOST, ] [ OPTIONS ] |
||||
|
||||
This is the constructor for a new Net::SMTP object. C<HOST> is the |
||||
name of the remote host to which an SMTP connection is required. |
||||
|
||||
If C<HOST> is an array reference then each value will be attempted |
||||
in turn until a connection is made. |
||||
|
||||
If C<HOST> is not given, then the C<SMTP_Host> specified in C<Net::Config> |
||||
will be used. |
||||
|
||||
C<OPTIONS> are passed in a hash like fashion, using key and value pairs. |
||||
Possible options are: |
||||
|
||||
B<Hello> - SMTP requires that you identify yourself. This option |
||||
specifies a string to pass as your mail domain. If not |
||||
given a guess will be taken. |
||||
|
||||
B<LocalAddr> and B<LocalPort> - These parameters are passed directly |
||||
to IO::Socket to allow binding the socket to a local port. |
||||
|
||||
B<Timeout> - Maximum time, in seconds, to wait for a response from the |
||||
SMTP server (default: 120) |
||||
|
||||
B<ExactAddresses> - If true the all ADDRESS arguments must be as |
||||
defined by C<addr-spec> in RFC2822. If not given, or false, then |
||||
Net::SMTP will attempt to extract the address from the value passed. |
||||
|
||||
B<Debug> - Enable debugging information |
||||
|
||||
|
||||
Example: |
||||
|
||||
|
||||
$smtp = Net::SMTP->new('mailhost', |
||||
Hello => 'my.mail.domain' |
||||
Timeout => 30, |
||||
Debug => 1, |
||||
); |
||||
|
||||
=back |
||||
|
||||
=head1 METHODS |
||||
|
||||
Unless otherwise stated all methods return either a I<true> or I<false> |
||||
value, with I<true> meaning that the operation was a success. When a method |
||||
states that it returns a value, failure will be returned as I<undef> or an |
||||
empty list. |
||||
|
||||
=over 4 |
||||
|
||||
=item banner () |
||||
|
||||
Returns the banner message which the server replied with when the |
||||
initial connection was made. |
||||
|
||||
=item domain () |
||||
|
||||
Returns the domain that the remote SMTP server identified itself as during |
||||
connection. |
||||
|
||||
=item hello ( DOMAIN ) |
||||
|
||||
Tell the remote server the mail domain which you are in using the EHLO |
||||
command (or HELO if EHLO fails). Since this method is invoked |
||||
automatically when the Net::SMTP object is constructed the user should |
||||
normally not have to call it manually. |
||||
|
||||
=item etrn ( DOMAIN ) |
||||
|
||||
Request a queue run for the DOMAIN given. |
||||
|
||||
=item auth ( USERNAME, PASSWORD ) |
||||
|
||||
Attempt SASL authentication. |
||||
|
||||
=item mail ( ADDRESS [, OPTIONS] ) |
||||
|
||||
=item send ( ADDRESS ) |
||||
|
||||
=item send_or_mail ( ADDRESS ) |
||||
|
||||
=item send_and_mail ( ADDRESS ) |
||||
|
||||
Send the appropriate command to the server MAIL, SEND, SOML or SAML. C<ADDRESS> |
||||
is the address of the sender. This initiates the sending of a message. The |
||||
method C<recipient> should be called for each address that the message is to |
||||
be sent to. |
||||
|
||||
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 => "FULL" | "HDRS" |
||||
Bits => "7" | "8" | "binary" |
||||
Transaction => <ADDRESS> |
||||
Envelope => <ENVID> |
||||
|
||||
The C<Return> and C<Envelope> parameters are used for DSN (Delivery |
||||
Status Notification). |
||||
|
||||
=item reset () |
||||
|
||||
Reset the status of the server. This may be called after a message has been |
||||
initiated, but before any data has been sent, to cancel the sending of the |
||||
message. |
||||
|
||||
=item recipient ( ADDRESS [, ADDRESS [ ...]] [, OPTIONS ] ) |
||||
|
||||
Notify the server that the current message should be sent to all of the |
||||
addresses given. Each address is sent as a separate command to the server. |
||||
Should the sending of any address result in a failure then the |
||||
process is aborted and a I<false> value is returned. It is up to the |
||||
user to call C<reset> if they so desire. |
||||
|
||||
The C<recipient> method can some additional OPTIONS which is passed |
||||
in hash like fashion, using key and value pairs. Possible options are: |
||||
|
||||
Notify => |
||||
SkipBad => ignore bad addresses |
||||
|
||||
If C<SkipBad> is true the C<recipient> will not return an error when a |
||||
bad address is encountered and it will return an array of addresses |
||||
that did succeed. |
||||
|
||||
$smtp->recipient($recipient1,$recipient2); # Good |
||||
$smtp->recipient($recipient1,$recipient2, { SkipBad => 1 }); # Good |
||||
$smtp->recipient("$recipient,$recipient2"); # BAD |
||||
|
||||
=item to ( ADDRESS [, ADDRESS [...]] ) |
||||
|
||||
=item cc ( ADDRESS [, ADDRESS [...]] ) |
||||
|
||||
=item bcc ( ADDRESS [, ADDRESS [...]] ) |
||||
|
||||
Synonyms for C<recipient>. |
||||
|
||||
=item data ( [ DATA ] ) |
||||
|
||||
Initiate the sending of the data from the current message. |
||||
|
||||
C<DATA> may be a reference to a list or a list. If specified the contents |
||||
of C<DATA> and a termination string C<".\r\n"> is sent to the server. And the |
||||
result will be true if the data was accepted. |
||||
|
||||
If C<DATA> is not specified then the result will indicate that the server |
||||
wishes the data to be sent. The data must then be sent using the C<datasend> |
||||
and C<dataend> methods described in L<Net::Cmd>. |
||||
|
||||
=item expand ( ADDRESS ) |
||||
|
||||
Request the server to expand the given address Returns an array |
||||
which contains the text read from the server. |
||||
|
||||
=item verify ( ADDRESS ) |
||||
|
||||
Verify that C<ADDRESS> is a legitimate mailing address. |
||||
|
||||
=item help ( [ $subject ] ) |
||||
|
||||
Request help text from the server. Returns the text or undef upon failure |
||||
|
||||
=item quit () |
||||
|
||||
Send the QUIT command to the remote SMTP server and close the socket connection. |
||||
|
||||
=back |
||||
|
||||
=head1 ADDRESSES |
||||
|
||||
Net::SMTP attempts to DWIM with addresses that are passed. For |
||||
example an application might extract The From: line from an email |
||||
and pass that to mail(). While this may work, it is not reccomended. |
||||
The application should really use a module like L<Mail::Address> |
||||
to extract the mail address and pass that. |
||||
|
||||
If C<ExactAddresses> is passed to the contructor, then addresses |
||||
should be a valid rfc2821-quoted address, although Net::SMTP will |
||||
accept accept the address surrounded by angle brackets. |
||||
|
||||
funny user@domain WRONG |
||||
"funny user"@domain RIGHT, recommended |
||||
<"funny user"@domain> OK |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
L<Net::Cmd> |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Graham Barr <gbarr@pobox.com> |
||||
|
||||
=head1 COPYRIGHT |
||||
|
||||
Copyright (c) 1995-1997 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$> |
||||
|
||||
=cut |
||||
Loading…
Reference in new issue