equal
deleted
inserted
replaced
44 )); |
44 )); |
45 my @logfiles = @ARGV; |
45 my @logfiles = @ARGV; |
46 |
46 |
47 if ($help) |
47 if ($help) |
48 { |
48 { |
49 print "Unite and HTML-ize Raptor log files.\n"; |
49 print <<_EOH; |
50 print "Usage: perl uh.pl [OPTIONS] FILE1 FILE2 ...\n"; |
50 UH parser |
51 print "where FILE1 FILE2 ... are Raptor log files.\n"; |
51 Reads one or more Raptor log files, extracts the interesting bits and puts them into a |
52 print "If no file argument is provided then UH takes the latest under \\epoc32\\build\n"; |
52 set of HTML files, making it easy to spot the failures and see the related log snippets. |
53 print "OPTIONS:\n"; |
53 |
54 print "\t-m, --missing\tAlso add the list of missing binaries (Raptor log should include whatlog info).\n"; |
54 Usage: uh.pl [options] [files] |
55 print "\t\t\tCheck is done against the epoc tree at the root of the current drive\n"; |
55 |
56 print "\t-b DIR, --basedir DIR\tGenerate output under DIR (defaults to current dir)\n"; |
56 Options: |
|
57 -h, --help Show this help message and exit |
|
58 -m, --missing Add report on missing binaries. Check is done against the epoc |
|
59 tree at the root of the current drive |
|
60 (Note: it requires Raptor log to include whatlog info) |
|
61 -b OUTDIR, --basedir OUTDIR |
|
62 Generate output under OUTDIR (defaults to current dir) |
|
63 |
|
64 Files: |
|
65 Accepts one or a list of raptor log files (separated by a space) |
|
66 If no file argument is provided then take the most recent log under \\epoc32\\build |
|
67 _EOH |
57 exit(0); |
68 exit(0); |
58 } |
69 } |
59 |
70 |
60 if (!@logfiles) |
71 if (!@logfiles) |
61 { |
72 { |