#!/usr/bin/perl -w

# Phocken laskuri. Kutsutaan siten, että annetaan parametriksi
# numeron kohta (0-5). Nollalla lisää aina laskuria. Laskuridata on
# fileksessä maara.txt

$kohta = $ENV{'QUERY_STRING'}; # Hajetaan kyselyn arvo

until(mkdir("counter.lock", 0))
{
}

# Luetaan laskurin arvo fileestä
open(FILEZ, 'maara.txt');
$maara = <FILEZ>;
close(FILEZ);
chomp $maara;

if(!$kohta) # Lisätään nollalla laskuria
{
    $maara++;
    open(FILEZ, '>maara.txt');
    printf FILEZ "%06d", $maara;
    close(FILEZ);
}

$nakki = sprintf "%06x",$maara;

# Kytketään kohdalla oleva numero giffiin
$lumero = substr $nakki,$kohta,1;
$lumero .= ".gif";

# Tulostetaan kuvatus
print "Content-type: image/gif\n\n";

open(KUVA, $lumero);
@gihvi = <KUVA>;
close(KUVA);
print @gihvi;

rmdir("counter.lock");

# EOS