You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2004/08/17 05:53:45 UTC
cvs commit: embperl/Embperl App.pm
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 || "WWW-Server\@$ENV{SERVER_NAME}");
+ $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: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org