Hi,
I have written redirect program which is not working.The program
is as follow:
#!c:/perl/bin/perl.exe
$|=1;
while (<>) {
@X = split;
$url = $X[0];
if ($url !~ /^http:\/\/www\.hostname\.com/) {
$_ = $url;
s/^http:\/\/(.*)\/(.*)/http:\/\/www.hostname.com\/\2/;
print "301:$_\n";
} else {
print "$url\n";
}
}
squid config contains:
url_rewrite_program c:/squid/libexec/redirect.pl
url_rewrite_children 15
url_rewrite_concurrency 0
url_rewrite_host_header on
redirector_bypass off
Regards,
Jayesh
