-
Na configuração esta aparecendo o seguinte:
entrada: http://img4.orkut.com/img/castro/google_logo_sml.png
saida: http://img1.orkut.com/img/castro/google_logo_sml.png
nao redirecionado
entrada: http://img4.orkut.com/img/castro/orkut_logo_sml.png
saida: http://img1.orkut.com/img/castro/orkut_logo_sml.png
nao redirecionado
onde poderia estar errando uma vez que não está direcionando?
#!/usr/bin/perl
$|=1;
while (<>) {
open $fh, ">>/tmp/debug_url_redirect.log";
@X = split;
$url = $X[0];
print $fh "entrada: $url\n";
#ORKUT
if ($url =~ /^http:\/\/img[2-9]\.orkut\.com.*/) {
$url =~ s/img[0-9]/img1/;
print $fh "saida: $url\n";
print "$url\n";
}
#AVIRA
# if ($url =~ /^http:\/\/dl[1-9]\.avgate\.net.*/) {
# $url =~ s/dl[0-9]/dl7/;
# print $fh "saida: $url\n";
# print "$url\n";
# }
#AVAST
if ($url =~ /^http:\/\/download[0-9]{3}.avast.com/) {
$url =~ s/download[0-9]{3}/downloadyyy/;
print $fh "saida: $url\n";
print "$url\n";
}
#AVG
if ($url =~ /^http:\/\/akamai.avg.com/) {
$url =~ s/akamai/downloadfree/;
$url =~ s/softw\/80\///;
print $fh "saida: $url\n";
print "$url\n";
}
if ($url =~ /^http:\/\/update.avg.com/) {
$url =~ s/update/guru/;
print $fh "saida: $url\n";
print "$url\n";
}
#Windown Update Caching - Squid Proxy - By Luiz Biazus
#WINDOWS UPDATE LOOP PRIMARIO
if ($url =~ /^http:\/\/download.windowsupdate.com/) {
@achar = split(/\//, $url);
$arquivoachar = $achar[$#achar];
$resultado = `/bin/ls /var/www/html/WINUP`;
@array = split(/\n/, $resultado);
$flag = 0;
for $i (0 .. $#array){
if($array[$i] eq "$arquivoachar") {
$flag = 1;
$id=`/usr/bin/id`;
print $fh "Windows Update Redirecionado de $url Para http://200.205.31.151/WINUP/$arquivoachar user $id\n";
$url = "http://200.205.31.151/WINUP/$arquivoachar";
print $fh "saida: $url\n";
print "http://200.205.31.151/WINUP/$arquivoachar\n";
}
$i++;
}
if ($flag == 0 ) {
exec("cd /var/www/html/WINUP && umask 022 && /usr/bin/wget $url && /bin/chmod +r /var/www/html/WINUP/.$arquivochar");
print $fh "saida: arquivoachar $arquivoachar $url\n";
print "$url\n";
}
}
#WINDOWS UPDATE LOOP SECUNDARIO
if ($url =~ /^http:\/\/au.download.windowsupdate.com/) {
@achar = split(/\//, $url);
$arquivoachar = $achar[$#achar];
$resultado = `/bin/ls /var/www/html/WINUP2`;
@array = split(/\n/, $resultado);
$flag = 0;
for $i (0 .. $#array){
if($array[$i] eq "$arquivoachar") {
$flag = 1;
$id=`/usr/bin/id`;
print $fh "AU Windows Update Redirecionado de $url Para http://200.205.31.151/WINUP2/$arquivoachar user $id\n";
$url = "http://200.205.31.151/WINUP2/$arquivoachar";
print $fh "saida: $url\n";
print "http://200.205.31.151/WINUP2/$arquivoachar\n";
}
$i++;
}
if ($flag == 0 ) {
exec("cd /var/www/html/WINUP2 && umask 022 && /usr/bin/wget $url && /bin/chmod +r /var/www/html/WINUP2/.$arquivochar");
print $fh "AU saida: arquivoachar $arquivoachar $url\n";
print "$url\n";
}
}
else {
print $fh "nao redirecionado\n";
print "\n";
}
close $fh;
}
## sur_dominios.txt
.orkut.com
.avast.com
guru.avg.com
downloadfree.avg.com
akamai.avg.com
update.avg.com
.avgate.com
au.download.windowsupdate.com
download.windowsupdate.com
.update.microsoft.com
Gilberto
-
o "nao redirecionado" neste caso aparece de intrometido, pois o serviço foi feito, veja que em "saída" existe uma nova url para o endereço.
-
exatamente amigo esta tudo certo como pode ver ele esta sendo redirecionado do img4 para o img1 .
-
-
você adicionou o endereço au.download.windowsupdate.com a acl