zoozle-download-search-engine - 2010-zoozlebots - new-bots-X - CHIP-XEON-SQL - SOURCE CODE

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

my $VERION = "0.2";
require "/root/zoozle/new-bots-X/functions.pl";

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

# module laden
use strict;
no strict "refs";
use TorrentBot::HTTP::Get;
use TorrentBot::HTTP::Head;
use TorrentBot::LINK::ExtractorMem;
use Data::Dumper;

# objekte initialisieren
my $HEAD		= TorrentBot::HTTP::Head->new();
my $GET			= TorrentBot::HTTP::Get->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 $ScanningTimeout		= 30;

my $torrentflatfile		= "/root/zoozle/new-bots-X/torrent_news.txt";
unlink $torrentflatfile;

# snarf-it.org und slotorrent.net sind tot

my %LinksToScanDE = (		# 27 torrents
		"http://bitreactor.to/index"											=> '\/torrent\/',			# http://bitreactor.to/torrent/592734-filme-divx-xvid-otac-na-sluzbenom-putu-1985

... [truncated, 383 more lines] ...