- From: Olivier Thereaux <ot@dev.w3.org>
- Date: Wed, 10 Nov 2004 00:16:49 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output
In directory hutz:/tmp/cvs-serv25240/lib/W3C/LogValidator/Output
Modified Files:
Mail.pm
Log Message:
adding QuietIfNoReport option - preparing for 0.5
Index: Mail.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output/Mail.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Mail.pm 10 Sep 2004 00:41:24 -0000 1.10
+++ Mail.pm 10 Nov 2004 00:16:47 -0000 1.11
@@ -63,7 +63,7 @@
$mon ++; # weird 'feature': months run 0-11; days run 1-31 :-(
my $date = ($year+1900) .'-'. ($mon>9 ? $mon:"0$mon") .'-'. ($day>9 ? $day:"0$day");
- if (defined $config{"ServerAdmin"})
+ if (defined $config{"ServerAdmin"} and $result_string ne "")
# we have someone to send the mail to
{
my $mail_subject = "Logvalidator results";
@@ -71,7 +71,7 @@
{
$mail_subject = $config{"Title"};
}
- $mail_subject = $mail_subject." ($date $hour:$min GMT)";
+ $mail_subject = $mail_subject." ($date at $hour:$min GMT)";
my $add = $config{"ServerAdmin"};
my $mail_from = $add;
if (defined $config{"MailFrom"})
Received on Wednesday, 10 November 2004 00:16:49 UTC