diff options
| author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-12 19:38:21 +0000 |
|---|---|---|
| committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-12 19:38:21 +0000 |
| commit | 0d695e288c4a0f6180fa8a6586d5fc06b9ccc307 (patch) | |
| tree | 1d6e024d981397125b2f3b7954313a63a50f7380 /bin/vc_filter.pl | |
| parent | c904939bfbc761deb9127533b1273e8b2051542f (diff) | |
| download | ATCD-0d695e288c4a0f6180fa8a6586d5fc06b9ccc307.tar.gz | |
*** empty log message ***
Diffstat (limited to 'bin/vc_filter.pl')
| -rwxr-xr-x | bin/vc_filter.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/bin/vc_filter.pl b/bin/vc_filter.pl index a93b2ad73ad..7faabf8a289 100755 --- a/bin/vc_filter.pl +++ b/bin/vc_filter.pl @@ -2,6 +2,8 @@ # # A perl script that filers length VC output into a concise html report. +$usage = "vc_filter.pl [-c] <source>"; + # Define html tags. $header = "<html><head> <title>Error/Warning Summary of Daily Build</title> @@ -20,6 +22,29 @@ $in_sin_e = "</FONT>"; $new_build_b = "<P>"; $new_build_e = ""; +while ( $#ARGV >= 0 && $ARGV[0] =~ /^-/ ) +{ + if ( $ARGV[0] eq '-c') # Text format + { + $header = "" ; + $trailer = "" ; + $kosher_b = ""; + $kosher_e = ""; + + $in_sin_b = ""; + $in_sin_e = ""; + + $new_build_b = "\n\n"; + $new_build_e = ""; + } + else + { + warn "$0: unknown option $ARGV[0]\n"; + die $usage; + } + shift; +} + # Get filename. $fname = $ARGV[0]; open (fp, "$fname"); |