[SQU] deakamiser

I finally got ticked off with akamai consistently choosing a different
'accelerator' every single time I used an akamaised(sp?) site.... I
present to you the de-akamiser. (Hey I'm not a perl programmer... but
I'm happy to accept feedback.

My cache rate is looking much better now :]

#!/usr/bin/perl

$|=1;

while (<>) {
                s@^(http://[^ ]*\.[^ ]*\.akamai\.net/[^ .]*/[^ .]*/[^
.]*/[^ .]*/)([^ ]*) (.*)@301:http://$2@;
                print;
        }

===
note that there is a space before the (.*)@301

Rob

--
To unsubscribe, see http://www.squid-cache.org/mailing-lists.html