W3C home > Mailing lists > Public > www-validator-cvs@w3.org > June 2004

perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output Mail.pm,1.6,1.7

From: Olivier Thereaux <ot@dev.w3.org>
Date: Mon, 28 Jun 2004 23:45:56 +0000
To: www-validator-cvs@w3.org
Message-Id: <20040628234556.DF99A4A84F@hutz.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

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:06 UTC