#!/usr/bin/perl
#Grafikus szamlalo program (C)1998, eszpee@freemail.c3.hu
#Hivatkozas: <IMG SRC="nev?x"> ahol nev a program neve es x a helyiertek 0-tol szamozva
#Atallitas: nev?ujszam=x ahol nev a program neve es x a kivant ertek

#print "Content-type:text/plain\n\nsuxxxxxxxxxxxxxxxxx";

#Konstansok:
$kepstart = "";
$kepveg = ".gif";
$szamlalo = "gc.dat";
$ureskep = "ures";
$legnagyobb = 0; #vizsgalt legnagyobb helyiertek

#Foprogram
$be = $ENV{'QUERY_STRING'};
open (C,"<$szamlalo") || die ("Content-type:text/plain\n\nsux");
$c = <C>;
close(C);
if ($be =~ /=/) {
 ($egy, $ketto) = split/=/,$be;
 open (C,">$szamlalo") || die ("Content-type:text/plain\n\nsuxxxx");
 print C $ketto; 
 close (C);
 print "Content-type:text/plain\n\nSzamlalo uj erteke: $ketto";
 exit;
}
$szam = (length($c)-$be)-1;
if ($szam < 0) {
 $kep = $ureskep;
}
else {
 $kep = substr($c, $szam, 1);
}
#print "Content-type: image/gif\n\n";
print "Location: $kepstart$kep$kepveg\n\n";
# szamlalo noveles
if ($be eq $legnagyobb) {
	$c = $c+1;
	open (CC,">$szamlalo")  || die ("Content-type:text/plain\n\nsuxxxx");;
	print CC $c;
	close (CC);
}
exit;