if(-e "protected/var_3.pl"    ) {require "protected/var_3.pl";$|=1;    } else {&fehler($msg="File protected/var_3.pl not found!");}
if(-e "protected/data/ranklist.lst") {require "protected/data/ranklist.lst";$|=1;}

&init_cgi;
sub init_cgi {
use CGI; 
   $req = new CGI;
   @daten=$req->param;
   for(@daten) {
   my $value = $req->param($_);
    $in{$_} = $value;
   }
}
if($in{'usr'} ne '') {
if($in{'btn'} eq '') {$nr=1;} else {$nr=$in{'btn'};}
if($in{'cat'} ne '') {if(-e "protected/data/$in{'cat'}\_ranklist.lst") {require "protected/data/$in{'cat'}\_ranklist.lst";$|=1;}}
$name    = $in{'usr'};

if($in{'cat'} eq '') {
$button	 = $btn{$nr};
if($rank{$name} eq ''){$rank{$name} = $norangtxt{$nr};}
if($rank{$name} eq '0'){$rank{$name} = $norangtxt{$nr};}
}
if($in{'cat'} ne '') {
$nr      = $in{'cat'}."_".$nr;
$button	 = $btn{$nr};
if($catrank{$name} eq ''){$catrank{$name} = $norangtxt{$nr};}
if($catrank{$name} eq '0'){$catrank{$name} = $norangtxt{$nr};}
$rank{$name}=$catrank{$name};
}
&print_button;
exit;
} else {&fehler($msg="unknown parameter!");}

sub print_button {
use Image::Magick;
$image=Image::Magick->new;

$image->Read($button);

$image->Quantize(
#colors=>256,
colorspace=>$colorspace{$nr},
dither=>True,
measure_error=>True,
global_colormap=>True
);

#$image->Set(
#antialias=>'True', 
#colorspace=>RGB, 
#compression=>None, 
#fill=>black, 
#magick=>PNG, 
#matte=>True,
#mattecolor=>black,
#quality=>PNG,
#type=>TrueColorMatte
#);

$antialias{$nr} = 'false' if $antialias{$nr} eq '';

$image->Annotate(
font			 => $font{$nr}, 
pointsize		 => $fsize{$nr}, 
fill			 => $fcolor{$nr}, 
text			 => $rank{$name} , 
x				 => $coordx{$nr}, 
y				 => $coordy{$nr}, 
align			 => $balign{$nr},
antialias		 => $antialias{$nr}
);

print "Content-type: image/gif\n\n";
$image->Write("$bformat{$nr}:-");
undef $image;
}










sub fehler {
print "Content-Type: text/html\n\n";
print $msg;
exit;
}