View difference between Paste ID: weLxxv6v and E2QqKjjp
SHOW: | | - or go back to the newest paste.
1
#link content
2
https://r8---sn-2uuxa3vh-ngbe.googlevideo.com/videoplayback?id=o-AD6jAILInhzVhX3S1E3ve9pYA57KzFSg-vaRCRZcaKgy&upn=QnWNPXQSgOM&key=yt6&ip=36.73.35.107&ipbits=0&pl=22&signature=C852A771582D4F0C8D0C51E836A162B321B17A7E.CD317A828AD352CE8D71552473E31BECFC7029B5&sver=3&requiressl=yes&initcwndbps=630000&sparams=clen%2Cdur%2Cgir%2Cid%2Cinitcwndbps%2Cip%2Cipbits%2Citag%2Clmt%2Cmime%2Cmm%2Cmn%2Cms%2Cmv%2Cpl%2Crequiressl%2Csource%2Cupn%2Cexpire&fexp=9414671%2C9416126%2C9418643%2C9419444%2C9419476%2C9420452%2C9422342%2C9422401%2C9422596%2C9423662%2C9424488%2C9426724%2C9427057%2C9427714&itag=140&expire=1453422411&mime=audio%2Fmp4&source=youtube&mt=1453400690&mv=m&ms=au&lmt=1445327212448241&clen=24237739&gir=yes&mm=31&mn=sn-2uuxa3vh-ngbe&dur=1526.038&cpn=Bquaba06al1aq00E&alr=yes&keepalive=yes&ratebypass=yes&c=WEB&cver=html5&range=1273544-1591136&rn=17&rbuf=80016
3
4
# referer
5
https://www.youtube.com/embed/BHZCCUEzK0s
6
https://www.youtube.com/v/BHZCCUEzK0s
7
https://www.youtube.com/watch?v=BHZCCUEzK0s
8
9
# regex 
10
\/(watch\?v\=|embed\/|v\/)(.*)
11
12
# Regex Tester
13
http://rubular.com/r/83JpQKDWIf
14
15
16
store_id_extras "%>a/%>A %un %>rm myip=%la myport=%lp referer=%{Referer}>h"  # Use string $X[0] & $X[6]
17
store_id_extras "%{Referer}>h"  # If you use this config so your string must be $X[0] & $X[1]
18
19
20
http://pastebin.com/4c85Yrjk
21
22
#!/usr/bin/perl
23
$|=1;
24
while (<>) {
25
my $chan = "";
26
if (s/^(\d+\s+)//o) {
27
$chan = $1;
28
}
29
@X = split(" ",$_);
30
31
if ($X[0] =~ m/^https?\:\/\/.*(youtube|google).*videoplayback.*/){
32
        @itag = m/[&?](itag=[0-9]*)/;
33
        @id = m/[&?]id\=([^\&\s]*)/;
34
        @mime = m/[&?](mime\=[^\&\s]*)/;
35
        @cpn = m/[&?]cpn\=([^\&\s]*)/;
36
        @range = m/[&?](range=[^\&\s]*)/;
37
		if ($X[1] =~ m/\/(watch\?v\=|embed\/|v\/)(.*)/) { 
38
			@id = $2;
39
		}
40
        print $chan, "OK store-id=http://googlevideo.squid.internal/id=@id&@itag&@range&@mime\n" ;
41
} else {
42
        print $chan, "ERR\n" ;
43
}
44
}