[SQU] deakamiser

From: Robert Collins <robert.collins@dont-contact.us>
Date: Wed, 6 Dec 2000 15:43:54 +1100

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
Received on Tue Dec 05 2000 - 21:48:39 MST

This archive was generated by hypermail pre-2.1.9 : Tue Dec 09 2003 - 16:56:51 MST