#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
########################################################################################
# Nichts weiter ändern ab hier
########################################################################################
use Fcntl qw(:DEFAULT :flock);

if ($ENV{'QUERY_STRING'} ne "") {$temp = $ENV{'QUERY_STRING'}}
@pairs=split(/&/,$temp);
foreach $item(@pairs) {($key,$content)=split (/=/,$item,2);
$content=~tr/+/ /;
$content=~ s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;}

open(DATEI,"+<linksdat/$fields{'typ'}.dat") or &fehler("Kann Datei daten.dat nicht oeffnen!");
flock(DATEI, 2);
@dateiinhalt = <DATEI>;
seek(DATEI,0,0);
foreach $eintraege (@dateiinhalt) { 
chomp($eintraege);
($id,$hpn,$url,$ltext,$datum,$clicks)=split(/\|/,$eintraege);
if ($fields{'id'} eq $id) {
$thelink = $url;
$clicks++;
print DATEI "$id|$hpn|$url|$ltext|$datum|$clicks\n";
} else {
print DATEI "$eintraege\n";
}
}
flock(DATEI, 8);
close(DATEI);
print "Location: $thelink\n\n";
exit;

