Foro de elhacker.net

Holas,

Buscando por la WEB como redireccionar una URL para otra encontre este script y lo adapte a mis necesidades, necesito que cuando algun usuario pida www.facebook.com lo diriga a m.facebook.com pero no me funciona ya di permisos a mi ejecutable y la regla la puse por encima de todos los permisos del squid para que sea la primera en verificar. Alguna idea que puede estar pasando o si alguien sabe como lograr esto porfa me urge...

Saludos

 
#!/usr/bin/perl
$mirror = "m.facebook.com";
 
$| = 1;
while (<>) {
    @line = split;
    $_ = $line[0];
    if (m/^http:\/\/((?:[a-z0-9]+\.)?\.facebook\.com )\/(.*)/ &&
        $1 ne $mirror) {
        print "http://" . $mirror . "/" . $2 . "\n";
    } else {
        print $_ . "\n";
    }
}