zoozle-download-search-engine - 2010-zoozlebots - new-bots-fr - complete-emule - SOURCE CODE

#!/usr/bin/perl -I/root/zoozle/torrentbot/modules

my $VERION = "0.2";

# renicing to 20 !
system("renice 20 $$");
system("clear");

# module laden
use strict;
no strict "refs";
use Data::Dumper;
use Digest::MD5 qw( md5_hex );
use TorrentBot::HTTP::Get;
use TorrentBot::HTTP::Head;
use TorrentBot::LINK::ExtractorMem;
use TorrentBot::LINK::IsSameLink;
use TorrentBot::LINK::ExtractorMem;	# rel nofollow links ingnored
use TorrentBot::HTML::HtmlParser;


# objekte initialisieren
my $HEAD		= TorrentBot::HTTP::Head->new();
my $GET			= TorrentBot::HTTP::Get->new();
my $HTML		= TorrentBot::HTML::HtmlParser->new();
my $LINK		= TorrentBot::LINK::ExtractorMem->new();
my $SAME		= TorrentBot::LINK::IsSameLink->new();


# speicherschnittstellen initialisieren
my $AlreadSeenLinks;
my %AlreadSeenLinks		= ();
my @StatusCode			= ();
my @HOSTNAME			= ();
my @LinksToScan			= ();

my $StatusCode;
my $HOSTNAME;
my $TorrentDB;
my $TempStorePath;
my $BadUrls;
my $StatusFile;
my $pid;

my $StayOnSameHost		= 1;
my $AlreadyScannedLinks	= 0;
my $BadUrlCount			= 0;


my $torrentflatfile		= "/root/zoozle/new-bots-fr/complete/easytorrent.txt";

... [truncated, 117 more lines] ...

#!/usr/bin/perl -I/root/zoozle/torrentbot/modules

my $VERION = "0.2";

# renicing to 20 !
system("renice 20 $$");
system("clear");

# module laden
use strict;
no strict "refs";
use Data::Dumper;
use Digest::MD5 qw( md5_hex );
use TorrentBot::HTTP::Get;
use TorrentBot::HTTP::Head;
use TorrentBot::LINK::ExtractorMem;
use TorrentBot::LINK::IsSameLink;
use TorrentBot::LINK::ExtractorMem;	# rel nofollow links ingnored
use TorrentBot::HTML::HtmlParser;


# objekte initialisieren
my $HEAD		= TorrentBot::HTTP::Head->new();
my $GET			= TorrentBot::HTTP::Get->new();
my $HTML		= TorrentBot::HTML::HtmlParser->new();
my $LINK		= TorrentBot::LINK::ExtractorMem->new();
my $SAME		= TorrentBot::LINK::IsSameLink->new();


# speicherschnittstellen initialisieren
my $AlreadSeenLinks;
my %AlreadSeenLinks		= ();
my @StatusCode			= ();
my @HOSTNAME			= ();
my @LinksToScan			= ();

my $StatusCode;
my $HOSTNAME;
my $TorrentDB;
my $TempStorePath;
my $BadUrls;
my $StatusFile;
my $pid;

my $StayOnSameHost		= 1;
my $AlreadyScannedLinks	= 0;
my $BadUrlCount			= 0;


my $torrentflatfile		= "/root/zoozle/new-bots-fr/complete-emule/donkey2.txt";

... [truncated, 114 more lines] ...

#!/usr/bin/perl -I/root/zoozle/torrentbot/modules

my $VERION = "0.2";

# renicing to 20 !
system("renice 20 $$");
system("clear");

# module laden
use strict;
no strict "refs";
use Data::Dumper;
use Digest::MD5 qw( md5_hex );
use TorrentBot::HTTP::Get;
use TorrentBot::HTTP::Head;
use TorrentBot::LINK::ExtractorMem;	# rel nofollow links ingnored
use TorrentBot::HTML::HtmlParser;


# objekte initialisieren
my $HEAD		= TorrentBot::HTTP::Head->new();
my $GET			= TorrentBot::HTTP::Get->new();
my $HTML		= TorrentBot::HTML::HtmlParser->new();
my $LINK		= TorrentBot::LINK::ExtractorMem->new();


# speicherschnittstellen initialisieren
my $AlreadSeenLinks;
my %AlreadSeenLinks		= ();
my @StatusCode			= ();
my @HOSTNAME			= ();
my @LinksToScan			= ();

my $StatusCode;
my $HOSTNAME;
my $TorrentDB;
my $TempStorePath;
my $BadUrls;
my $StatusFile;
my $pid;

my $StayOnSameHost		= 1;
my $AlreadyScannedLinks	= 0;
my $BadUrlCount			= 0;


my $torrentflatfile		= "/root/zoozle/new-bots-fr/complete-emule/donkey1.txt";

my %LinksToScan = (
	"http://www.letoutedonkey.com/filma.php"	 => "0",	# 1x54

... [truncated, 177 more lines] ...