richter 2004/08/16 20:53:45
Modified: Embperl App.pm
Log:
default senderdoamin to localhost in mail_form_to
Revision Changes Path
1.4 +2 -2 embperl/Embperl/App.pm
Index: App.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/App.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- App.pm 23 Jan 2004 06:50:56 -0000 1.3
+++ App.pm 17 Aug 2004 03:53:45 -0000 1.4
@@ -248,7 +248,7 @@
$self -> config -> mailhelo?(Hello => $self -> config ->
mailhelo):())
or die "Cannot connect to mailhost" ;
- $smtp->mail($self -> config -> mailfrom || "[EMAIL PROTECTED]");
+ $smtp->mail($self -> config -> mailfrom || ("WWW-Server\@" . ($ENV{SERVER_NAME}
|| 'localhost')));
$smtp->to($to);
$ok = $smtp->data();
$ok = $smtp->datasend("Reply-To: $ret\n") if ($ok && $ret) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
