📄 Best German Torrent Sites.txt (Text) 5.4 KB 2010-03-30
Source code file for Best German Torrent Sites
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "Best German Torrent Sites.txt",
"description": "Source code file for Best German Torrent Sites",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "5.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/Best German Torrent Sites.txt",
"encodingFormat": "text/plain",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Text"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 EmuleNewsCrawler.pl (Perl) 7.4 KB 2010-03-30
Perl module for EmuleNewsCrawler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl -I/root/zoozle/torrentbot/modules
my $VERION = "0.2";
# renicing to 20 !
system("renice 20 $$");
system("clear");
require "/root/zoozle/new-bots-X/functions.pl";
# 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 $torrentflatfile = "/root/zoozle/new-bots-X/emule_news.txt";
unlink $torrentflatfile;
... [truncated, 162 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "EmuleNewsCrawler.pl",
"description": "Perl module for EmuleNewsCrawler",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "7.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/EmuleNewsCrawler.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 EmuleNewsCrawler_20080520.pl (Perl) 7.7 KB 2010-03-30
Perl module for EmuleNewsCrawler 20080520
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl -I/root/zoozle/torrentbot/modules
my $VERION = "0.2";
# renicing to 20 !
system("renice 20 $$");
system("clear");
require "/root/zoozle/new-bots-X/functions.pl";
# 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 $torrentflatfile = "/root/zoozle/new-bots-X/emule_news.txt";
unlink $torrentflatfile;
... [truncated, 209 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "EmuleNewsCrawler_20080520.pl",
"description": "Perl module for EmuleNewsCrawler 20080520",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "7.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/EmuleNewsCrawler_20080520.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 InstallNewsIntoDatabaseFW.pl (Perl) 3.3 KB 2010-03-30
Perl module for InstallNewsIntoDatabaseFW
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
require "functions.pl";
while(1){
my $esel = "/root/zoozle/updates/emule_news.txt";
my $torr = "/root/zoozle/updates/torrent_news.txt";
if ( -e $torr && -e $esel) {
$done = 1;
};
InstallToDatabase($esel) if ( -e $esel );
rename $esel => "/root/zoozle/updates/done/emule_news.txt";
InstallToDatabase($torr) if ( -e $torr );
rename $torr => "/root/zoozle/updates/done/torrent_news.txt";
$now_string = localtime;
print "Finished Installing at $now_string\n" if ($done == 1);
$done = 0;
sleep 3600;
};
sub InstallToDatabase(){
my $file = shift;
use DBI();
$drh = DBI->install_driver("mysql");
my $DBHOST = "localhost";
my $DBNAME = "zoozle";
my $DBUSER = "zoozle";
my $DBPASS = "zoozle23!99";
my $dbh = DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
&add_content_toSQLDB($file, $dbh);
&add_content_toREALSQLDB($file, $dbh);
$dbh->disconnect;
... [truncated, 120 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "InstallNewsIntoDatabaseFW.pl",
"description": "Perl module for InstallNewsIntoDatabaseFW",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "3.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/InstallNewsIntoDatabaseFW.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 SQLAddToDB.pl (Perl) 4.6 KB 2010-03-30
Perl module for SQLAddToDB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use Tie::File;
AddContentToSqlEMULE("/root/zoozle/new-bots-X/emule_news.txt");
AddContentToSqlTORRENT("/root/zoozle/new-bots-X/torrent_news.txt");
exit;
sub AddContentToSqlTORRENT() {
my $filename = shift;
my $date = &getDATE();
use DBI();
my $drh = DBI->install_driver("mysql");
my $DBHOST = "localhost";
my $DBNAME = "zoozle";
my $DBUSER = "zoozle";
my $DBPASS = "zoozle23!99";
my $dbh = DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
my $count = 0;
open(RH1,"<$filename") or warn "$! - $filename \n";
foreach (<RH1>) {
my ( $cat, $desc, $link ) = split('#', $_);
$link =~ s/LINK=//;
$desc =~ s/DESC=//;
$cat =~ s/CATE=//;
next if ( $_ !~ /^CATE=/ );
next if ( $_ =~ /Torrent does not exist/ig );
next if ( $link =~ /megawerbung/);
$cat = &deleteSpecialChars($cat);
$desc = &deleteSpecialChars($desc);
$count++;
$desc =~ s/&+(\w)+;/ /i;
$desc =~ s/&#+(\w)+;/ /i;
$desc =~ s/&+(\d)+;/ /i;
$desc =~ s/&#+(\d)+;/ /i;
... [truncated, 156 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "SQLAddToDB.pl",
"description": "Perl module for SQLAddToDB",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "4.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/SQLAddToDB.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 TitanAdd.pl (Perl) 4.7 KB 2010-03-30
Perl module for TitanAdd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use Tie::File;
#AddContentToSqlEMULE("/root/zoozle/new-bots-X/titanmule_all_news.txt");
AddContentToSqlEMULE("/root/zoozle/new-bots-X/titanmule_de_news.txt");
AddContentToSqlEMULE("/root/zoozle/new-bots-X/titanmule_en_news.txt");
exit;
sub AddContentToSqlEMULE() {
my $filename = shift;
my $date = &getDATE();
use DBI();
my $drh = DBI->install_driver("mysql");
my $DBHOST = "localhost";
my $DBNAME = "zoozle";
my $DBUSER = "zoozle";
my $DBPASS = "zoozle23!99";
my $dbh = DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
my $count = 0;
open(RH1,"<$filename") or warn "$! - $filename \n";
foreach (<RH1>) {
my ( $cat, $desc, $link ) = split('#', $_);
$link =~ s/LINK=//;
$desc =~ s/DESC=//;
$cat =~ s/CATE=//;
next if ( $_ !~ /^CATE=/ );
next if ( $_ =~ /Torrent does not exist/ig );
next if ( $link =~ /megawerbung/);
$cat = &deleteSpecialChars($cat);
$desc = &deleteSpecialChars($desc);
$count++;
$desc =~ s/&+(\w)+;/ /i;
... [truncated, 160 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "TitanAdd.pl",
"description": "Perl module for TitanAdd",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "4.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/TitanAdd.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 TorrentNewsCrawler.pl (Perl) 13.4 KB 2010-03-30
Perl module for TorrentNewsCrawler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/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 $torrentflatfile = "/root/zoozle/new-bots-X/torrent_news.txt";
unlink $torrentflatfile;
# filedonkey emule
my %LinksToScanDE = ( # 27 torrents
"http://bitreactor.to/index" => '\/torrent\/', # http://bitreactor.to/torrent/592734-filme-divx-xvid-otac-na-sluzbenom-putu-1985
... [truncated, 253 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "TorrentNewsCrawler.pl",
"description": "Perl module for TorrentNewsCrawler",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "13.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/TorrentNewsCrawler.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 TorrentNewsCrawler_20080520.pl (Perl) 15.2 KB 2010-03-30
Perl module for TorrentNewsCrawler 20080520
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/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 $torrentflatfile = "/root/zoozle/new-bots-X/torrent_news.txt";
unlink $torrentflatfile;
# filedonkey emule
my %LinksToScanDE = ( # 27 torrents
"http://bitreactor.to/index" => '\/torrent\/', # http://bitreactor.to/torrent/592734-filme-divx-xvid-otac-na-sluzbenom-putu-1985
... [truncated, 295 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "TorrentNewsCrawler_20080520.pl",
"description": "Perl module for TorrentNewsCrawler 20080520",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "15.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/TorrentNewsCrawler_20080520.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 caching.pl (Perl) 1.2 KB 2010-03-30
Perl module for caching
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41 | #!/usr/bin/perl
#use Net::SCP::Expect;
# perl -MCPAN -e 'install "Net::SCP::Expect"'
require "functions.pl";
CACHE();
sub CACHE(){
my $timeout = "300";
my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.0; de-DE; rv:1.6) Gecko/20040206 Firefox/1.0.1";
my %CACHING = (
"/server/wwwroot/index.html" => "http://www.zoozle.org/index.php", # .net: "/srv/server/wwwroot/index.html" => "http://www.zoozle.net/index.php",
# "/server/en.wwwroot/index.html" => "http://en.zoozle.net/index.php",
# "/srv/server/de.wwwroot/index.html" => "http://de.zoozle.net/index.php",
# "/server/apache2/htdocs/de/index.html" => "http://85.214.90.176/de/index_de.php",
# "/server/apache2/htdocs/org/index.html" => "http://85.214.90.176/org/index_org.php",
# "/server/apache2/htdocs/devu/index.html" => "http://85.214.90.176/devu/index_devu.php"
);
while( my ( $path, $url ) = each(%CACHING) ){
my $page = &http_get($url, $timeout, $ua, );
print "Generate Cache for $url\n";
if ( length($page) >= 1000 ) {
unlink $path;
open(WH,">$path");
print WH $page;
close WH;
}; # if ( length($page) >= 1000 ) {
}; # while( my ( $path, $url ) = each(%CACHING) ){
return 1;
}; # sub CACHE(){}
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "caching.pl",
"description": "Perl module for caching",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "1.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/caching.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 daily_newsupdate.pl (Perl) 1.7 KB 2010-03-30
Perl module for daily newsupdate
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#use Net::SCP::Expect;
# perl -MCPAN -e 'install "Net::SCP::Expect"'
require "functions.pl";
while(1){
system("perl /root/zoozle/new-bots-X/EmuleNewsCrawler.pl");
system("perl /root/zoozle/new-bots-X/TorrentNewsCrawler.pl"); # torrent.newsbot.pl
# newsarchive cachen
# system("perl /root/zoozle/caching/NewsarchiveCachePage.pl");
# &CACHE();
# sitemaps fr heute erstellen
# system("perl /root/zoozle/sitemaps/SitemapToday.pl");
# sitemaps aus den suchkeywords der user bilden
# system("perl /root/zoozle/sitemaps/SitemapKeywordsToday.pl");
system("date");
sleep 21600;
};
sub CACHE(){
my $timeout = "300";
my $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.0; de-DE; rv:1.6) Gecko/20040206 Firefox/1.0.1";
my %CACHING = (
"/server/wwwroot/index.html" => "http://www.zoozle.org/index.php", # .net: "/srv/server/wwwroot/index.html" => "http://www.zoozle.net/index.php",
# "/server/en.wwwroot/index.html" => "http://en.zoozle.net/index.php",
# "/srv/server/de.wwwroot/index.html" => "http://de.zoozle.net/index.php",
# "/server/apache2/htdocs/de/index.html" => "http://85.214.90.176/de/index_de.php",
# "/server/apache2/htdocs/org/index.html" => "http://85.214.90.176/org/index_org.php",
# "/server/apache2/htdocs/devu/index.html" => "http://85.214.90.176/devu/index_devu.php"
);
while( my ( $path, $url ) = each(%CACHING) ){
my $page = &http_get($url, $timeout, $ua, );
print "Generate Cache for $url\n";
if ( length($page) >= 1000 ) {
... [truncated, 15 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "daily_newsupdate.pl",
"description": "Perl module for daily newsupdate",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "1.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/daily_newsupdate.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 functions.pl (Perl) 5.9 KB 2010-03-30
Perl module for functions
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use Tie::File;
use Net::MySQL; # perl -MCPAN -e 'force install "Net::MySQL"'
$UA = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1;)";
############# Subroutine zum erstellen eines HTTP Requestes:Start
# Aufgabe: &http_get - erstelle und sende http request an bergebene url
# Rckgabe: content der angefragten uri/url
sub http_get() {
my ($url, $timeout, $useragent, $proxy) = @_;
my $UA = LWP::UserAgent->new( keep_alive => 1 );
$UA->agent($useragent);
$UA->timeout($timeout);
$UA->max_size(950_000);
#$UA->proxy(["http"], "http://$proxy") if ($proxy ne '');
my $jar_jar = HTTP::Cookies->new
(file => ".Cookies" || ".Cookies.txt",
autosave => 1,
max_cookie_size => 40960,
max_cookies_per_domain => 10000, );
$UA->cookie_jar($jar_jar );
my $req = HTTP::Request->new(GET => $url);
# Pass request to the user agent and get a response back
$req->referer($url);
my $res = $UA->request($req);
if ($res->is_success) {
return $res->content;
} else {
#return "<html><body> Spider::Easyspider::http_get(): " . $res->status_line . "</body></html>";
return 0;
};
}; # sub http_get {}
############# Subroutine zum erstellen eines HTTP Requestes:Ende
... [truncated, 205 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "functions.pl",
"description": "Perl module for functions",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "5.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/functions.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 test.pl (Perl) 15.0 KB 2010-03-30
Perl module for test
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/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 $torrentflatfile = "/root/zoozle/new-bots-X/torrent_news.txt";
unlink $torrentflatfile;
# filedonkey emule
my %LinksToScanDE = ( # 27 torrents
"http://bitreactor.to/index" => '\/torrent\/', # http://bitreactor.to/torrent/592734-filme-divx-xvid-otac-na-sluzbenom-putu-1985
... [truncated, 289 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "test.pl",
"description": "Perl module for test",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "15.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/test.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}
🐪 torrentTest.pl (Perl) 6.6 KB 2010-03-30
Perl module for torrentTest
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/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 IO::Handle;
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 $torrentflatfile = "/root/zoozle/new-bots-X/titanmule_test.txt";
unlink $torrentflatfile;
# filedonkey emule
my %LinksToScanDE = ( # 27 torrents
... [truncated, 183 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "torrentTest.pl",
"description": "Perl module for torrentTest",
"dateModified": "2010-03-30",
"dateCreated": "2025-03-23",
"contentSize": "6.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/torrentTest.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/newsbots/contrib/"
}