Script Youtube Store.pl Squid 2.7

 Kalo ngomongin si yusuf kadang bikin menarik juga, tapi klo si yusuf lagi kram dan kesemutan bikin tegang juga, usut punya usut harus oprek-oprek script yang buat cache biar bisa hit lagi.

Nah, ini ada sedikit script tambahan yang mungkin bisa sobat-sobat tambahkan di storeurl.pl sobat, biar si yusuf gak galau lagi.

} elsif ($X[1] =~ m/^http(|s)\:\/\/.*youtube.*(ptracking|stream_204|player_204|gen_204).*(video_id|docid|v)\=([^\&\s]*).*/){
        $vid = $4 ;
        @cpn = m/[&?]cpn\=([^\&\s]*)/;
        if (defined($vid )) {
                $fn = "/var/log/squid/@cpn";
                unless (-e $fn) {
                        open FH,">".$fn ;
                        print FH "$vid\n";
                        close FH;
                }
    }
        print $x . $X[1] . "\n";
KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

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

Script diatas sudah tested dan hit, semoga bermanfaat dan menjadikan semangat kita untuk semakin giat menimba ilmu. thanks ...