SQUID LUSCA url_rewrite_program Untuk Mediafire

SQUID LUSCA url_rewrite_program Untuk Mediafire

Download Mediafire di Web Server

silahkan dilihat artikel sebelumnya untuk setup

#!/usr/bin/perl
#Coded and Tested By Keblux
#Squid Url Rewriter untuk Mediafire/Dynamic Content bukan partial 206 
#silahkan dibongkar2/dijual/dibuang/ tanpa menghilangkan kredit
#updated Regex by *SGK*

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

if($ url =~ m/^http:\/\/199\.91\.15\d\.\d*\/\w{12}\/(\w*)\/(.*)/)
{
 #Regexp yang cocok
 # dengan url strings "http://199.91.153.138/k24dmky274rg/es64xp3ct71s6c8/MikroTik+Router+Gateway.zip"
 #1: (es64xp3ct71s6c8)
 #2: (MikroTik+Router+Gateway.zip)

 #kita menggunakan regexp yang cocok 2 - $ 2 untuk dimasukan ke function prosses

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

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

}elsif ($ url =~ m/^http:\/\/205\.196\.12\d\.\d*\/\w{12}\/(\w*)\/(.*)/)

{
 $ url_hasil = &prosess($ url,$ 2);

 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="mediafire-".$ _[1];

 #sesuaikan path dengan document root webserver anda!!PENTING!!
 if(-e "/var/www/updatecache/mediafire/$ file") {

 $ url_hasil="http://10.10.7.90/updatecache/mediafire/$ 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];
 #di Ubuntu download pake curl, di FreeBSD pake fetch, kalo belum ada install dulu!!PENTING!!
 system("curl -o /var/www/updatecache/mediafire/$ file $ url_prosess");
 #rubah permission agar dapat dibaca client, kembali rubah pathnya dengan document root webserver anda
 chmod(0644, "/var/www/updatecache/mediafire/$ file");
}
#selese.....

Jika butuh dibuatkan regex dan skrip untuk url yang lainnya silahkan email ya. Makasih

SQUID LUSCA url_rewrite_program Untuk Mediafire

Posted by Unknown on Sabtu, 20 April 2013 - Rating: 4.5

Title : SQUID LUSCA url_rewrite_program Untuk Mediafire
Description : SQUID LUSCA url_rewrite_program Untuk Mediafire Download Mediafire di Web Server silahkan dilihat artikel sebelumnya untuk setup #!/usr/...

Tweet