28 |
'Completed/Failure' => '128,0,128', |
'Completed/Failure' => '128,0,128', |
29 |
'Mount Request' => '128,128,255', |
'Mount Request' => '128,128,255', |
30 |
'Mount/Errors' => '255,64,128', |
'Mount/Errors' => '255,64,128', |
31 |
|
'Mount/Failures' => '255,128,192', |
32 |
); |
); |
33 |
|
|
34 |
my $int_t = (12 * 60 * 60); # interval to display on one screen |
my $int_t = (12 * 60 * 60); # interval to display on one screen |
70 |
$im->transparent($back); |
$im->transparent($back); |
71 |
my $col = path_info(); $col =~ s,/,,g; |
my $col = path_info(); $col =~ s,/,,g; |
72 |
my ($r,$g,$b) = split(/,/,$col); |
my ($r,$g,$b) = split(/,/,$col); |
73 |
my $col = $im->colorAllocate($r,$g,$b); |
$col = $im->colorAllocate($r,$g,$b); |
74 |
$im->fill(0,0,$col); |
$im->fill(0,0,$col); |
75 |
print "Content-Length: ",length($im->png),"\n\n"; |
print "Content-Length: ",length($im->png),"\n\n"; |
76 |
binmode STDOUT; |
binmode STDOUT; |
232 |
|
|
233 |
my %spec; # specification hash |
my %spec; # specification hash |
234 |
|
|
235 |
my $curr_spec; |
my $curr_spec = ""; |
236 |
my $curr_t = $from_t; |
my $curr_t = $from_t; |
237 |
|
|
238 |
$sth->execute() || die "sql: $sql ".$dbh->errstr; |
$sth->execute() || die "sql: $sql ".$dbh->errstr; |