| #!/usr/bin/perl |
| # Copyright (c) 2006 Eclipse Foundation, made available under EPL v1.0 |
| # Contributors Ward Cunningham, Bjorn Freeman-Benson |
| # |
| |
| use strict; |
| |
| use GD::Simple; |
| |
| print "Content-type: image/png\n"; |
| print "Cache-Control: post-check=3600,pre-check=43200\n"; |
| print "Cache-Control: max-age=86400\n"; |
| print "Expires: Mon, 01 Jan 2099 05:00:00 GMT\n"; |
| print "\n"; |
| |
| # create a new image |
| |
| my $ys = $ENV{QUERY_STRING}; |
| my $img = GD::Simple->new(17,15); |
| my ( $y1 ) = $ys =~ /(\d+)/; |
| $img->bgcolor(200,200,200); |
| $img->fgcolor(100,100,100); |
| $img->rectangle(0, (15-$y1) ,15,15); |
| |
| # convert into png data |
| print $img->png; |
| open CACHE, ">images/15bar${y1}.png"; |
| print CACHE $img->png; |
| |