- From: Olivier Thereaux <ot@dev.w3.org>
- Date: Mon, 28 Jun 2004 23:45:56 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output
In directory hutz:/tmp/cvs-serv23243
Modified Files:
Mail.pm
Log Message:
output mail log, fix small display glitch
Index: Mail.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output/Mail.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Mail.pm 28 Jun 2004 22:59:10 -0000 1.6
+++ Mail.pm 28 Jun 2004 23:45:54 -0000 1.7
@@ -71,7 +71,7 @@
{
$mail_subject = $config{"Title"};
}
- $mail_subject = $mail_subject."($date $hour:$min GMT)";
+ $mail_subject = $mail_subject." ($date $hour:$min GMT)";
my $add = $config{"ServerAdmin"};
my $mail_from = $add;
if (defined $config{"MailFrom"})
@@ -86,6 +86,7 @@
Message => $result_string );
print "Sending Mail to $add...\n" if ($verbose >1 );
Mail::Sendmail::sendmail(%mail) or print STDERR $Mail::Sendmail::error;
+ if ($verbose >1 ) { print "OK Mail::Sendmail log:\n", $Mail::Sendmail::log, "\n";}
}
else { print $result_string; }
}
Received on Monday, 28 June 2004 19:45:57 UTC