Question

I am trying to setup Net::SMTP using my ISP's outgoing SMTP server, which requires authentication. Is there a way to make this work, or is there another route I should pursue?

Environment

-- RyanHall - 22 Jun 2006

Answer

If you answer a question - or have a question you asked answered by someone - please remember to edit the page and set the status to answered. The status is in a drop-down list below the edit box.

This feature was recently added to the twiki4 branch in svn (to be released with 4.0.3), see Bugs:Item2292.

Copy/paste from checkin message on the feature for inspiration (if you want to patch your 4.0.2 installation):

Author: CrawfordCurrie
Date: 2006-05-16 06:57:01 -0500 (Tue, 16 May 2006)
New Revision: 10218

Modified:
   twiki/branches/TWikiRelease04x00/lib/TWiki.cfg
   twiki/branches/TWikiRelease04x00/lib/TWiki/Net.pm
Log:
Item2292: Added ability to pass auth to the SMTP server. Some servers require it, and this has been a blocker for a number of installs.

Modified: twiki/branches/TWikiRelease04x00/lib/TWiki/Net.pm
===================================================================
--- twiki/branches/TWikiRelease04x00/lib/TWiki/Net.pm   2006-05-15 14:18:09 UTC (rev 10217)
+++ twiki/branches/TWikiRelease04x00/lib/TWiki/Net.pm   2006-05-16 11:57:01 UTC (rev 10218)
@@ -288,14 +288,19 @@
     my $smtp = 0;
     if( $this->{HELLO_HOST} ) {
         $smtp = Net::SMTP->new( $this->{MAIL_HOST},
-                                Hello => $this->{HELLO_HOST} );
+                                Hello => $this->{HELLO_HOST},
+                                Debug => $TWiki::cfg{SMTP}{Debug} || 0 );
     } else {
-        $smtp = Net::SMTP->new( $this->{MAIL_HOST} );
+        $smtp = Net::SMTP->new( $this->{MAIL_HOST},
+                                Debug => $TWiki::cfg{SMTP}{Debug} || 0 );
     }
     my $status = '';
     my $mess = "ERROR: Can't send mail using Net::SMTP. ";
     die $mess."Can't connect to '$this->{MAIL_HOST}'" unless $smtp;
 
+    if( $TWiki::cfg{SMTP}{Username} ) {
+        $smtp->auth($TWiki::cfg{SMTP}{Username}, $TWiki::cfg{SMTP}{Password});
+    }
     $smtp->mail( $from ) || die $mess.$smtp->message;
     $smtp->to( @to, { SkipBad => 1 } ) || die $mess.$smtp->message;
     $smtp->data( $text ) || die $mess.$smtp->message;

Modified: twiki/branches/TWikiRelease04x00/lib/TWiki.cfg
===================================================================
--- twiki/branches/TWikiRelease04x00/lib/TWiki.cfg   2006-05-15 14:18:09 UTC (rev 10217)
+++ twiki/branches/TWikiRelease04x00/lib/TWiki.cfg   2006-05-16 11:57:01 UTC (rev 10218)
@@ -926,6 +926,20 @@
 $cfg{SMTP}{SENDERHOST} = '';
 
 # **STRING 30**
+# Username for SMTP. Only required if your server requires authentication. If
+# this is left blank, TWiki will not attempt to authenticate the mail sender.
+$cfg{SMTP}{Username} = '';
+
+# **STRING 30**
+# Password for your {SMTP}{Username}.
+$cfg{SMTP}{Password} = '';
+
+# **BOOLEAN**
+# <span class="twikiAlert">EXPERT</span> Set this option on to enable debug
+# mode in SMTP. Output will go to the webserver error log.
+$cfg{SMTP}{Debug} = 0;
+
+# **STRING 30**
 # <span class="twikiAlert">EXPERT</span> Some environments require outbound HTTP traffic to go through a proxy
 # server. (e.g. proxy.your.company).
 # <b>CAUTION</b> This setting can be overridden by a PROXYHOST setting

-- SteffenPoulsen - 22 Jun 2006