| #!/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}; | |
| if( -e "cache/$ys.png" ) { | |
| system( "cat cache/$ys.png" ); | |
| } else { | |
| my $img = GD::Simple->new(62,15); | |
| my ($y1,$y2,$y3) = $ys =~ /(\d+),(\d+),(\d+)/; | |
| # draw a red rectangle with blue borders | |
| $img->bgcolor(200,200,200); | |
| $img->fgcolor(100,100,100); | |
| $img->rectangle(0, (15-$y1) ,15,15); | |
| $img->rectangle(17, (15-$y2) ,32,15); | |
| $img->rectangle(34, (15-$y3) ,47,15); | |
| # convert into png data | |
| print $img->png; | |
| open CACHE, ">cache/$ys.png"; | |
| print CACHE $img->png; | |
| } |