patch store-idby squidlover

    --- /etc/squid/store-id.pl      2014-10-01 14:22:25.215981237 +0700
    +++ /etc/squid/store-id-edit.pl 2014-10-01 15:19:17.000000000 +0700
    @@ -9,34 +9,26 @@
     $|=1;
     while (<>) {
     @X = split;
    -
    -if ( $X[0] =~ m/^http\:\/\/.*/) {
    -$x = $X[0];
    -$_ = $X[0];
    -$u = $X[0];
    -} else {
     $x = $X[1];
    -$_ = $X[1];
    -$u = $X[1];
    -}
    -
    +$y = $X[0] . " ";
     if ($x =~ m/^http(|s)\:\/\/.*youtube.*(ptracking|stream_204|player_204|gen_204).*(video_id|docid|v)\=([^\&\s]*).*/){
             $vid = $4 ;
             @cpn = m/[&?]cpn\=([^\&\s]*)/;
    -               $fn = "/var/log/squid/@cpn";
    +               $fn = "/tmp/@cpn";
                    unless (-e $fn) {
                            open FH,">".$fn ;
                            print FH "$vid\n";
                            close FH;
                    }
    -        $out = $x . "\n";
    +     $out="ERR";
    +

     } elsif ($x =~ m/^https?:\/\/.*(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";
    +               $fn = "/tmp/@cpn";
                    if (-e $fn) {
                            open FH,"<".$fn ;
                            $id  = <FH>;
    @@ -141,12 +133,12 @@
             $out="http://" . $y[0] . ".yimg.com/"  . $y[1] ;

     } else {
    -        $out=$x;
    +        $out="ERR";

     }
    -if ( $X[0] =~ m/^http\:\/\/.*/) {
    - print "OK store-id=$out\n" ;
    +if ( $out =~ m/^https?\:\/\/.*/) {
    + print $y . "OK store-id=$out\n" ;
     } else {
    - print $X[0] . " OK store-id=$out\n" ;
    + print $y . "ERR\n" ;
     }
     }