store-id.pl

#!/usr/bin/perl
# ISI DARI STORE-ID DIBAWAH INI DARI SHUDY
# SHUDYLAH BERBAGI ILMU :3
# ucok_karnadi(at)yahoo.com or https://twitter.com/syaifuddin_jw

# send link from youtube contain >> (ptracking|stream_204|player_204|gen_204) to storeurl


$|=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];
}

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/yt/@cpn";
		unless (-e $fn) {
			open FH,">".$fn ;
			print FH "$vid\n";
			close FH;
		}
        $out = $x ;

} 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/yt/@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/id=" . $id . "&@itag@range@mime";

} else {
        $out=$x;

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