SQUID LUSCA url_rewrite_program Untuk Grandchase

SQUID LUSCA url_rewrite_program Untuk Grandchase

Patch Grandchase tersimpan di Web Server

berikut ini url_rewrite_program Untuk Dragonnest, yang belum tau setupnya lihat disini

#!/usr/bin/perl
#Coded and Tested By Keblux
#Squid Url Rewriter untuk preview streaming di 4shared.com
#silahkan dibongkar2/dijual/dibuang/ tanpa menghilangkan kredit
#Tested by SGK

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

if($ url =~ m/^http:\/\/122\.102\.49\.202\/(.*)\/(.*\.(kom|zip|exe|stg|dll|xt))/)
{
 #Regexp yang cocok
 # dengan url strings "http://122.102.49.202/cp/GrandChase/GrandChase100311/main.exe "
 #1: (cp/GrandChase/GrandChase100311)
 #2: (main.exe)
 #3: (exe)
 #kita menggunakan regexp yang cocok 2 - $ 2 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 , url tidak di prosess
 print $ url. "\n";
}
}

#core prossess simple dan ngak rumit
sub prosess
{
 my $ url_prosess=$ _[0];
 my $ file="grandchase-".$ _[1];

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

 $ url_hasil="http://192.168.5.2/updatecache/grandchase/$ 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/grandchase/$ file $ url_prosess");
 #rubah permission agar dapat dibaca client, kembali rubah pathnya dengan document root webserver anda
 chmod(0644, "/usr/local/www/data/updatecache/grandchase/$ file");
}
#abis.....

SQUID LUSCA url_rewrite_program Untuk Grandchase

Posted by Unknown on Rabu, 17 April 2013 - Rating: 4.5

Title : SQUID LUSCA url_rewrite_program Untuk Grandchase
Description : SQUID LUSCA url_rewrite_program Untuk Grandchase Patch Grandchase tersimpan di Web Server berikut ini url_rewrite_program Untuk Dragonn...

Tweet