(SHARE) MENGATASI ERROR BUKA YOUTUBE
-
jadi nya om kapten harus update storeurl.pl ya ?
-
untuk resolusi all itag saya ambil dari website OM Syaifuddin_JW aka ucok_karnadi tetapi belum membuahkan hasil, saya tidak memiliki resolusi (itag) 240p , maka karena itu saya tidak bisa memutar video yang memiliki kualitas 240p, bagi yang memiliki storeurl.pl untuk youtube ukran 240p sudi kiranya mempostingkan settingan storeurl.pl nya disini ^_^
untuk yang masih ngeror juga, tidak usah galau cobain dulu, untuk bagian ini coba dihapus saja
youtube All itag (semua resolusi)
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(itag=[0-9]).?&(id=[a-zA-Z0-9])./) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&" . $3 . "\n";# youtube All itag (semua resolusi) posisi kebalikan
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(id=[a-zA-Z0-9]).?&(itag=[0-9])./) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $3 . "&" . $2 . "\n";diganti dengan ini
Code:
# youtube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";Udah dilakukan semua
baik ganti storeurl.plnya dengan yang dari http://pastebin.com/e3TUtigH
dan juga yg diubah denganyoutube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";Tp masih error gan,
Bahkan youtubenya jlan, eh tengah jalan berhenti n ngulang terus dr awalMohn pencerahan
tq -
Udah dilakukan semua
baik ganti storeurl.plnya dengan yang dari http://pastebin.com/e3TUtigH
dan juga yg diubah denganyoutube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";Tp masih error gan,
Bahkan youtubenya jlan, eh tengah jalan berhenti n ngulang terus dr awalMohn pencerahan
tqizin ngebantu ya mas askar…
storeurl.pl saya yang sudah saya ubah seperti panduan kanda-kanda senior dan tidak mengalami error#!/usr/bin/perl
$Rev$
by chudy_fernandez@yahoo.com
Youtube updates at http://wiki.squid-cache.org/ConfigExamples/DynamicContent/YouTube/Discussion
$|=1;
while (<>) {
@X = split;$X[1] =~ s/&sig=.*//;
$x = $X[0] . " ";
$_ = $X[1];
$u = $X[1];#photos-X.ak.fbcdn.net where X a-z
if (m/^http://photos-[a-z]?(.ak.fbcdn.net.*)/) {
print $x . "http://photos" . $1 . "\n";#maps.google.com
} elsif (m/^http://(khm|mt)[0-9]?(.google.com.*)/) {
print $x . "http://" . $1 . $2 . "\n";#ini untuk cache partial
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(id=[a-zA-Z0-9]).?&(range=[0-9])./) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";# compatibility for old cached get_video?video_id
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(videoplayback?id=.?|video_id=.?)&(.*?)/) {
$z = $2; $z =~ s/video_id=/get_video?video_id=/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
# youtube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";} elsif (m/^http://www.google-analytics.com/__utm.gif?.*/) {
print $x . "http://www.google-analytics.com/__utm.gif\n";#Cache High Latency Ads
} elsif (m/^http://([a-z0-9.])(.doubleclick.net|.quantserve.com|.googlesyndication.com|yieldmanager|cpxinteractive)(.)/) {
$y = $3;$z = $2;
for ($y) {
s/pixel;./pixel/;
s/activity;./activity/;
s/(imgad[^&])./\1/;
s/;ord=[?0-9]//;
s/;×tamp=[0-9]//;
s/[&?]correlator=[0-9]//;
s/&cookie=[^&]//;
s/&ga_hid=[^&]//;
s/&ga_vid=[^&]//;
s/&ga_sid=[^&]*//;s/&prev_slotnames=[^&]*//
s/&u_his=[^&]*//;
s/&dt=[^&]//;
s/&dtd=[^&]//;
s/&lmt=[^&]//;
s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&ref=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&cookie=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/[;&?]ord=[?0-9]//;
s/[;&]mpvid=[^&;]//;
s/&xpc=[^&]//;yieldmanager
s/?clickTag=[^&]//;
s/&u=[^&]//;
s/&slotname=[^&]//;
s/&page_slots=[^&]//;
}
print $x . "http://" . $1 . $2 . $y . "\n";#cache high latency ads
} elsif (m/^http://(.?)/(ads)?(.?)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} elsif (m/^http://(www.ziddu.com..[^/]{3,4})/(.?)/) {
print $x . "http://" . $1 . "\n";#cdn, varialble 1st path
} elsif (($u =~ /filehippo/) && (m/^http://(.?).(.?)/(.?)/(.).([a-z0-9]{3,4})(?.*)?/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/[a-z0-9]{2,5}/cdn./;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#rapidshare
} elsif (($u =~ /rapidshare/) && (m/^http://(([A-Za-z]+[0-9-.]+)?)([a-z].[^/]{3}/[a-z]/[0-9])/(.*?)/([^/?&]{4,})$/)) {
print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";} elsif (($u =~ /maxporn/) && (m/^http://([^/]?)/(.?)/([^/]?)(?.)?$/)) {
print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";#domain/path/./path/filename
} elsif (($u =~ /fucktube/) && (m/^http://(.?)(.[^.-]?[^/]/[^/])/(.)/([^/])/([^/?&]).([^/?&]{3,4})(?.*?)$/)) {
@y = ($1,$2,$4,$5,$6);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^.]cdn[^.])|([^.]cache[^.]))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";#like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
} elsif (($u =~ /tube8|pornhub|xvideos/) && (m/^http://(([A-Za-z]+[0-9-.]+)?(.[a-z])?).([a-z][0-9]?.[^/]{3}/[a-z])(.?)((/[a-z])?(/[^/]){4}.[^/?]{3,4})(?.)?$/)) {
print $x . "http://cdn." . $4 . $6 . "\n";#for yimg.com video
} elsif (m/^http://(.yimg.com)//(.)/([^/?&]/[^/?&].[^/?&]{3,4})(?.*)?$/) {
print $x . "http://cdn.yimg.com//" . $3 . "\n";#for yimg.com doubled
} elsif (m/^http://(.?).yimg.com/(.?).yimg.com/(.?)?(.)/) {
print $x . "http://cdn.yimg.com/" . $3 . "\n";#for yimg.com with &sig=
} elsif (m/^http://([^.]).yimg.com/(.)/) {
@y = ($1,$2);
$y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
$y[1] =~ s/&sig=.*//;
print $x . "http://" . $y[0] . ".yimg.com/" . $y[1] . "\n";#youjizz. We use only domain and filename
} elsif (($u =~ /media[0-9]{1,5}.youjizz/) && (m/^http://(.?)(.[^.-]?.[^/])/(.)/([^/?&]).([^/?&]{3,4})(?.?)$/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^.]cdn[^.])|([^.]cache[^.]))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#general purpose for cdn servers. add above your specific servers.
} elsif (m/^http://([0-9.]?)//(.?).(.)?(.?)/) {
print $x . "http://squid-cdn-url//" . $2 . "." . $3 . "\n";spicific extention
} elsif (m/^http://(.?).(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf).?/) {
@y = ($1,$2);
$y[0] =~ s/((cache|cdn)[-\d])|([a-zA-A]+-?[0-9]+(-[a-zA-Z])?)/cdn/;
print $x . "http://" . $y[0] . "." . $y[1] . "\n";
#generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
#http://cdn1-28.projectplaylist.com
#http://s1sdlod041.bcst.cdn.s1s.yimg.com
} elsif (m/^http://(.?)(.[^.-]?..?)/([^?&=]).([\w\d]{2,4})??.$/) {
@y = ($1,$2,$3,$4);
$y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d])|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";all that ends with ;
} elsif (m/^http://(.?)/(.?);(.*)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} else {
print $x . $_ . "\n";
}
}saya tidak mengcopas semua storeurl.pl dari web http://pastebin.com/e3TUtigH melain kan hanya mengambil settingan youtube saja…
-
Udah dilakukan semua
baik ganti storeurl.plnya dengan yang dari http://pastebin.com/e3TUtigH
dan juga yg diubah denganyoutube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";Tp masih error gan,
Bahkan youtubenya jlan, eh tengah jalan berhenti n ngulang terus dr awalMohn pencerahan
tqizin ngebantu ya mas askar…
storeurl.pl saya yang sudah saya ubah seperti panduan kanda-kanda senior dan tidak mengalami error#!/usr/bin/perl
$Rev$
by chudy_fernandez@yahoo.com
Youtube updates at http://wiki.squid-cache.org/ConfigExamples/DynamicContent/YouTube/Discussion
$|=1;
while (<>) {
@X = split;$X[1] =~ s/&sig=.*//;
$x = $X[0] . " ";
$_ = $X[1];
$u = $X[1];#photos-X.ak.fbcdn.net where X a-z
if (m/^http://photos-[a-z]?(.ak.fbcdn.net.*)/) {
print $x . "http://photos" . $1 . "\n";#maps.google.com
} elsif (m/^http://(khm|mt)[0-9]?(.google.com.*)/) {
print $x . "http://" . $1 . $2 . "\n";#ini untuk cache partial
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(id=[a-zA-Z0-9]).?&(range=[0-9])./) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";# compatibility for old cached get_video?video_id
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(videoplayback?id=.?|video_id=.?)&(.*?)/) {
$z = $2; $z =~ s/video_id=/get_video?video_id=/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
# youtube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";} elsif (m/^http://www.google-analytics.com/__utm.gif?.*/) {
print $x . "http://www.google-analytics.com/__utm.gif\n";#Cache High Latency Ads
} elsif (m/^http://([a-z0-9.])(.doubleclick.net|.quantserve.com|.googlesyndication.com|yieldmanager|cpxinteractive)(.)/) {
$y = $3;$z = $2;
for ($y) {
s/pixel;./pixel/;
s/activity;./activity/;
s/(imgad[^&])./\1/;
s/;ord=[?0-9]//;
s/;×tamp=[0-9]//;
s/[&?]correlator=[0-9]//;
s/&cookie=[^&]//;
s/&ga_hid=[^&]//;
s/&ga_vid=[^&]//;
s/&ga_sid=[^&]*//;s/&prev_slotnames=[^&]*//
s/&u_his=[^&]*//;
s/&dt=[^&]//;
s/&dtd=[^&]//;
s/&lmt=[^&]//;
s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&ref=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&cookie=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/[;&?]ord=[?0-9]//;
s/[;&]mpvid=[^&;]//;
s/&xpc=[^&]//;yieldmanager
s/?clickTag=[^&]//;
s/&u=[^&]//;
s/&slotname=[^&]//;
s/&page_slots=[^&]//;
}
print $x . "http://" . $1 . $2 . $y . "\n";#cache high latency ads
} elsif (m/^http://(.?)/(ads)?(.?)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} elsif (m/^http://(www.ziddu.com..[^/]{3,4})/(.?)/) {
print $x . "http://" . $1 . "\n";#cdn, varialble 1st path
} elsif (($u =~ /filehippo/) && (m/^http://(.?).(.?)/(.?)/(.).([a-z0-9]{3,4})(?.*)?/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/[a-z0-9]{2,5}/cdn./;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#rapidshare
} elsif (($u =~ /rapidshare/) && (m/^http://(([A-Za-z]+[0-9-.]+)?)([a-z].[^/]{3}/[a-z]/[0-9])/(.*?)/([^/?&]{4,})$/)) {
print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";} elsif (($u =~ /maxporn/) && (m/^http://([^/]?)/(.?)/([^/]?)(?.)?$/)) {
print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";#domain/path/./path/filename
} elsif (($u =~ /fucktube/) && (m/^http://(.?)(.[^.-]?[^/]/[^/])/(.)/([^/])/([^/?&]).([^/?&]{3,4})(?.*?)$/)) {
@y = ($1,$2,$4,$5,$6);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^.]cdn[^.])|([^.]cache[^.]))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";#like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
} elsif (($u =~ /tube8|pornhub|xvideos/) && (m/^http://(([A-Za-z]+[0-9-.]+)?(.[a-z])?).([a-z][0-9]?.[^/]{3}/[a-z])(.?)((/[a-z])?(/[^/]){4}.[^/?]{3,4})(?.)?$/)) {
print $x . "http://cdn." . $4 . $6 . "\n";#for yimg.com video
} elsif (m/^http://(.yimg.com)//(.)/([^/?&]/[^/?&].[^/?&]{3,4})(?.*)?$/) {
print $x . "http://cdn.yimg.com//" . $3 . "\n";#for yimg.com doubled
} elsif (m/^http://(.?).yimg.com/(.?).yimg.com/(.?)?(.)/) {
print $x . "http://cdn.yimg.com/" . $3 . "\n";#for yimg.com with &sig=
} elsif (m/^http://([^.]).yimg.com/(.)/) {
@y = ($1,$2);
$y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
$y[1] =~ s/&sig=.*//;
print $x . "http://" . $y[0] . ".yimg.com/" . $y[1] . "\n";#youjizz. We use only domain and filename
} elsif (($u =~ /media[0-9]{1,5}.youjizz/) && (m/^http://(.?)(.[^.-]?.[^/])/(.)/([^/?&]).([^/?&]{3,4})(?.?)$/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^.]cdn[^.])|([^.]cache[^.]))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#general purpose for cdn servers. add above your specific servers.
} elsif (m/^http://([0-9.]?)//(.?).(.)?(.?)/) {
print $x . "http://squid-cdn-url//" . $2 . "." . $3 . "\n";spicific extention
} elsif (m/^http://(.?).(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf).?/) {
@y = ($1,$2);
$y[0] =~ s/((cache|cdn)[-\d])|([a-zA-A]+-?[0-9]+(-[a-zA-Z])?)/cdn/;
print $x . "http://" . $y[0] . "." . $y[1] . "\n";
#generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
#http://cdn1-28.projectplaylist.com
#http://s1sdlod041.bcst.cdn.s1s.yimg.com
} elsif (m/^http://(.?)(.[^.-]?..?)/([^?&=]).([\w\d]{2,4})??.$/) {
@y = ($1,$2,$3,$4);
$y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d])|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";all that ends with ;
} elsif (m/^http://(.?)/(.?);(.*)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} else {
print $x . $_ . "\n";
}
}saya tidak mengcopas semua storeurl.pl dari web http://pastebin.com/e3TUtigH melain kan hanya mengambil settingan youtube saja…
hasilnya gimana kk?? kebetulan ane baru semalam belajar lagi pfsense i
-
hasilnya gimana kk?? kebetulan ane baru semalam belajar lagi pfsense i
sudah tidak ada masalah error lagi, walau ada jenis video youtube yang tidak tercache…, tidak menjadi masalah jika tidak terjadi error..
-
hasilnya gimana kk?? kebetulan ane baru semalam belajar lagi pfsense i
sudah tidak ada masalah error lagi, walau ada jenis video youtube yang tidak tercache…, tidak menjadi masalah jika tidak terjadi error..
berarti dah mantap tuh..
sampe sekarang ane masih gagal terus nih ikutin materi di trit sebelah,.. tutor2nya aneh2 kk
-
Untuk nyang kemaren link dari Vevo belum hit, coba storeurl.pl nya di update lagi, bagian ini:
#ini untuk cache partial
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(id=[a-zA-Z0-9]).?&(range=[0-9])./) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";# compatibility for old cached get_video?video_id
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(videoplayback?id=.?|video_id=.?)&(.*?)/) {
$z = $2; $z =~ s/video_id=/get_video?video_id=/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
# youtube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";diganti dengan ini:
#youtube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
@begin = m/&?/;
@redirect = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range@begin@redirect\n"; -
trimakasih telah di koreksi pak kapten….,
siap di laksanakan editan nya....,
monggo buat teman - teman di praktekan storeurl.pl editan pak kapten.... :) :) -
lapor pak kapten….. youtube vevo terhit dengan baik..., WAN disuruh diam, kata LAN kepada WAN biarkan anak buah yang bermain... ;D ;D ;D , thx pak kapten....
![trafic graph.JPG](/public/imported_attachments/1/trafic graph.JPG)
![trafic graph.JPG_thumb](/public/imported_attachments/1/trafic graph.JPG_thumb) -
lapor pak kapten….. youtube vevo terhit dengan baik..., WAN disuruh diam, kata LAN kepada WAN biarkan anak buah yang bermain... ;D ;D ;D , thx pak kapten....
Kalau ter-cache larinya masa cuma 3 MB…bohong banget bro..................
Buka POKER aja lari maksimalnya 10 MB..
cache dari VEVO itu minimal larinya 10 MB....;) ;)
-
saya juga tidak begitu mengerti dengan settingan saya mas…, dari traffic graph nya bisa di lihat kalo WAN nya di suruh diem oleh LAN, jalan buffer video vevonya ngak langsung full, melainkan dikit" jalan nya, di lihat dari sisi traffic pemutaran video yang kedua memang tidak memakan bandwitdh wan walau pemakain bandwith LAN dikit,
terserah mas mau anggap saya bohong atau gimana, kalo memang berniat untuk membantu saya, ya saya terima dengan lapang dada.... :P :P -
lapor pak kapten….. youtube vevo terhit dengan baik..., WAN disuruh diam, kata LAN kepada WAN biarkan anak buah yang bermain... ;D ;D ;D , thx pak kapten....
Kalau ter-cache larinya masa cuma 3 MB…bohong banget bro..................
Buka POKER aja lari maksimalnya 10 MB..
cache dari VEVO itu minimal larinya 10 MB....;) ;)
Maap sebelumnya, kemaren permasalahan yang dibahas adalah cara mengatasi error dan galat di youtube, untuk skr udah fix saya rasa, dan untuk masalah larinya trafick lan di 3mb, itu bukannya tergantung dari seting trafick shaper qinternet dari masing masing server dan saya rasa tiap server berbeda dalam menerapkan berapa besaran qinternetnya, mungkin di @detraxmx qinternetnya 12mb atau bahkan lebih sedangkan @meunara.net besaran qinternetnya hanya 4-6 mb.
-
pak kapten numpang tanya lagi donk…..
gambar di bawah itu youtube nya kok aneh ya..., ada 2 buah youtube yang berjalan dalam 1 halaman, awal nya saya kira mungkin flash player atau mozilla nya yang error, saya coba uninstal keduanya dan instal ulang tapi tetap aja kayak gitu..., di coba lewat google chrome juga seperti itu..., tidak semua video, hanya beberapa jenis video saja, kira" asal masalah itu dari mana pak?![2 youtube dalam 1 halaman.JPG](/public/imported_attachments/1/2 youtube dalam 1 halaman.JPG)
![2 youtube dalam 1 halaman.JPG_thumb](/public/imported_attachments/1/2 youtube dalam 1 halaman.JPG_thumb) -
Udah dilakukan semua
baik ganti storeurl.plnya dengan yang dari http://pastebin.com/e3TUtigH
dan juga yg diubah denganyoutube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";Tp masih error gan,
Bahkan youtubenya jlan, eh tengah jalan berhenti n ngulang terus dr awalMohn pencerahan
tqizin ngebantu ya mas askar…
storeurl.pl saya yang sudah saya ubah seperti panduan kanda-kanda senior dan tidak mengalami error#!/usr/bin/perl
$Rev$
by chudy_fernandez@yahoo.com
Youtube updates at http://wiki.squid-cache.org/ConfigExamples/DynamicContent/YouTube/Discussion
$|=1;
while (<>) {
@X = split;$X[1] =~ s/&sig=.*//;
$x = $X[0] . " ";
$_ = $X[1];
$u = $X[1];#photos-X.ak.fbcdn.net where X a-z
if (m/^http://photos-[a-z]?(.ak.fbcdn.net.*)/) {
print $x . "http://photos" . $1 . "\n";#maps.google.com
} elsif (m/^http://(khm|mt)[0-9]?(.google.com.*)/) {
print $x . "http://" . $1 . $2 . "\n";#ini untuk cache partial
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(id=[a-zA-Z0-9]).?&(range=[0-9])./) {
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";# compatibility for old cached get_video?video_id
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(videoplayback?id=.?|video_id=.?)&(.*?)/) {
$z = $2; $z =~ s/video_id=/get_video?video_id=/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
# youtube All itag (semua resolusi)
} elsif ($X[1] =~ /(youtube|google).*videoplayback?/){
@itag = m/&?/;
@id = m/&?/;
@range = m/&?/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range\n";} elsif (m/^http://www.google-analytics.com/__utm.gif?.*/) {
print $x . "http://www.google-analytics.com/__utm.gif\n";#Cache High Latency Ads
} elsif (m/^http://([a-z0-9.])(.doubleclick.net|.quantserve.com|.googlesyndication.com|yieldmanager|cpxinteractive)(.)/) {
$y = $3;$z = $2;
for ($y) {
s/pixel;./pixel/;
s/activity;./activity/;
s/(imgad[^&])./\1/;
s/;ord=[?0-9]//;
s/;×tamp=[0-9]//;
s/[&?]correlator=[0-9]//;
s/&cookie=[^&]//;
s/&ga_hid=[^&]//;
s/&ga_vid=[^&]//;
s/&ga_sid=[^&]*//;s/&prev_slotnames=[^&]*//
s/&u_his=[^&]*//;
s/&dt=[^&]//;
s/&dtd=[^&]//;
s/&lmt=[^&]//;
s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&ref=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&cookie=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/[;&?]ord=[?0-9]//;
s/[;&]mpvid=[^&;]//;
s/&xpc=[^&]//;yieldmanager
s/?clickTag=[^&]//;
s/&u=[^&]//;
s/&slotname=[^&]//;
s/&page_slots=[^&]//;
}
print $x . "http://" . $1 . $2 . $y . "\n";#cache high latency ads
} elsif (m/^http://(.?)/(ads)?(.?)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} elsif (m/^http://(www.ziddu.com..[^/]{3,4})/(.?)/) {
print $x . "http://" . $1 . "\n";#cdn, varialble 1st path
} elsif (($u =~ /filehippo/) && (m/^http://(.?).(.?)/(.?)/(.).([a-z0-9]{3,4})(?.*)?/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/[a-z0-9]{2,5}/cdn./;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#rapidshare
} elsif (($u =~ /rapidshare/) && (m/^http://(([A-Za-z]+[0-9-.]+)?)([a-z].[^/]{3}/[a-z]/[0-9])/(.*?)/([^/?&]{4,})$/)) {
print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";} elsif (($u =~ /maxporn/) && (m/^http://([^/]?)/(.?)/([^/]?)(?.)?$/)) {
print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";#domain/path/./path/filename
} elsif (($u =~ /fucktube/) && (m/^http://(.?)(.[^.-]?[^/]/[^/])/(.)/([^/])/([^/?&]).([^/?&]{3,4})(?.*?)$/)) {
@y = ($1,$2,$4,$5,$6);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^.]cdn[^.])|([^.]cache[^.]))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";#like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
} elsif (($u =~ /tube8|pornhub|xvideos/) && (m/^http://(([A-Za-z]+[0-9-.]+)?(.[a-z])?).([a-z][0-9]?.[^/]{3}/[a-z])(.?)((/[a-z])?(/[^/]){4}.[^/?]{3,4})(?.)?$/)) {
print $x . "http://cdn." . $4 . $6 . "\n";#for yimg.com video
} elsif (m/^http://(.yimg.com)//(.)/([^/?&]/[^/?&].[^/?&]{3,4})(?.*)?$/) {
print $x . "http://cdn.yimg.com//" . $3 . "\n";#for yimg.com doubled
} elsif (m/^http://(.?).yimg.com/(.?).yimg.com/(.?)?(.)/) {
print $x . "http://cdn.yimg.com/" . $3 . "\n";#for yimg.com with &sig=
} elsif (m/^http://([^.]).yimg.com/(.)/) {
@y = ($1,$2);
$y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
$y[1] =~ s/&sig=.*//;
print $x . "http://" . $y[0] . ".yimg.com/" . $y[1] . "\n";#youjizz. We use only domain and filename
} elsif (($u =~ /media[0-9]{1,5}.youjizz/) && (m/^http://(.?)(.[^.-]?.[^/])/(.)/([^/?&]).([^/?&]{3,4})(?.?)$/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^.]cdn[^.])|([^.]cache[^.]))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#general purpose for cdn servers. add above your specific servers.
} elsif (m/^http://([0-9.]?)//(.?).(.)?(.?)/) {
print $x . "http://squid-cdn-url//" . $2 . "." . $3 . "\n";spicific extention
} elsif (m/^http://(.?).(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf).?/) {
@y = ($1,$2);
$y[0] =~ s/((cache|cdn)[-\d])|([a-zA-A]+-?[0-9]+(-[a-zA-Z])?)/cdn/;
print $x . "http://" . $y[0] . "." . $y[1] . "\n";
#generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
#http://cdn1-28.projectplaylist.com
#http://s1sdlod041.bcst.cdn.s1s.yimg.com
} elsif (m/^http://(.?)(.[^.-]?..?)/([^?&=]).([\w\d]{2,4})??.$/) {
@y = ($1,$2,$3,$4);
$y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d])|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";all that ends with ;
} elsif (m/^http://(.?)/(.?);(.*)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} else {
print $x . $_ . "\n";
}
}saya tidak mengcopas semua storeurl.pl dari web http://pastebin.com/e3TUtigH melain kan hanya mengambil settingan youtube saja…
Perubahan storeurl.pl ini, ada ga pengaruhnya dengan Dual WAN. Apa sbenarnya fungsi storeurl.pl ini?
misalnya berpengaruh pada akses game
Karena saya pake Dual WAN,
WAN === Browsing, download, dll
OPT === GameMsalah youtube, untuk sementara blm ada kendala, sy pake punya mas yg di atas.
soalnya setelah saya ubah, kok ada pengaruh ke game, saat download ato lainnya. khususnya game lost saga.Terima kasih.
-
pak kapten numpang tanya lagi donk…..
gambar di bawah itu youtube nya kok aneh ya..., ada 2 buah youtube yang berjalan dalam 1 halaman, awal nya saya kira mungkin flash player atau mozilla nya yang error, saya coba uninstal keduanya dan instal ulang tapi tetap aja kayak gitu..., di coba lewat google chrome juga seperti itu..., tidak semua video, hanya beberapa jenis video saja, kira" asal masalah itu dari mana pak?ditempat saya biasa saja, tidak seperti punya anda, tetep hanya ada 1 youtube, sudah saya coba dengan jenis lagu yang sama juga tetep munculnya hanya satu
-
owh…, berarti kesalahan dari media pemutar nya ini......
-
dicoba saja dulu dengan memperbarui file pfsense.tgz.bak nya dulu, kemudian di edit storeurl.pl nya hasilnya gimana
-
lapor pak kapten….. youtube vevo terhit dengan baik..., WAN disuruh diam, kata LAN kepada WAN biarkan anak buah yang bermain... ;D ;D ;D , thx pak kapten....
Kalau ter-cache larinya masa cuma 3 MB…bohong banget bro..................
Buka POKER aja lari maksimalnya 10 MB..
cache dari VEVO itu minimal larinya 10 MB....;) ;)
Maap sebelumnya, kemaren permasalahan yang dibahas adalah cara mengatasi error dan galat di youtube, untuk skr udah fix saya rasa, dan untuk masalah larinya trafick lan di 3mb, itu bukannya tergantung dari seting trafick shaper qinternet dari masing masing server dan saya rasa tiap server berbeda dalam menerapkan berapa besaran qinternetnya, mungkin di @detraxmx qinternetnya 12mb atau bahkan lebih sedangkan @meunara.net besaran qinternetnya hanya 4-6 mb.
Angka 3Mbps itu sebenarnya batas kecepatan per-Kbps, yang didapat client. (Namun demikian setiap orang memiliki persepsi sendiri2, dan hal itu wajar2 saja.).
Dengan angka 3Mb tersebut sangat wajar kalo jalannya (warna putihnya di loading ) cache akan tersendat2 alisan setahap demi setahap. Dan itu Real (nyata) bukan bohong. karena sesuai dengan konfigurasinya @meunara.net. (jadi harap di maklumi :) ) Dan saya salut terhadap hasil @meunara.net tersebut meskipun ada kekurangannya.Terkadang banyak yang mengalami kenyataan seperti @meunara.net tersebut. akan tetapi karena sesuatu hal mereka tidak bersedia menshare di forum ini. (seperti jalannya cache step by step, eror acurations dan sebagainya.)
Saya Menggunakan DEFAULT LUSCA CACHE CUDY (tanpa edit .INC atau .Conf atau storeurl.pl) murni default. Sejauh ini tidak pernah mengalami kendala apapun. (jalannya loading warna putih wus sekejab ke ujung bar video yutube sedang warna merah merjalan normal.). http://www.youtube.com/watch?v=ifNIHlGKdb0&feature=youtu.be karena cepat loading putihnya nyaris tidak keliatan direkam hp. (harap maklum)
Sedangkan dibawah ini ada gambar yang ketika saya membuka file youtube. http://www.youtube.com/watch?v=n4RjJKxsamQ&ob=av2n terlihat jelas di traffic graph nya.
dan gambar traffic ke-2 merupakan traffic setelah cache selesai didapat oleh client. sementera user lain sedang menggunakan browsing dan aktifitas lainnya.
NB:
Saya tidak bermaksud apa-apa, hanya saja sedikit memberi semangat rekan2 yg masih mengalami kendala di cache youtube dengan membuka LOGIKA yang ada. Sehingga ada KEBERANIAN untuk MENERAPKAN TRIAL end ERROR menjadi SUCCESS.![traffic cache scorpion.JPG](/public/imported_attachments/1/traffic cache scorpion.JPG)
![traffic cache scorpion.JPG_thumb](/public/imported_attachments/1/traffic cache scorpion.JPG_thumb)
![traffic setelah cache selesai dan user lain browsing.JPG](/public/imported_attachments/1/traffic setelah cache selesai dan user lain browsing.JPG)
![traffic setelah cache selesai dan user lain browsing.JPG_thumb](/public/imported_attachments/1/traffic setelah cache selesai dan user lain browsing.JPG_thumb) -
@PakDe:
lapor pak kapten….. youtube vevo terhit dengan baik..., WAN disuruh diam, kata LAN kepada WAN biarkan anak buah yang bermain... ;D ;D ;D , thx pak kapten....
Kalau ter-cache larinya masa cuma 3 MB…bohong banget bro..................
Buka POKER aja lari maksimalnya 10 MB..
cache dari VEVO itu minimal larinya 10 MB....;) ;)
Maap sebelumnya, kemaren permasalahan yang dibahas adalah cara mengatasi error dan galat di youtube, untuk skr udah fix saya rasa, dan untuk masalah larinya trafick lan di 3mb, itu bukannya tergantung dari seting trafick shaper qinternet dari masing masing server dan saya rasa tiap server berbeda dalam menerapkan berapa besaran qinternetnya, mungkin di @detraxmx qinternetnya 12mb atau bahkan lebih sedangkan @meunara.net besaran qinternetnya hanya 4-6 mb.
Angka 3Mbps itu sebenarnya batas kecepatan per-Kbps, yang didapat client. (Namun demikian setiap orang memiliki persepsi sendiri2, dan hal itu wajar2 saja.).
Dengan angka 3Mb tersebut sangat wajar kalo jalannya (warna putihnya di loading ) cache akan tersendat2 alisan setahap demi setahap. Dan itu Real (nyata) bukan bohong. karena sesuai dengan konfigurasinya @meunara.net. (jadi harap di maklumi :) ) Dan saya salut terhadap hasil @meunara.net tersebut meskipun ada kekurangannya.Terkadang banyak yang mengalami kenyataan seperti @meunara.net tersebut. akan tetapi karena sesuatu hal mereka tidak bersedia menshare di forum ini. (seperti jalannya cache step by step, eror acurations dan sebagainya.)
Saya Menggunakan DEFAULT LUSCA CACHE CUDY (tanpa edit .INC atau .Conf atau storeurl.pl) murni default. Sejauh ini tidak pernah mengalami kendala apapun. (jalannya loading warna putih wus sekejab ke ujung bar video yutube sedang warna merah merjalan normal.). http://www.youtube.com/watch?v=ifNIHlGKdb0&feature=youtu.be karena cepat loading putihnya nyaris tidak keliatan direkam hp. (harap maklum)
Sedangkan dibawah ini ada gambar yang ketika saya membuka file youtube. http://www.youtube.com/watch?v=n4RjJKxsamQ&ob=av2n terlihat jelas di traffic graph nya.
dan gambar traffic ke-2 merupakan traffic setelah cache selesai didapat oleh client. sementera user lain sedang menggunakan browsing dan aktifitas lainnya.
NB:
Saya tidak bermaksud apa-apa, hanya saja sedikit memberi semangat rekan2 yg masih mengalami kendala di cache youtube dengan membuka LOGIKA yang ada. Sehingga ada KEBERANIAN untuk MENERAPKAN TRIAL end ERROR menjadi SUCCESS.wah sama dong dengan saya pakde…
masih menggunakan default dari lusca itu sendiri...
hanya saja saya mengalami kendala.. squidnya terlimit oleh CP. tapi ketika di nonaktifkan.. user sedot habis benwit. kira2 ada ga pencerahan buat saya ?? saya menggunakan PF 2.0.1
-
Coba dengan storeurl.pl dibawah ini aku dah coba bisa membantu.. aku dapatkan dari th30nly @comstuff.net
di COPAS aja..
#!/usr/bin/perl
store rewrite originally writen by chudy_fernandez@yahoo.com
modified by member of comstuff.net to satisfy common and dynamic content.
$|=1;
while (<>) {
@X = split;
# $X[1] =~ s/&sig=.*//;
$x = $X[0] . " ";
$_ = $X[1];
$u = $X[1];#speedtest
if (m/^http://(.)/speedtest/(..(jpg|txt))?(.*)/) {
print $x . "http://www.speedtest.net.SQUIDINTERNAL/speedtest/" . $2 . "\n";#mediafire
}elsif (m/^http://199.91.15\d.\d*/\w{12}/(\w*)/(.*)/) {
print $x . "http://www.mediafire.com.SQUIDINTERNAL/" . $1 ."/" . $2 . "\n";#fileserve
}elsif (m/^http://fs\w*.fileserve.com/file/(\w*)/[\w-]./(.)/) {
print $x . "http://www.fileserve.com.SQUIDINTERNAL/" . $1 . "./" . $2 . "\n";#filesonic
}elsif (m/^http://s[0-9].filesonic.com/download/([0-9])/(.*)/) {
print $x . "http://www.filesonic.com.SQUIDINTERNAL/" . $1 . "\n";#4shared
}elsif (m/^http://[a-zA-Z]{2}\d*.4shared.com(:8080|)/download/(.)/(...)?./) {
print $x . "http://www.4shared.com.SQUIDINTERNAL/download/$2/$3\n";#4shared preview
}elsif (m/^http://[a-zA-Z]{2}\d*.4shared.com(:8080|)/img/(\d*)/\w*/dlink__2Fdownload_2F(\w*)_3Ftsid_3D[\w-]/preview.mp3?sId=\w/) {
print $x . "http://www.4shared.com.SQUIDINTERNAL/$2\n";#photos-X.ak.fbcdn.net where X a-z
}elsif (m/^http://photos-a-z(/./)(..jpg)/) {
print $x . "http://photos" . $1 . "/" . $2 . $3 . "\n";#YX.sphotos.ak.fbcdn.net where X 1-9, Y a-z
} elsif (m/^http://[a-z][0-9].sphotos.ak.fbcdn.net/(.)/(.)/) {
print $x . "http://photos.ak.fbcdn.net/" . $1 ."/". $2 . "\n";#maps.google.com
} elsif (m/^http://(cbk|mt|khm|mlt|tbn)[0-9]?(.google.co(m|.uk|.id).*)/) {
print $x . "http://" . $1 . $2 . "\n";# compatibility for old cached get_video?video_id
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com).?(videoplayback?id=.?|video_id=.?)&(.*?)/) {
$z = $2; $z =~ s/video_id=/get_video?video_id=/;
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";# youtube fix by th30nly @comstuff.net
} elsif (m/^http://([0-9.]{4}|..youtube.com|..googlevideo.com|..video.google.com)/videoplayback?(.)/) {
$p_str = $2;
$tag = "";
$alg = "";
$id = "";
$range = "";
if ($p_str =~ m/(itag=[0-9])/){$tag = "&".$1}
if ($p_str =~ m/(algorithm=[a-z]-[a-z])/){$alg = "&".$1}
if ($p_str =~ m/(id=[a-zA-Z0-9])/){$id = "&".$1}
if ($p_str =~ m/(range=[0-9-]*)/){$range = "&".$1; $range =~ s/-//; $range =~ s/range=//; }
print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $tag . "&" . $alg . "&" . $id . "&" . $range . "\n";} elsif (m/^http://www.google-analytics.com/__utm.gif?.*/) {
print $x . "http://www.google-analytics.com/__utm.gif\n";#Cache High Latency Ads
} elsif (m/^http://([a-z0-9.])(.doubleclick.net|.quantserve.com|.googlesyndication.com|yieldmanager|cpxinteractive)(.)/) {
$y = $3;$z = $2;
for ($y) {
s/pixel;./pixel/;
s/activity;./activity/;
s/(imgad[^&])./\1/;
s/;ord=[?0-9]//;
s/;×tamp=[0-9]//;
s/[&?]correlator=[0-9]//;
s/&cookie=[^&]//;
s/&ga_hid=[^&]//;
s/&ga_vid=[^&]//;
s/&ga_sid=[^&]//;
# s/&prev_slotnames=[^&]//
# s/&u_his=[^&]//;
s/&dt=[^&]//;
s/&dtd=[^&]//;
s/&lmt=[^&]//;
s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&url=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&ref=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/(&cookie=http%3A%2F%2F[^(%2F)])[^&]/\1/;
s/[;&?]ord=[?0-9]//;
s/[;&]mpvid=[^&;]//;
s/&xpc=[^&]//;
# yieldmanager
s/?clickTag=[^&]//;
s/&u=[^&]//;
s/&slotname=[^&]//;
s/&page_slots=[^&]*//;
}
print $x . "http://" . $1 . $2 . $y . "\n";#cache high latency ads
} elsif (m/^http://(.?)/(ads)?(.?)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";# spicific servers starts here….
} elsif (m/^http://(www.ziddu.com..[^/]{3,4})/(.?)/) {
print $x . "http://" . $1 . "\n";#cdn, varialble 1st path
} elsif (($u =~ /filehippo/) && (m/^http://(.?).(.?)/(.?)/(.).([a-z0-9]{3,4})(?.*)?/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/[a-z0-9]{2,5}/cdn./;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#rapidshare
} elsif (($u =~ /rapidshare/) && (m/^http://(([A-Za-z]+[0-9-.]+)?)([a-z].[^/]{3}/[a-z]/[0-9])/(.*?)/([^/?&]{4,})$/)) {
print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";} elsif (($u =~ /maxporn/) && (m/^http://([^/]?)/(.?)/([^/]?)(?.)?$/)) {
print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";#like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
} elsif (($u =~ /tube8|pornhub|xvideos/) && (m/^http://(([A-Za-z]+[0-9-.]+)?(.[a-z])?).([a-z][0-9]?.[^/]{3}/[a-z])(.?)((/[a-z])?(/[^/]){4}.[^/?]{3,4})(?.)?$/)) {
print $x . "http://cdn." . $4 . $6 . "\n";
#…spicific servers end here.#photos-X.ak.fbcdn.net where X a-z
} elsif (m/^http://photos-[a-z].ak.fbcdn.net/(.*)/) {
print $x . "http://photos.ak.fbcdn.net/" . $1 . "\n";#for yimg.com video
} elsif (m/^http://(.yimg.com)//(.)/([^/?&]/[^/?&].[^/?&]{3,4})(?.*)?$/) {
print $x . "http://cdn.yimg.com//" . $3 . "\n";#for yimg.com doubled
} elsif (m/^http://(.?).yimg.com/(.?).yimg.com/(.?)?(.)/) {
print $x . "http://cdn.yimg.com/" . $3 . "\n";#for yimg.com with &sig=
} elsif (m/^http://(.?).yimg.com/(.)/) {
@y = ($1,$2);
$y[0] =~ s/[a-z]+[0-9]+/cdn/;
$y[1] =~ s/&sig=.*//;
print $x . "http://" . $y[0] . ".yimg.com/" . $y[1] . "\n";#youjizz. We use only domain and filename
} elsif (($u =~ /media[0-9]{2,5}.youjizz/) && (m/^http://(.)(.[^.-]?..?)/(.)/([^/?&]).([^/?&]{3,4})((?|%).)?$/)) {
@y = ($1,$2,$4,$5);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|(.cdn.)|(.cache.))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";#general purpose for cdn servers. add above your specific servers.
} elsif (m/^http://([0-9.]?)//(.?).(.)?(.?)/) {
print $x . "http://squid-cdn-url//" . $2 . "." . $3 . "\n";#generic http://variable.domain.com/path/filename."ex" "ext" or "exte" with or withour "? or %"
} elsif (m/^http://(.)(.[^.-]?..?)/(.).([^/?&]{2,4})((?|%).*)?$/) {
@y = ($1,$2,$3,$4);
$y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|(.cdn.)|(.cache.))/cdn/;
print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";# generic http://variable.domain.com/…
} elsif (m/^http://(([A-Za-z]+[0-9-]+)?|.cdn.|.cache.).(.?).(.?)/(.)$/) {
print $x . "http://cdn." . $3 . "." . $4 . "/" . $5 . "\n";# spicific extention that ends with ?
} elsif (m/^http://(.?)/(.?).(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|on2)(.*)/) {
print $x . "http://" . $1 . "/" . $2 . "." . $3 . "\n";# all that ends with ;
} elsif (m/^http://(.?)/(.?);(.*)/) {
print $x . "http://" . $1 . "/" . $2 . "\n";} else {
print $x . $_ . "sucks\n";
}
}