#!/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";
}
Published in: CGI
Download

Related snippets