test

test storeid



} elsif ($x =~ m/^http\:\/\/.*(youtube|google).*videoplayback.*/){
@itag = m/[&?](itag=[0-9]*)/;
@ids = m/[&?]id\=([^\&\s]*)/;
@mime = m/[&?](mime\=[^\&\s]*)/;
@cpn = m/[&?]cpn\=([^\&\s]*)/;
$fn = "/var/log/squid/@cpn";
if (-e $fn) {
open FH,"<".$fn ;
$id = <FH>;
chomp $id ;
close FH ;
} else {
$id = $ids[0] ;
}
@range = m/[&?](range=[^\&\s]*)/;
$out = "http://video-srv.youtube.com.SQUIDINTERNAL/id=" . $id . "&@itag@range@mime";

---------------------
elsif ($x =~ m/^http\:\/\/.*(youtube|google).*videoplayback.*/)
elsif ($x =~ m/^http\:\/\/.*(youtube|googlevideo).*videoplayback.*/)

#squid conf
acl youtube url_regex -i (youtube|google).*\/videoplayback\?.*
acl youtube url_regex -i (youtube|googlevideo).*\/videoplayback\?.*