diff options
Diffstat (limited to 'bin/vc_filter.pl')
-rwxr-xr-x | bin/vc_filter.pl | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/bin/vc_filter.pl b/bin/vc_filter.pl deleted file mode 100755 index a93b2ad73ad..00000000000 --- a/bin/vc_filter.pl +++ /dev/null @@ -1,57 +0,0 @@ -# $Id$ -# -# A perl script that filers length VC output into a concise html report. - -# Define html tags. -$header = "<html><head> -<title>Error/Warning Summary of Daily Build</title> -</head> - -<body bgcolor=\"white\"> -<h1>Error/Warning Summary of Daily Build</h1><TT>\n"; -$trailer = "</TT></body></html>"; - -$kosher_b = ""; -$kosher_e = ""; - -$in_sin_b = "<FONT COLOR=\"RED\">"; -$in_sin_e = "</FONT>"; - -$new_build_b = "<P>"; -$new_build_e = ""; - -# Get filename. -$fname = $ARGV[0]; -open (fp, "$fname"); - -print $header ; - -restart: while ($line = <fp>) -{ - print "$new_build_b $line $new_build_e<BR>" if ($line =~/^--------------------Configuration:/); - - if ($line =~ /(^[A-Z_a-z0-9.]+ - [0-9]+ error\(s\), +[0-9]+ warning\(s\))|(LNK4089)/) - { - if ($line =~ /(0 error\(s\), 0 warning\(s\))|(LNK4089)/) - { - print "$kosher_b $line $kosher_e<BR>"; - } - else - { - print "$in_sin_b $line $in_sin_e<BR>"; - } - next restart; - } - - print "$in_sin_b $line $in_sin_e<BR>" - 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; |