Mercurial > hg > reproctool-df

comparison reproctool.cgi @ 26:be92d2f1ab3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merging -df
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 25 Jan 2009 17:31:03 +0000
parents ccbd8fa63b9f b505b076c493
children 789877ff0e1a
comparison
equal deleted inserted replaced
25:ccbd8fa63b9f 26:be92d2f1ab3f
1 #!/usr/bin/perl -T 1 #!/usr/bin/perl -T
2 2
3 use warnings; 3 use warnings;
4 use strict; 4 use strict;
5 5
6 use Switch;
6 use CGI; 7 use CGI;
7 use DBI; 8 use DBI;
8 use LWP::UserAgent; 9 use LWP::UserAgent;
9 use Storable qw/store_fd fd_retrieve/; 10 use Storable qw/store_fd fd_retrieve/;
10 11
214 my $col = 0; 215 my $col = 0;
215 print<<END; 216 print<<END;
216 <html> 217 <html>
217 <head> 218 <head>
218 <style type="text/css"> 219 <style type="text/css">
219 .meta4, .meta5, .meta6, .meta7, .meta8, .meta9 220 .reg
220 {
221 color: #FF0000;
222 }
223 .item
224 { 221 {
225 text-align: center; 222 text-align: center;
226 } 223 }
227 </style> 224 </style>
228 </head> 225 </head>
239 { 236 {
240 print "</tr><tr>\n"; 237 print "</tr><tr>\n";
241 $col = 0; 238 $col = 0;
242 } 239 }
243 240
244 my ($style, $img, $text, $link, $colour); 241 my ($img, $text, $link, $colour);
245 242
246 if (defined $item->{id}) 243 if (defined $item->{id})
247 { 244 {
248 $style = "meta$item->{meta}";
249 if ($igb) 245 if ($igb)
250 { 246 {
251 $img = "typeicon:$item->{id}"; 247 $img = "typeicon:$item->{id}";
252 $link = "showinfo:$item->{id}"; 248 $link = "showinfo:$item->{id}";
253 } 249 }
254 else 250 else
255 { 251 {
256 $img = "$img_http_path/icons/icons_items_png/64_64/icon$item->{icon}.png"; 252 $img = "$img_http_path/icons/icons_items_png/64_64/icon$item->{icon}.png";
257 } 253 }
258 254
259 if ($item->{meta} == 4) 255 switch ($item->{meta})
256 {
257 case 0 { $colour = "#666600"; }
258 case 1 { $colour = "#777777"; }
259 case 2 { $colour = "#BBBBBB"; }
260 case 3 { $colour = "#FFFFFF"; }
261 case 4 { $colour = "#4444FF"; }
262 case 5 { $colour = "#FF0000"; }
263 case [6..30]{ $colour = "#00FF00"; }
264 }
265
266 if ($item->{meta} >= 4)
260 { 267 {
261 $text = $item->{name}; 268 $text = $item->{name};
262 $colour = "#FF0000";
263 } 269 }
264 else 270 else
265 { 271 {
266 $text = $item->{reprocessIsk}; 272 $text = $item->{reprocessIsk};
267 } 273 }
270 { 276 {
271 $text = 'Unknown item'; 277 $text = 'Unknown item';
272 $img = "typeicon:07_15"; 278 $img = "typeicon:07_15";
273 } 279 }
274 280
275 print "<td width='64' class='item'>"; 281 print "<td width='64' class='reg'>";
276 print "<a href='$link'>" if defined $link; 282 print "<a href='$link'>" if defined $link;
277 print "<img src='$img' width='64' height='64' border='1' "; 283 print "<img src='$img' width='64' height='64' border='1' ";
278 print "title=\"$item->{name}\" alt=\"$item->{name} ($item->{reprocessDetails})\" />"; 284 print "title=\"$item->{name}\" alt=\"$item->{name} ($item->{reprocessDetails})\" />";
279 print "</a>" if defined $link; 285 print "</a>" if defined $link;
280 print "<br />"; 286 print "<br />";