|
1 #!/usr/bin/perl |
|
2 # vim: set shiftwidth=4 tabstop=8 autoindent expandtab: |
|
3 # This Source Code Form is subject to the terms of the Mozilla Public |
|
4 # License, v. 2.0. If a copy of the MPL was not distributed with this |
|
5 # file, You can obtain one at http://mozilla.org/MPL/2.0/. |
|
6 |
|
7 # This script is intended to be run over the standard output of a |
|
8 # reftest run. It will extract the parts of the output run relevant to |
|
9 # reftest and HTML-ize the URLs. |
|
10 |
|
11 use strict; |
|
12 |
|
13 print <<EOM |
|
14 <html> |
|
15 <head> |
|
16 <title>reftest output</title> |
|
17 </head> |
|
18 <body> |
|
19 <pre> |
|
20 EOM |
|
21 ; |
|
22 |
|
23 while (<>) { |
|
24 next unless /REFTEST/; |
|
25 chomp; |
|
26 chop if /\r$/; |
|
27 s,(TEST-)([^\|]*) \| ([^\|]*) \|(.*),\1\2: <a href="\3">\3</a>\4,; |
|
28 s,(IMAGE[^:]*): (data:.*),<a href="\2">\1</a>,; |
|
29 print; |
|
30 print "\n"; |
|
31 } |
|
32 |
|
33 print <<EOM |
|
34 </pre> |
|
35 </body> |
|
36 </html> |
|
37 EOM |
|
38 ; |