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

perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output Raw.pm,1.4,1.5 Mail.pm,1.4,1.5

From: Olivier Thereaux <ot@dev.w3.org>
Date: Tue, 08 Jun 2004 05:10:50 +0000
To: www-validator-cvs@w3.org
Message-Id: <20040608051050.2461A4A846@hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output
In directory hutz:/tmp/cvs-serv25208

Modified Files:
	Raw.pm Mail.pm 
Log Message:
slight output debugging

Index: Mail.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output/Mail.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Mail.pm	2 Jun 2004 07:38:39 -0000	1.4
+++ Mail.pm	8 Jun 2004 05:10:48 -0000	1.5
@@ -58,6 +58,8 @@
         {
                 my $result_string = shift;
 		my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday) = gmtime(time);
+	        my $hour = sprintf ( "%02d", $hour);
+		my $min = sprintf ( "%02d", $min);
 		$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");
 

Index: Raw.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Output/Raw.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Raw.pm	2 Jun 2004 07:38:39 -0000	1.4
+++ Raw.pm	8 Jun 2004 05:10:48 -0000	1.5
@@ -56,7 +56,7 @@
 	}
 	if ($columnwidth > $headerwidth+1) 
 	{ 
-		return $columnwidth+1; 
+		return $columnwidth; 
 	}
 	else
 	{
@@ -107,16 +107,18 @@
 		my $header = shift (@thead);	
 		my $spaces;
 		$widths[$column_num] = $self->width($column_num, \%results);
-		if ($widths[$column_num] > length($header)+2)
+		if ($widths[$column_num] > (length($header)+2) ) # long content
 		{
-			$spaces = $widths[$column_num] - length($header)+2;
+			$spaces = $widths[$column_num] - length($header);
 		}
-		else { $spaces = 2 }
+		else { $spaces = 2 } # long column header
+		# Header is centered
 		my $space_before= ceil($spaces/2);
 		my $space_after= floor($spaces/2);
 		$outputstr= $outputstr.$self->spaces($space_before);
 		$outputstr= $outputstr."$header";
-		$outputstr= $outputstr.$self->spaces($space_after+1);
+		$outputstr= $outputstr.$self->spaces($space_after);
+		$outputstr= $outputstr." "; # column separation space
 		$column_num = $column_num+1;
 	}
 	$outputstr= $outputstr."\n";
Received on Tuesday, 8 June 2004 01:22:51 UTC

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