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; |