se quiser botar mais hots entao agora só eu ir acrscentando
elseif ($url =~ /^http:\/\/inicio[0-9]{3}.host.com/) {
$url =~ s/inicio[0-9]{3}/novoinicio/;
print $fh "saida: $url\n";
print "$url\n";
}
é isso?
tem como explicar?
Abraçao
Versão Imprimível
se quiser botar mais hots entao agora só eu ir acrscentando
elseif ($url =~ /^http:\/\/inicio[0-9]{3}.host.com/) {
$url =~ s/inicio[0-9]{3}/novoinicio/;
print $fh "saida: $url\n";
print "$url\n";
}
é isso?
tem como explicar?
Abraçao
saquei valeu =D
depois que estiver com tudo OK coloca no wiki, assim é melhor até para atualizações.
testei o codigo novo tah trancando o squid :/
Código :
#!/usr/bin/perl #X[0]-> URL EX: IMG1.ORKUT.COM #X[1]-> CLIENT IP: 189.10.203.13/ANGEL.GINET.COM.BR #X[2]-> - #X[3]-> GET ou POST #X[4]-> - #X[5]-> MYIP : 189.10.203.1 OU 127.0.0.1 #X[6]-> MYPORT EX: 8012 $|=1; while (<>) { open $fh, ">>/tmp/debug_url_redirect.log"; @X = split; $url = $X[0]; print $fh "entrada: $url\n"; if ($url =~ /^http:\/\/img[2-9]\.orkut\.com.*/) { $url =~ s/img[0-9]/img1/; print $fh "saida: $url\n"; print "$url\n"; } elseif ($url =~ /^http:\/\/download[0-9]{3}.avast.com/) { $url =~ s/download[0-9]{3}/download605/; print $fh "saida: $url\n"; print "$url\n"; } else { print $fh "nao redirecionado\n"; print "\n"; } close $fh;
apesar de estar injetando normal (conferi pelo velho só habilitei pra o dominio avast.com tbm passar pelo redirector)
entrada: http://img1.orkut.com/js/gen/groups009.js
nao redirecionado
entrada: http://download933.avast.com/iavs4x/..._pro.vpu.stamp
nao redirecionado
entrada: http://download933.avast.com/iavs4x/vpsm-8070800.vpu
nao redirecionado
entrada: http://download933.avast.com/cgi-bin/iavs4stats.cgi
nao redirecionado
entrada: http://download933.avast.com/cgi-bin/iavs4stats.cgi
se eu coloco o script novo ele tranca :(