here here:
#!/usr/bin/perl
$defaulturl = "http://www.otashki.cjb.net";
@okaysites = ("http://www.otashki.cjb.net", "http://otashki.hypermart.net");
$url_1 = "http://otashki.hypemart.net/images";
$url_2 = "http://otashki.hypemart.net/wallpapers";
$url_3 = "http://otashki.hypemart.net/pocards";
$url_4 = "http://otashki.hypemart.net/cibooks";
$url_5 = "http://otashki.hypemart.net/downloads";
@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'};
$yes = 0;
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;
oh and nice avatar meow it tells every1 what u are like
#!/usr/bin/perl
$defaulturl = "http://www.otashki.cjb.net";
@okaysites = ("http://www.otashki.cjb.net", "http://otashki.hypermart.net");
$url_1 = "http://otashki.hypemart.net/images";
$url_2 = "http://otashki.hypemart.net/wallpapers";
$url_3 = "http://otashki.hypemart.net/pocards";
$url_4 = "http://otashki.hypemart.net/cibooks";
$url_5 = "http://otashki.hypemart.net/downloads";
@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'};
$yes = 0;
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;
oh and nice avatar meow it tells every1 what u are like