#!/usr/bin/perl 

$parameter = $ENV{QUERY_STRING}; 
$ip_adresse = $ENV{'REMOTE_ADDR'}; 

($was,$url) = split(/\|/ , $parameter); 

$file = $url; 
$file =~ s/http|\/|:|www|-|\.|\?|\=//g; 
$datei = $file . ".txt"; 
$log = $file . ".log"; 

if ($was eq "count") {&count;}; 
if ($was eq "show"){&show;}; 

sub einlesen{ 
  open (DATA, "<$log"); 
  $ip = <DATA>; 
  close (DATA); 
  open (CLICKDATA,"<$datei"); 
  $clicks = <CLICKDATA>; 
  close (CLICKDATA); 
  if ($clicks eq ""){$clicks = "0";}; 
  if ($clicks eq "555"){$clicks = "0";}; 
  $clicks++; 
} 

sub show { 
  &einlesen; 
  print "Content-type: text/html\n\n"; 
  print "document.write('$clicks ');"; 
  if ($clicks eq "555") {
    print "document.write(' <a href=http://www.meinedomain.de/gewinn-id3464442578 target=main><img src=http://www.meinedomain.de/images/gewinn.gif width=80 height=25 border=0 align=absmiddle></a>');";
  }; 
  exit; 
} 

sub ausgeben{ 
  open (CLICKDATA,">$datei"); 
  print CLICKDATA "$clicks"; 
  close (CLICKDATA); 
  open (DATA,">$log"); 
  print DATA "$ip_adresse"; 
  close (DATA); 
} 

sub count { 
  &einlesen; 
  if ($ip ne $ip_adresse){ 
    &ausgeben; 
  } 
  print "Location: $url\n\n"; 
  exit; 
}