# $Id$ # # A perl script that filers length VC output into a concise html report. # Define html tags. $header = "
";
$new_build_e = "";
# Get filename.
$fname = $ARGV[0];
open (fp, "$fname");
print $header ;
while ($line =
" if ($line =~/^--------------------Configuration:/);
if ($line =~/^[A-Z_a-z0-9.]+ - [0-9]+ error\(s\), +[0-9]+ warning\(s\)/)
{
if ($line =~/0 error\(s\), 0 warning\(s\)/)
{
print "$kosher_b $line $kosher_e
";
}
else
{
print "$in_sin_b $line $in_sin_e
";
}
}
print "$in_sin_b $line $in_sin_e
"
if ($line =~/^[-A-Z_a-z0-9.\/\\:]+\([0-9]+\) : / ||
$line =~/^[-A-Z_a-z0-9.\/\\:]+.*, line [0-9]+: / ||
$line =~/^[-A-Z_a-z0-9.\\:]+\.obj : / ||
$line =~/^fatal error/ ||
$line =~/^Error executing/ ||
$line =~/^4NT: / ||
$line =~/^LINK : /);
}
print $trailer;