Code is porn

#!/usr/bin/perl
$|=1;

while (<>) {

    @X = split; $url = $X[0]; $url =~s/[\n|\r]//gi; $gurl = $url;

    # kecuali address mu
 
    if (
        ($gurl =~ /^http\:\/\/what\.youraddress\.net/) ||
        ($gurl =~ /^http\:\/\/192\.168\.192\.254/) ||
        ($gurl =~ /^http\:\/\/other\.youraddress\.net/)
    ){
        print "$gurl\n";
    } else {
        print "http://youraddress.net/togo\n";
    }

}

exit;

url_rewrite_program /yourpath/this-redirect-script
url_rewrite_children 12

Label: perl, squid

diposting oleh Unknown  # 00:34