richter 02/03/18 20:41:23
Modified: Embperl Tag: Embperl2c Mail.pm
Log:
fix condition for mailhost
Revision Changes Path
No revision
No revision
1.29.4.6 +2 -2 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.29.4.5
retrieving revision 1.29.4.6
diff -u -r1.29.4.5 -r1.29.4.6
--- Mail.pm 15 Mar 2002 19:53:56 -0000 1.29.4.5
+++ Mail.pm 19 Mar 2002 04:41:23 -0000 1.29.4.6
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.29.4.5 2002/03/15 19:53:56 richter Exp $
+# $Id: Mail.pm,v 1.29.4.6 2002/03/19 04:41:23 richter Exp $
#
###################################################################################
@@ -76,7 +76,7 @@
($helo?(Hello => $helo):())
) or die "Cannot connect to mailhost
$req->{mailhost}" ;
- my $from = $req -> {from} || $ENV{'EMBPERL_MAILFROM'} ||
"WWW-Server\@$ENV{SERVER_NAME}" || 'localhost' ;
+ my $from = $req -> {from} || $ENV{'EMBPERL_MAILFROM'} || 'WWW-Server\@' .
($ENV{SERVER_NAME}" || 'localhost') ;
$smtp->mail($from);
my $to ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
