# $Id$ # # A perl script that filers length VC output into a concise html report. # Define html tags. $header = " Error/Warning Summary of Daily Build

Error/Warning Summary of Daily Build

\n"; $trailer = ""; $kosher_b = ""; $kosher_e = ""; $in_sin_b = ""; $in_sin_e = ""; $new_build_b = "

"; $new_build_e = ""; # Get filename. $fname = $ARGV[0]; open (fp, "$fname"); print $header ; while ($line = ) { print "$new_build_b $line $new_build_e
" 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;