#!/usr/bin/perl
# Look in the readme.txt file for help setting up this script

$defaulturl = "http://www.downloadpost.com";

@okaysites = ("http://www.downloadpost.com", "http://downloadpost.com");  

$url_1 = "http://www.downloadpost.com/php/353_/f1lez";
$url_2 = "http://69.50.190.242/~quickwar/M4y";
$url_3 = "http://downloads.com/new";


####################### DO NOT EDIT BELOW THIS LINE ######################

@querypairs = split(/&/, $ENV{'QUERY_STRING'});
foreach $querypair (@querypairs) {
	($queryname, $queryvalue) = split(/=/, $querypair);
	$queryvalue =~ tr/+/ /;
	$queryvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $queryvalue =~ s/<([^>]|\n)*>//g;
	if ($QUERY{$queryname}) { $QUERY{$queryname} = $QUERY{$queryname}.",".$queryvalue; }
	else { $QUERY{$queryname} = $queryvalue; }
}

$reffer = $ENV{'HTTP_REFERER'};
foreach $domain (@okaysites) {
if ($reffer =~ /$domain/) {
$yes = 1;
}
}

$theu = "url"."_"."$QUERY{'site'}";

if ($$theu && $yes == 1) {
print "Location: $$theu/$QUERY{'filename'}\n\n";
} else {
print "Location: $defaulturl\n\n";
}
exit;