author | Bob Rosenberg <bob.rosenberg@nokia.com> |
Tue, 22 Jun 2010 10:59:57 +0100 | |
branch | HighFidelityModel |
changeset 312 | 9527bd30de64 |
parent 311 | e9d0240c3e66 |
permissions | -rw-r--r-- |
311
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
1 |
#!/usr/bin/perl |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
2 |
$bld = shift || "symbian3_FCL.single.316"; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
3 |
$ver = $bld; $ver =~s/_.*// ; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
4 |
$url = "http://cdn.symbian.org/SF_builds/$ver/builds/FCL/$bld/html/index.html"; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
5 |
$data = `wget -O - -nv -q $url`; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
6 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
7 |
#open F,shift; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
8 |
#$data = join('',<F>); |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
9 |
#close F; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
10 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
11 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
12 |
$state = 'start'; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
13 |
foreach (split(/\n/,$data)) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
14 |
s,[\r\n],,g; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
15 |
if($state eq 'start' && /<table/) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
16 |
$state = 'general'; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
17 |
} elsif($state eq 'general' && /<table/) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
18 |
$state = 'pkg'; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
19 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
20 |
if($state eq 'pkg') { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
21 |
if(s,<tr><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td></tr>,$1,) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
22 |
my @err = ($2,$3,$4,$5,$6); |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
23 |
s,^.*>(.*?)<.*$,$1,; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
24 |
s,^.*/,,; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
25 |
$critical{$_}=$err[0]; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
26 |
$major{$_}=$err[1]; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
27 |
$minor{$_}=$err[2]; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
28 |
$unknown{$_}=$err[3]; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
29 |
$missing{$_}=$err[4]; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
30 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
31 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
32 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
33 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
34 |
$url=~s,[^/]+$,raptor_unreciped.html,; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
35 |
$data = `wget -O - -nv -q $url`; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
36 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
37 |
#open F,shift; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
38 |
#$data = join('',<F>); |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
39 |
#close F; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
40 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
41 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
42 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
43 |
$state = 'start'; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
44 |
foreach (split(/\n/,$data)) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
45 |
s,[\r\n],,g; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
46 |
if(m,^<br/>([A-Z]+)<br/>$,) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
47 |
$state = $1 |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
48 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
49 |
if(m,<tr><td>[^<]+</td><td>[^<]+</td><td><a href='(.*)?#(.*)$,) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
50 |
$Type{$2} = $state; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
51 |
$listname= $1; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
52 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
53 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
54 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
55 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
56 |
$url=~s,[^/]+$,$listname,; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
57 |
$data = `wget -O - -nv -q $url`; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
58 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
59 |
#open F,shift; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
60 |
#$data = join('',<F>); |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
61 |
#close F; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
62 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
63 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
64 |
$state = 'start'; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
65 |
$cur; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
66 |
foreach (split(/\n/,$data)) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
67 |
if(m,</pre,) {next} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
68 |
if(m,<a name="(.*?)">,) {$cur = $1} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
69 |
elsif(/\S/) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
70 |
m,([E-Z]:/| at )sf/[a-z]+/([^/]+), || print STDERR "$_\n"; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
71 |
my $pkg = $2; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
72 |
if($Type{$cur} eq 'UNKNOWN') { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
73 |
$unknown{$pkg}++; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
74 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
75 |
elsif($Type{$cur} eq 'MAJOR') { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
76 |
$major{$pkg}++; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
77 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
78 |
elsif($Type{$cur} eq 'MINOR') { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
79 |
$minor{$pkg}++; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
80 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
81 |
elsif($Type{$cur} eq 'CRITICAL') { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
82 |
$critical{$pkg}++; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
83 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
84 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
85 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
86 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
87 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
88 |
print "<info data-type=\"status\">\n"; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
89 |
foreach (keys(%critical)) { |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
90 |
print " <item ref=\"$_\" critical=\"$critical{$_}\" major=\"$major{$_}\" minor=\"$minor{$_}\" unknown=\"$unknown{$_}\" missing=\"$missing{$_}\"/>\n"; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
91 |
} |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
92 |
print "</info>\n"; |
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
93 |
|
e9d0240c3e66
Add script and xml used to generate brag svg from the platform build results
andy simpson <andrews@symbian.org>
parents:
diff
changeset
|
94 |