#!/usr/bin/perl


$debug = 0; # DEBUG MODE ON

$query = $ENV{'QUERY_STRING'};

open(COUNTRD,"sponsor.count");
flock(COUNTRD,2);
$count = <COUNTRD>;
flock(COUNTRD,8);
close(COUNTRD);

if($count == 1) {
        if($query eq "call") {
                $name = "easyteenz"; # CORE 18 ACCOUNT
        }
        elsif($query eq "max") {
                $name = "go2web"; # babylon-x für mich
        }
        else {
                $name = "easyteenz"; # DEFAULT ACCOUNT ALSO CORE 18 =)
                $query = "call";
        }
        $count++;
}
elsif($count == 2) {
        if($query eq "call") {
                $name = "goty"; # URSPRÜNGLICH CALL-GIRLS JETZT ABER CORE18!
        }
        elsif($query eq "max") {
                $name = "pgms";
        }
        else {
                $name = "goty";
                $query = "call";
        }
        $count--;
}
else {
        $name = "easyteenz";
        $count = 2;
}

if($debug == 1) {
print "content-type: text/html\n\n";
}

open(COUNTWR,">sponsor.count");
flock(COUNTWR,2);
print COUNTWR "$count";
flock(COUNTWR,8);
close(COUNTWR);

if($query eq "max") {
        print "Location: http://www.karasxxx.com/guests/index.shtml?$name\n\n";
}
elsif($query eq "call") {
        print "Location: http://www.call-girls.net/cgi-bin/click?id=$name\n\n";
}
else
{
        print "Location: http://www.call-girls.net/cgi-bin/click?id=$name\n\n";
}