From: jayesh chavan <jayesh.jayiesh@xxxxxxxxx>
> 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
What about url_rewrite_access?
What do you see in the squid.cache log?
I think you can print debug info to stderr and it will show up in log... right?
JD
