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";
}
}