- From: Olivier Thereaux <ot@dev.w3.org>
- Date: Tue, 08 Jun 2004 05:10:50 +0000
- To: www-validator-cvs@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