SQUID LUSCA url_rewrite_program Untuk Partial Content code 206 dalam satu Skrip File

SQUID LUSCA url_rewrite_program Untuk Partial Content code 206 dalam satu Skrip File

lanjutan dari Artikel sebelumnya, kali ini kita akan gabung dalam satu skrip Perl untuk cache 4shared Preview dan Point Blank..silahkan dikembangin lg.

#!/usr/bin/perl
#Coded and Tested By Keblux
#Squid Url Rewriter untuk preview streaming di 4shared.com + Point Blank Caching
#silahkan dibongkar2/dijual/dibuang/ tanpa menghilangkan kredit
#update multiple regexp for caching by *SGK*

$ |=1;
while (<>) {
$ input=$ _;
@tmp=split(/ /,$ input);
chomp(@tmp);
$ url = $ tmp[0];

if($ url =~ m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(dlink__2Fdownload_2F([^\/-]+))([a-zA-Z0-9-]+)\/([^\/\?\&]*\.[^\/\?\&]{2,3})(\?.*)?$ /)
{
 #Regexp yang cocok
 # dengan url strings "http://dc396.4shared.com/img/66978325/e4c433ab/dlink__2Fdownload_2FaxtQ2S6m_3Ftsid_3D20110811-195615-be366c67/preview.mp3"
 #1: (dc396)
 #2: (4shared.com)
 #3: (img/66978325/e4c433ab)
 #4: (dlink__2Fdownload_2FaxtQ2S6m)
 #5: (axtQ2S6m) <- data-blogger-escaped--="" data-blogger-escaped-5="" data-blogger-escaped-cocok="" data-blogger-escaped-ini="" data-blogger-escaped-kita="" data-blogger-escaped-menggunakan="" data-blogger-escaped-pilih="" data-blogger-escaped-preview.mp3="" data-blogger-escaped-regexp="" data-blogger-escaped-tsid_3d20110811-195615-be366c67="" data-blogger-escaped-yang=""> $ 5 untuk dimasukan ke function prosses

 #mengirimkan url 4shared beserta unique nama file dari 4shared
 $ url_hasil = &prosess($ url,$ 5,'4shared');

 #mengirimkan kembali url yang telah diprosess ke client
 print $ url_hasil ."\n";
} elsif ($ url =~ m/^http:\/\/file\.pb\.gemscool\.com\/gamepatch\/(.*)\/(.*\.(exe|zip))/)
{
 #prosess untai dari patch point blank di untai ini kita menggunakan regexp yang diwakili oleh string 2 maka $ 5 diganti dengan $ 2
 $ url_hasil = &prosess($ url,$ 2,'point-blank');

 #mengirimkan kembali url yang telah diprosess ke client
 print $ url_hasil ."\n";
}

 else {
 #jika bukan url yang mengandung regexp dlink__2Fdownload_2F, url tidak di prosess
 print $ url. "\n";
}
}

#core prossess simple dan ngak rumit
sub prosess
{
 my $ url_prosess=$ _[0];
 #start check berfungsi untuk penanda jika untai itu untuk 4shared file akan ditambahkan extension .mp3 jika tidak maka tidak ada penambahan
 my $ file=$ _[1];

 #$ myFolder untuk memilah file berdasarkan source url dari 4shared atau point blank jadi lebih terstruktur rapi
 my $ myFolder=$ _[2];

 #sesuaikan path /usr/local/www/data/updatecache/4shared/ dengan document root webserver anda!!PENTING!!
 if(-e "/usr/local/www/data/updatecache/$ myFolder/$ file") {

 $ url_hasil="http://10.10.7.90/updatecache/$ myFolder/$ file";
 } else {
 $ url_hasil=$ url_prosess;
 #bugs fixed delay diclient waktu streaming di pecah ke function download T_T ngak ngaruh
 &download($ url_prosess,$ file,$ myFolder);
 }

 #kirim hasil prosess ke atas
 return $ url_hasil;

}

sub download
{
 my $ url_prosess=$ _[0];
 my $ file=$ _[1];
 my $ myFolder=$ _[2];
 #karena response yg didapat adalah 206 partial content, wget tidak dapat mendownload file terpaksa pake fetch, kalo belum ada install dulu!!PENTING!!
 system("fetch -o /usr/local/www/data/updatecache/$ myFolder/$ file $ url_prosess");
 #rubah permission agar dapat dibaca client, kambali rubah pathnya dengan document root webserver anda
 chmod(0644, "/usr/local/www/data/updatecache/$ myFolder/$ file");
}
#abis.....

jangan lupa ya buat folder 4shared dan point-blank, masing-masing kasi chmod 777

SQUID LUSCA url_rewrite_program Untuk Partial Content code 206 dalam satu Skrip File

Posted by Unknown on Jumat, 19 April 2013 - Rating: 4.5

Title : SQUID LUSCA url_rewrite_program Untuk Partial Content code 206 dalam satu Skrip File
Description : SQUID LUSCA url_rewrite_program Untuk Partial Content code 206 dalam satu Skrip File lanjutan dari Artikel sebelumnya, kali ini kita akan ...

Tweet