|
171 | 171 | $l->{percentage} = ($l->{finished}+$l->{unfinished}/2)/$maxn*100;
|
172 | 172 | }
|
173 | 173 |
|
174 |
| -if ( @ARGV && $ARGV[0] eq "site") { |
175 |
| - print "<html><body>"; |
176 |
| - print "<head>"; |
177 |
| - print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"/>"; |
178 |
| - print "<style>"; |
179 |
| - print "body {font-family:sans-serif; background-color:#d3d3d3; }"; |
180 |
| - print "table {font-size:80%;border-collapse: collapse;}"; |
181 |
| - print "td {border-left:solid 1px #aaaaaa;border-right:solid 1px #aaaaaa;padding:1px 10px;}"; |
182 |
| - print ".bartodo{ background-color:red;width:100px;height:20px;}"; |
183 |
| - print ".bardone{ background-color:green;width:80px;height:20px;font-size:80%;text-align:center;padding-top:4px;height:16px;color:white;}"; |
184 |
| - print "</style></head>"; |
185 |
| - print "<table>"; |
186 |
| - print "<tr><td colspan=\"2\" style=\"width:250px;\">Language</td><td>Count</td><td>Finished</td><td>Unfinished</td><td>Untranslated</td><td>Percentage</td><td>Translators</td></tr>\n"; |
187 |
| - for my $l (sort { $b->{percentage} <=> $a->{percentage} } @lang) { |
188 |
| - last if $l->{percentage} < 35; |
189 |
| - printf "\n<tr>" |
190 |
| - . '<td align="center"><img src="flags/%s.svg" height="20"></td><td nowrap>%s</td>' |
191 |
| - . '<td nowrap>%s</td><td>%d</td><td>%d</td><td>%d</td>' |
192 |
| - . '<td><div class="bartodo"><div class="bardone" style="width:%dpx">%.1f</div></div></td>' |
193 |
| - . '<td>%s</td>' |
194 |
| - . '</tr>', |
195 |
| - $l->{code}, $l->{name}, |
196 |
| - $l->{diff}==0 ? $l->{n} : "$l->{n} ($l->{diff})", |
197 |
| - $l->{finished}, $l->{unfinished}, $l->{untranslated}, |
198 |
| - $l->{percentage}, $l->{percentage}, |
199 |
| - $l->{translator}; |
200 |
| - } |
201 |
| - print "</table></body></html>\n"; |
202 |
| -} else { |
203 |
| - print "<style>"; |
204 |
| - print "body { font-family:sans-serif; background-color:#d3d3d3; }"; |
205 |
| - print "table {font-size:80%;}"; |
206 |
| - print "th {text-align:left; }"; |
207 |
| - print ".bartodo{ background-color:red;width:100px;height:20px;}"; |
208 |
| - print ".bardone{ background-color:green;width:80px;height:20px;font-size:80%;text-align:center;padding-top:4px;height:16px;color:white;}"; |
209 |
| - print "</style>"; |
210 |
| - print "<table>"; |
211 |
| - print "<tr><th colspan=\"2\" style=\"width:250px;\">Language</th><th>Finished %</th><th>Translators</th></tr>\n"; |
212 |
| - for my $l (sort { $b->{percentage} <=> $a->{percentage} } @lang) { |
213 |
| - last if $l->{percentage} < 35; |
214 |
| - printf "\n<tr>" |
215 |
| - . '<td align="center"><img src="qrc:/images/flags/%s.svg" height="20"></td><td>%s</td>' |
216 |
| - . '<td><div title="finished:%d unfinished:%d untranslated:%d" class="bartodo"><div class="bardone" style="width:%dpx">%.1f</div></div></td>' |
217 |
| - . '<td>%s</td>' |
218 |
| - . '</tr>', |
219 |
| - $l->{code}, $l->{name}, |
220 |
| - $l->{finished}, $l->{unfinished}, $l->{untranslated}, |
221 |
| - $l->{percentage}, $l->{percentage}, |
222 |
| - $l->{translator}; |
223 |
| - } |
224 |
| - print "</table>\n"; |
| 174 | +print "<!-- created by scripts/tsstat.pl - Edits will be lost -->\n"; |
| 175 | +print "<style>"; |
| 176 | +print "body { font-family:sans-serif; background-color:#d3d3d3; }"; |
| 177 | +print "table {font-size:80%;}"; |
| 178 | +print "th {text-align:left; }"; |
| 179 | +print ".bartodo{ background-color:red;width:100px;height:20px;}"; |
| 180 | +print ".bardone{ background-color:green;width:80px;height:20px;font-size:80%;text-align:center;padding-top:4px;height:16px;color:white;}"; |
| 181 | +print "</style>"; |
| 182 | +print "<table>"; |
| 183 | +print "<tr><th colspan=\"2\" style=\"width:250px;\">Language</th><th>Finished %</th><th>Translators</th></tr>\n"; |
| 184 | +for my $l (sort { $b->{percentage} <=> $a->{percentage} } @lang) { |
| 185 | + last if $l->{percentage} < 35; |
| 186 | + printf "\n<tr>" |
| 187 | + . '<td align="center"><img src="qrc:/images/flags/%s.svg" height="20"></td><td>%s</td>' |
| 188 | + . '<td><div title="finished:%d unfinished:%d untranslated:%d" class="bartodo"><div class="bardone" style="width:%dpx">%.1f</div></div></td>' |
| 189 | + . '<td>%s</td>' |
| 190 | + . '</tr>', |
| 191 | + $l->{code}, $l->{name}, |
| 192 | + $l->{finished}, $l->{unfinished}, $l->{untranslated}, |
| 193 | + $l->{percentage}, $l->{percentage}, |
| 194 | + $l->{translator}; |
225 | 195 | }
|
| 196 | +print "</table>\n"; |
226 | 197 |
|
227 | 198 | my @ts;
|
228 | 199 | for my $l (sort { $a->{code} cmp $b->{code} } @lang) {
|
|
0 commit comments