[squid-users] Re: writing storeid.pl file

Real, but obsolete example (squid2.7):

#!/usr/bin/perl
$|=1;
while (<>) {
    chomp;
    @X = split;
if ($X[0] =~ /(youtube|google).*videoplayback\?/){
        @itag = m/[&?](itag=[0-9]*)/;
        @id = m/[&?](id=[^\&\s]*)/;
        @range = m/[&?](range=[^\&\s]*)/;
        @begin = m/[&?](begin=[^\&\s]*)/;
         print
"http://video-srv.youtube.com.SQUIDINTERNAL/@id&@itag@range@begin\n";
    } else {
        print $X[0] . "\n";
    }
}

Send me a beer :-)

--
View this message in context: http://squid-web-proxy-cache.1019090.n4.nabble.com/writing-storeid-pl-file-tp4667206p4667208.html
Sent from the Squid - Users mailing list archive at Nabble.com.