SQUID LUSCA url_rewrite_program Untuk Point Blank

SQUID LUSCA url_rewrite_program Untuk Point Blank

berikut ini url_rewrite_program Untuk Point Blank, yang belum tau setupnya lihat disini

#!/usr/bin/perl
#Coded and Tested By Keblux
#Squid Url Rewriter untuk Patch Point Blank 
#silahkan dibongkar2/dijual/dibuang/ tanpa menghilangkan kredit

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

if($ url =~ m/^http:\/\/file\.pb\.gemscool\.com\/gamepatch\/(.*)\/(.*\.(exe|zip))/)
{
 #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) - kita pilih ini
 #6: (_3Ftsid_3D20110811-195615-be366c67)
 #7: (preview.mp3)
 #kita menggunakan regexp yang cocok 5 - $ 5 untuk dimasukan ke function prosses

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

 #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];
 my $ file="pb-".$ _[1];

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

 $ url_hasil="http://10.10.7.90/updatecache/pb/$ 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);
 }

 #kirim hasil prosess ke atas
 return $ url_hasil;

}

sub download
{
 my $ url_prosess=$ _[0];
 my $ file=$ _[1];
 #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/pb/$ file $ url_prosess");
 #rubah permission agar dapat dibaca client, kembali rubah pathnya dengan document root webserver anda
 chmod(0644, "/usr/local/www/data/updatecache/pb/$ file");
}
#abis.....

SQUID LUSCA url_rewrite_program Untuk Point Blank

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

Title : SQUID LUSCA url_rewrite_program Untuk Point Blank
Description : SQUID LUSCA url_rewrite_program Untuk Point Blank berikut ini url_rewrite_program Untuk Point Blank, yang belum tau setupnya lihat disini ...

Tweet