Pipecrew

#!/usr/bin/perl
$where = $ENV{'QUERY_STRING'};

#This is the url to your out script
###################################
$url = "http://cz3.clickzs.com/cj2.php?username";

#What percentage of surfers should go to the intended gallery
##################################################
###########
$pig = "70";

srand;
$n = int rand(100);
if ($n < $pig)
{
print "Location: $where\n\n";
}
else
{
print "Location: $url\n\n";
}








I want to use this script to basically skim some of my clickz trades.... Only problem is I have more then 1 clickz code I'd like to use, anyone know how to change this to randomly pick different clickz out urls like?


http://cz3.clickzs.com/cj3.php?username
http://cz3.clickzs.com/cj8.php?username
http://cz3.clickzs.com/cj9.php?username


etc ?


any help would be great, thanks

s9ann0

#!/usr/bin/perl
$where = $ENV{'QUERY_STRING'};

#This is the url to your out script
###################################
$url = "http://cz3.clickzs.com/cj2.php?username";

# url's array use as many as u want

@out_urls = (
'http://blah.com/blah1',
'http://www.222blah.com/blah2',
'http://blah564.com/blkah.htm'
);

#What percentage of surfers should go to the intended gallery
##################################################

###########
$pig = "70";

srand;
$n = int rand(100);
if ($n < $pig)
{
print "Location: $where\n\n";
}
else
{
print "Location: $out_urls[(int rand(@out_urls))]\n\n";
}

Pipecrew

Thanks man! you help me tons all the time

Steve

You know Gerco is testing out gallery link skimming? I saw it in action on one of his pornstar TGPs. This feature will be added very soon.