W3C::LogValidator::Output::HTML - [W3C Log Validator] HTML Output module

W3C-LogValidator documentation Contained in the W3C-LogValidator distribution.

Index

Code Index:

NAME

Top

W3C::LogValidator::Output::HTML - [W3C Log Validator] HTML Output module

SYNOPSIS

Top

  use  W3C::LogValidator::HTMLOutput;

DESCRIPTION

Top

This module is part of the W3C::LogValidator suite, and outputs the result of the log processing and validation in HTML format.

AUTHOR

Top

Olivier Thereaux <ot@w3.org>

SEE ALSO

Top

W3C::LogValidator, perl(1). Up-to-date complete info at http://www.w3.org/QA/Tools/LogValidator/

W3C-LogValidator documentation Contained in the W3C-LogValidator distribution. 
# Copyright (c) 2002-2005 the World Wide Web Consortium :
#       Keio University,
#       European Research Consortium for Informatics and Mathematics
#       Massachusetts Institute of Technology.
# written by Olivier Thereaux <ot@w3.org> for W3C
#
# $Id: HTML.pm,v 1.13 2005/09/09 06:33:11 ot Exp $

package W3C::LogValidator::Output::HTML;
use strict;


require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
our $VERSION = sprintf "%d.%03d",q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/;


###########################
# usual package interface #
###########################
our $verbose = 1;
our %config;

sub new
{
        my $self  = {};
        my $proto = shift;
        my $class = ref($proto) || $proto;
	# configuration for this module
	if (@_) {%config =  %{(shift)};}
	if (defined $config{verbose}) {$verbose = $config{verbose}}
        bless($self, $class);
        return $self;
}




sub output
{
	my $self = shift;
	my %results;
	my $outputstr ="";
	if (@_) {%results = %{(shift)}}
	$outputstr= "
<h2>Results for module ".$results{'name'}."</h2>\n";
	$outputstr= $outputstr."<p>".$results{"intro"}."</p>\n" if ($results{"intro"});
	my @thead = @{$results{"thead"}};
	my @trows = @{$results{"trows"}};
	if ((@thead) or (@trows))
	{
		$outputstr= $outputstr."<table>\n";
	if (@thead)
	{
		$outputstr= $outputstr."<tr>\n";
		while (@thead)
		{
			my $header = shift (@thead);	
			$outputstr= $outputstr."<th>$header</th>";
		}
		$outputstr= $outputstr."</tr>\n";
	}
	while (@trows)
	{
		my @row=@{shift (@trows)};
		$outputstr= $outputstr."<tr>\n";
		my $tcell;
		while (@row)
		{
			$tcell= shift (@row);	
			chomp $tcell;
			$outputstr= $outputstr."<td>$tcell</td>";
		}
		$outputstr= $outputstr."</tr>\n";
	}
		$outputstr= $outputstr."</table>\n";
	}
	$outputstr= $outputstr."\n";
	$outputstr= $outputstr."<p>".$results{"outro"}."</p>\n\n" if ($results{"outro"});
	return $outputstr;	
}

sub finish                                                                            
{
# embed HTML tidbits in a full HTML file 
# and either save or output
 my $self = shift;


my $title = "Logvalidator results";
if (defined $config{"Title"})
        {
             $title = $config{"Title"};
        }

 my $result_string = '<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
                "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>'.$title.'</title>
        <style type="text/css" media="screen">
h1
{
		text-align: center;
		color : #424242;

}
h2 {
      background: #999;
      color: white;
      border: none;
      width: 100%;
      font-weight: bold;
      font-size: 1.3em;
      text-indent: 0.5em;
      margin-top: 0.5em;
      padding: 0.1em;
}
table {
		font-size:100%; 
		width:90%; 
		border: 1px solid #999;
		border-spacing: 0px;
		}
th,td
		{
		text-align:left; 
		border: 1px solid #999;
		padding-left : .5em;
		padding-right : .5em;
		}
th
		{
		color : #424242;
}
p.footer
		{
		font-size: small;
		border-top: 1px solid #999;
}
        </style>
<link rel="Stylesheet" href="http://www.w3.org/QA/Tools/LogValidator/logvalstyle" />
</head>
<body>
<h1>'.$title.'</h1>';

       if (@_)
        {
                my $tmp_result_string = shift;
		$result_string = $result_string.$tmp_result_string;
	}
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday) = gmtime(time);
$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");

$result_string = $result_string.'
<p class="footer">Generated on'." $date at $hour:$min:$sec".' GMT
by the <a href="http://www.w3.org/QA/Tools/LogValidator/">Log Validator</a>.</p>
</body>
</html>';

	if (defined $config{OutputTo}) 
	{
		my $filetosave = $config{OutputTo};
		open (HTMLOUT, "> $filetosave")
		||  print STDERR "could not open file $filetosave for saving : $!";
		print HTMLOUT $result_string;
		close HTMLOUT;
	}
	else 
	{
		print $result_string;
	}
}	

package W3C::LogValidator::Output::HTML;

1;

__END__