view release on metacpan or  search on metacpan

cgi-bin/app-button  view on Meta::CPAN

use CGI;
$cgi = new CGI;

use GD;

#########################################################
# CREATE THE IMAGE
#########################################################
$type = $cgi->param("type");
$type = "png" if (!$type || $type ne "jpeg");

$height = $cgi->param("height");
$height = 19 if (!$height);

$width = $cgi->param("width");
$width = 85 if (!$width);

$im = new GD::Image($width,$height);

#########################################################

cgi-bin/app-button  view on Meta::CPAN

if ($method ne "HEAD") {
    if ($type eq "jpeg") {
        $quality = $cgi->param("quality");
        $quality = 100 if (!defined $quality || $quality !~ /^[0-9]+$/);
        $quality = 0 if ($quality < 0);
        $quality = 100 if ($quality > 100);
        print $im->jpeg($quality);
    }
    else {
        print $im->png;
    }
}