lib/Net/SMTP.pm

131   my $me = shift;
132   ${*$me}{'net_smtp_host'};
141   my $me = shift;
143   return ${*$me}{'net_smtp_banner'} || undef;
148   my $me = shift;
150   return ${*$me}{'net_smtp_domain'} || undef;
242   my $me     = shift;
244   my $ok     = $me->_EHLO($domain);
245   my @msg    = $me->message;
248     my $h = ${*$me}{'net_smtp_esmtp'} = {};
254   elsif ($me->status == CMD_ERROR) {
255     @msg = $me->message
256       if $ok = $me->_HELO($domain);
260   ${*$me}{net_smtp_hello_domain} = $domain;
309   my $me   = shift;
310   my $addr = _addr($me, shift);
317     if (exists ${*$me}{'net_smtp_esmtp'}) {
318       my $esmtp = ${*$me}{'net_smtp_esmtp'};
350             ${*$me}{'net_smtp_chunking'} = 1;
366           $opts .= " TRANSID=" . _addr($me, $v);
424   $me->_MAIL("FROM:" . $addr . $opts);
428 sub send          { my $me = shift; $me->_SEND("FROM:" . _addr($me, $_[0])) }
429 sub send_or_mail  { my $me = shift; $me->_SOML("FROM:" . _addr($me, $_[0])) }
430 sub send_and_mail { my $me = shift; $me->_SAML("FROM:" . _addr($me, $_[0])) }
434   my $me = shift;
436   $me->dataend()
437     if (exists ${*$me}{'net_smtp_lastch'});
439   $me->_RSET();
504   my $me = shift;
506   if (exists ${*$me}{'net_smtp_chunking'}) {
510     my $ok = $me->_DATA() && $me->datasend(@_);
513       ? $me->dataend
520   my $me = shift;
522   if (exists ${*$me}{'net_smtp_chunking'}) {
525     $me->_BDAT(length $data)
526       && $me->rawdatasend($data)
527       && $me->response() == CMD_OK;
536   my $me = shift;
538   if (exists ${*$me}{'net_smtp_chunking'}) {
541     $me->_BDAT(length $data, "LAST")
542       && $me->rawdatasend($data)
543       && $me->response() == CMD_OK;
552   my $me = shift;
553   return unless $me->_DATA();
554   return $me->tied_fh;
559   my $me = shift;
561   $me->_EXPN(@_)
562     ? ($me->message)
571   my $me = shift;
573   $me->_HELP(@_)
574     ? scalar $me->message
580   my $me = shift;
582   $me->_QUIT;
583   $me->close;