torrentrage - torrentrage - SOURCE CODE

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;

system("renice 20 $$");
system("clear");

###
# Crontab 
# env EDITOR=joe crontab -e
# 30 1,4,6,8,10,12,14,16,18,20,22,23 * * *  /usr/bin/perl /opt/torrentrage/chaching/GenerateIndexCachePage.pl
###

&CACHE();
exit;

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/www.torrentrage.com/index.html" => "http://www.torrentrage.com/index.php",
		"/server/wwwroot/www.rapidstorm.net/index.html" => "http://www.rapidstorm.net/index.php",
		"/server/wwwroot/www.pornrage.com/index.html" => "http://www.pornrage.com/index.php",
		"/server/wwwroot/www.ewqet.net/index.html" => "http://www.ewqet.net/index.php",
	);

	while( my ( $path, $url ) = each(%CACHING) ){
		
		my $page = &http_get($url, $timeout, $ua, );
		if ( length($page) >= 1000 ) {
		
			unlink $path;
			open(WH,">$path");
				print WH $page;
				my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
				printf WH "<center>Cached at: %4d-%02d-%02d %02d:%02d:%02d </center>\n", $year+1900,$mon+1,$mday,$hour,$min,$sec;
				print WH '<li><a href="http://www.torlock.com/" target="_blank">Torrent Search Engine TorLock</a></li>' if ( $url =~ /torrentrage/ig ); 
				printf "<center>$url - Cached at: %4d-%02d-%02d %02d:%02d:%02d </center>\n", $year+1900,$mon+1,$mday,$hour,$min,$sec;
			close WH;

		}; # if ( length($page) >= 1000 ) {
	};

	return 1;

}; # sub CACHE(){}

... [truncated, 36 more lines] ...

#!/usr/bin/perl 


system("renice 20 $$");
system("clear");

###
# Crontab 
# env EDITOR=joe crontab -e
# 45 23 * * *  /usr/bin/perl /opt/torrentrage/echtzeitueberwachung/control.pl
###

use strict;
use URI::URL;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use HTML::TokeParser;
use Data::Dumper;


my $torrentflatfile 			= "/var/tmp/";
######
my $MaxFileSizeOfWebDocument	= (5 * 1024 * 1024);	# 5mb
my $MaxRedirectRequests			= 0;
my $AuthorEmail					= 'test@cpan.org';
my $Timeout						= 30;
my $CrawlDelay					= int(rand(3));
my $AlreadSeenLinks;
my %AlreadSeenLinks				= ();

my %LinksToScanDE = (		# 27 torrents
	"http://www.movieworlds.com/kinochartstop10.php" => '\/filme\/',		
	"http://www.musicload.de/liste/top-30-singles/312/LL_285" => '\/single\/',		
	"http://outnow.ch/Games/Charts/Schweizer-PC-Games-Charts/" => '\/Games\/',		
);

&doScanning( "http://www.movieworlds.com/kinochartstop10.php", '\/filme\/', "movies.txt" );
&doScanning( "http://www.musicbox.de/musicbox/MP3+2001212_Top-Titel.do;jsessionid=2D3C32866DCB1C3022083158A355E3E9.234-macs-3-musicbox", 'productid', "single.txt" );
&doScanning( "http://outnow.ch/Games/Charts/Schweizer-PC-Games-Charts/", '\/Games\/(\d{4})', "games.txt" );


sub doScanning(){

	my $UrltoScan			= shift;
	my $Regex				= shift;
	my $path				= shift;
	
	my ($Content,$Object) 	= &Get($UrltoScan);
	my $Links 				= &HtmlLinkExtractor($Content,$Object);

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

#!/usr/bin/perl

###
# Crontab 
# env EDITOR=joe crontab -e
# */1 * * * * /usr/bin/perl /opt/torrentrage/cronjobs/mysqlrestart.pl
###

use strict;
use LWP::Simple qw ($ua head get);


$ua->timeout(10);
my $webpage	='http://www.torrentrage.com/';


open(R,"/proc/loadavg");
	my $loadavg = do { local( $/ ) ; <R> } ;
close R;

my @loadavg		= split(" ",$loadavg);

if ( $loadavg[0] >= 35 ) {
	#print "load to high";
	system("/etc/init.d/mysql restart");
#	system("/etc/init.d/apache2 restart");
	system("renice 5 `pidof mysqld`");
	system("renice 5 `pidof apache2`");
	system("renice 5 `pidof perl`");
	system("renice 5 `pidof ruby`");
};

if (head($webpage)){
	print "$webpage exists and server is up!\n";
	my $inhalt=get("http://www.pornrage.com/porntube.php");
	if ( $inhalt =~ /Too many connections/ig ){
		system("/etc/init.d/mysql restart");
	};
	#print $inhalt;
} else {
	print "nono, $webpage ist grad nicht erreichbar\n";
#	system("/etc/init.d/apache2 restart");
#	system("/etc/init.d/apache2 start");
};


# Wenn mysql sich mit restart nicht richtig restarten lsst (=fail) dann einfach /var/run/mysqld/mysqld.pid lschen und dann neu starten




... [truncated, 1 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use LWP::Simple;

# http://bittorrent.am/torrentrage/daily.php

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $status 		= getstore("http://bittorrent.am/torrentrage/daily.php", "/tmp/btam-daily");

my $file		= "/tmp/btam-daily";
my $date		= getDATE();
my $count		= 0;

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# http://bittorrent.am/torrentrage/daily.php // HASH|Torrent_Name|Category|Subcategory|Page_URL
		
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		# 795EE0FFCED86B8B1DCB9A48BA3006F292555FF9|The 11th Hole|Adult|Movies|http://www.BitTorrent.AM/torrent/4958411/0/547/The_11th_Hole.html
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg $detail','$desc','$torrent','','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
		$count++;
	#print "'$date' ,'$desc','$catg $detail','$torrent','','n/a','n/a','$hash'\n";

	};
close R;

print "$count bittorrentam entries added\n";
unlink $file;
exit(0);



... [truncated, 23 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use LWP::Simple;

# www.torrentfunk.com/data/tz.gz 
# www.torrentfunk.com/data/tz-daily.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $status 		= getstore("http://www.torrentbit.nl/images/tbnl_dump.tar.gz", "/tmp/tbnl_dump.tar.gz");
system("/bin/gunzip -f /tmp/tbnl_dump.tar.gz");

my $file		= "/tmp/tz-daily";
my $date		= getDATE();
my $count		= 0;

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
		$count++;
	
	};
close R;

print "$count torrentfunk entries added\n";
unlink $file;
exit(0);



... [truncated, 23 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;

# http://www.kickasstorrents.com/dailydump.txt.gz
# http://www.kickasstorrents.com/hourlydump.txt.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $file		= $ARGV[0] || die "no file to import given";
my $date		= getDATE();

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# 405891cb4a7dc21ffdfb682dfe9e34a50a51ea6a|Aliens In The Attic.avi|Movies|http://www.kickasstorrents.com/aliens-in-the-attic-avi-t4142859.html|http://torcache.com/torrent/405891CB4A7DC21FFDFB682DFE9E34A50A51EA6A.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
	
	};
close R;

sub getDATE(){

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
	$year = $year+1900;
	$mon = $mon + 1;

	if ( length($mon) == 1 ) {
		$mon = "0". $mon;
	};
	if ( length($mday) == 1 ) {
		$mday = "0". $mday;

... [truncated, 10 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use LWP::Simple;


# http://www.kickasstorrents.com/dailydump.txt.gz
# http://www.kickasstorrents.com/hourlydump.txt.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $status 		= getstore("http://www.kickasstorrents.com/hourlydump.txt.gz", "/tmp/hourlydump.txt.gz");
system("/bin/gunzip -f /tmp/hourlydump.txt.gz");

my $file		= "/tmp/hourlydump.txt";
my $date		= getDATE();
my $count		= 0;

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# 405891cb4a7dc21ffdfb682dfe9e34a50a51ea6a|Aliens In The Attic.avi|Movies|http://www.kickasstorrents.com/aliens-in-the-attic-avi-t4142859.html|http://torcache.com/torrent/405891CB4A7DC21FFDFB682DFE9E34A50A51EA6A.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
		$count++;
	};
close R;

print "$count kickasstorrent.com entries added\n";
unlink $file;
exit(0);



... [truncated, 21 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;

# http://www.limetorrents.com/backend/Cache/torrentz1h.txt.gz
# http://www.limetorrents.com/backend/Cache/torrentz8h.txt.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $file		= $ARGV[0] || die "no file to import given";
my $date		= getDATE();

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
	
	};
close R;

sub getDATE(){

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
	$year = $year+1900;
	$mon = $mon + 1;

	if ( length($mon) == 1 ) {
		$mon = "0". $mon;
	};
	if ( length($mday) == 1 ) {
		$mday = "0". $mday;

... [truncated, 10 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use LWP::Simple;

# http://www.limetorrents.com/backend/Cache/torrentz1h.txt.gz
# http://www.limetorrents.com/backend/Cache/torrentz8h.txt.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $status 		= getstore("http://www.limetorrents.com/backend/Cache/torrentz1h.txt.gz", "/tmp/torrentz1h.txt.gz");
system("/bin/gunzip -f /tmp/torrentz1h.txt.gz");

my $file		= "/tmp/torrentz1h.txt";
my $date		= getDATE();
my $count		= 0;

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
		$count++;
	
	};
close R;

print "$count limetorrent.com entries added\n";
unlink $file;
exit(0);



... [truncated, 23 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;

# http://www.monova.org/torrentz.gz
# http://www.monova.org/torrentz.h.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $file		= $ARGV[0] || die "no file to import given";
my $date		= getDATE();

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
	
	};
close R;

sub getDATE(){

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
	$year = $year+1900;
	$mon = $mon + 1;

	if ( length($mon) == 1 ) {
		$mon = "0". $mon;
	};
	if ( length($mday) == 1 ) {
		$mday = "0". $mday;

... [truncated, 10 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use LWP::Simple;

# http://www.monova.org/torrentz.gz
# http://www.monova.org/torrentz.h.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $status 		= getstore("http://www.monova.org/torrentz.h.gz", "/tmp/torrentz.h.gz");
system("/bin/gunzip -f /tmp/torrentz.h.gz");

my $file		= "/tmp/torrentz.h";
my $date		= getDATE();
my $count		= 0;

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
		$count++;
	
	};
close R;

print "$count monova.org entries added\n";
unlink $file;
exit(0);



... [truncated, 23 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;

# www.torrentfunk.com/data/tz.gz 
# www.torrentfunk.com/data/tz-daily.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $file		= $ARGV[0] || die "no file to import given";
my $date		= getDATE();

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# c1f9c1ea0e4968362ef16b2e3a285b768add2b98|Oj_Da_Juiceman-the_Realest_Nigga_I_Know_(Hosted_by_DJ_Rell)-2010-DjLeak|Music|http://www.torrentfunk.com/torrent/1007286/Oj_Da_Juiceman-the_Realest_Nigga_I_Know_%28Hosted_by_DJ_Rell%29-2010-DjLeak.html|http://torrentfunk.com/tor/1007286.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
	
	};
close R;

sub getDATE(){

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
	$year = $year+1900;
	$mon = $mon + 1;

	if ( length($mon) == 1 ) {
		$mon = "0". $mon;
	};
	if ( length($mday) == 1 ) {
		$mday = "0". $mday;

... [truncated, 10 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use LWP::Simple;

# www.torrentfunk.com/data/tz.gz 
# www.torrentfunk.com/data/tz-daily.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $status 		= getstore("http://www.torrentfunk.com/data/tz-daily.gz", "/tmp/tz-daily.gz");
system("/bin/gunzip -f /tmp/tz-daily.gz");

my $file		= "/tmp/tz-daily";
my $date		= getDATE();
my $count		= 0;

open(R,"<$file");
	while(<R>){
		chomp;
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($hash,$desc,$catg,$detail,$torrent) = split(/\|/ig, $line); 
		#print "$hash,$desc,$catg,$detail,$torrent\n";
		
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'$catg','$desc','$detail','$torrent','n/a','n/a','$hash' );
			});
		$dbh->disconnect();
		$count++;
	
	};
close R;

print "$count torrentfunk entries added\n";
unlink $file;
exit(0);



... [truncated, 23 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;
use Digest::MD5 qw( md5_hex );	#  perl -MCPAN -e 'force install "Digest::MD5"'

# http://www.kickasstorrents.com/dailydump.txt.gz
# http://www.kickasstorrents.com/hourlydump.txt.gz

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";	

my $file		= $ARGV[0] || die "no file to import given";
#my $date		= getDATE();
my $count 		= 0;

open(R,"<$file");
	while(<R>){
		
		chomp;
		
		my $line = $_;
		$line =~ s/'//ig;
		$line =~ s/\'//ig;
		$line =~ s/"//ig;
		$line =~ s/\"//ig;
		
		next if length($line) < 10; 
		
		# d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99|SALVE - HELA SERIEN|Movies|http://www.monova.org/details/3751887/SALVE%20-%20HELA%20SERIEN.html|http://www.monova.org/download/3751887/2010-06-08/d5f31b76d00f3fc64a2cd7f2b771a1944a5a0d99/SALVE%20-%20HELA%20SERIEN.torrent
		my ($content) = split(/\\/ig, $line); 
		my (undef,$date,undef,$desc,$detail) = split(/,/ig, $content); 
		chomp($detail);
		
		#print "$date,$desc,$detail\n";
				
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `torrentrage` ( `DATE` ,`CATG`,`DESC`,`LINK`,`TORRENT`,`LEECHER`,`SEEDER`,`HASH` )
					VALUES (
						'$date' ,'Assorted','$desc','$detail','','n/a','n/a','' );
			});
		$dbh->disconnect();
	
		$count++;

	};

... [truncated, 23 more lines] ...

  use Net::MySQL;
  use IO::Handle;
  
  my $mysql = Net::MySQL->new(
        unixsocket => '/var/run/mysqld/mysqld.sock',
      database => 'zoozle',
      user     => 'root',
      password => 'rouTer99'
  );

  # SELECT * FROM torrentEN INTO OUTFILE '/tmp/zoozle.txt' FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\n';
  $mysql->query(q{SELECT `DATE`,`DESC`,`LINK` FROM torrentEN;});
  my $record_set = $mysql->create_record_iterator;
  open(W,">zoozle.txt");
  W->autoflush(1);
  while (my $record = $record_set->each) {
      #printf "First column: %s Next column: %s\n",
      #  $record->[0], $record->[1] , $record->[2];
	print W $record->[0] ."|". $record->[1] ."|".$record->[2] ."\n";
  };
  $mysql->close;
  close W;
  

#!/usr/bin/perl 


system("renice 20 $$");
system("clear");

###
# Crontab 
# env EDITOR=joe crontab -e
# 45 23 * * *  /usr/bin/perl /opt/torrentrage/echtzeitueberwachung/control.pl
###

use strict;
use URI::URL;
use DB_File;
use threads;
use threads::shared;
use Fcntl qw (:flock);
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use HTML::TokeParser;
use Net::MySQL;			# perl -MCPAN -e 'force install "Net::MySQL"'
use Sys::AlarmCall;		# perl -MCPAN -e 'force install "Sys::AlarmCall"'


my %NoDoubleDB;
my $NoDoubleDB;
my @threads = ();
#my @ToCheckArray :shared;

######
my $MaxFileSizeOfWebDocument	= (5 * 1024 * 1024);	# 5mb
my $MaxRedirectRequests			= 0;
my $AuthorEmail					= 'test@cpan.org';
my $Timeout						= 30;
my $CrawlDelay					= int(rand(3));
my $ParallelThreads				= 71;
my $torrentflatfile				= "/opt/torrentrage/echtzeitueberwachung/torrent_todays_news.txt"; unlink $torrentflatfile;
######

my $DBFlatFile 					= "/tmp/NoDoubleDB-Flatfile.db"; unlink $DBFlatFile;
my $WebsiteFile					= "/opt/torrentrage/echtzeitueberwachung/websites.txt";
my $Content						= &ReadWebsites( $WebsiteFile );
my $WebsitesToCheck 			= &GetWebsites($ParallelThreads, $Content);


for ( my $count = 0; $count <= $ParallelThreads; $count++) {
       my $t = threads->new(\&CheckForNewContent, $WebsitesToCheck->[$count]);

... [truncated, 354 more lines] ...

#!/usr/bin/perl

#################
##### Author:	Sebastian Enger 
##### eMail:	sebastian.enger@gmail.com
##### Web:		http://www.sebastian-enger.com
##### Licence:	Its only mine!
#################

system("renice 20 $$");
system("clear");


###
# Crontab 
# env EDITOR=joe crontab -e
# 45 23 * * *  /usr/bin/perl /opt/torrentrage/sitemaps/torrentrageSitemapToday.pl
###

# https://www.google.com/webmasters/sitemaps/addsitemap?siteUrl=http://www.zoozle.net/emule-bittorrent-download/&hl=en&type=0&sitemapUrl0= PLUS SITEMAP URI
# first do a to install needed modules: perl -MCPAN -e 'force install "WWW::Google::SiteMap::Ping"'
#    * http://www.yahoo.com/ping?sitemap=http%3A%2F%2Fjoseph.randomnetworks.com%2Fsitemap.xml
#    * http://www.google.com/ping?sitemap=http%3A%2F%2Fjoseph.randomnetworks.com%2Fsitemap.xml
#    * http://search.msn.com/ping?sitemap=http%3A%2F%2Fjoseph.randomnetworks.com%2Fsitemap.xml

# perl -MCPAN -e 'install "Digest::SHA1"'
#use URI::Escape qw(uri_escape);
use Search::Sitemap::Pinger::Ask;
use Search::Sitemap::Pinger::Yahoo;
use Search::Sitemap::Pinger::Google;
use Search::Sitemap::Pinger::Live;	# perl -MCPAN -e 'install "Search::Sitemap::Pinger"'
use Search::Sitemap::Ping;
use Search::Sitemap;
use POSIX qw(strftime);
use String::Approx 'amatch';		# perl -MCPAN -e 'install "String::Approx"'
use IO::Handle;
use strict;
use LWP::Simple;
use DBI;
use Net::MySQL;	# perl -MCPAN -e 'force install "Net::MySQL"'


my $drh	= DBI->install_driver("mysql");

my $DBHOST = "localhost";
my $DBNAME = "zoozle";
my $DBUSER = "root";	
my $DBPASS = "xxxxx";# mysql root localhost: "";

my $VERSION = "6.2.2009 - V.3";

... [truncated, 448 more lines] ...

#!/usr/bin/perl

use DBI;
use strict;

my $text;
my $lang 		= "en";
my $DBHOST		= "localhost";
my $DBNAME		= "zoozle";
my $DBUSER		= "root";	
my $DBPASS		= "xxxxx";	

my $file		= $ARGV[0];
my $count 		= 0;

open(R,"<$file") or die "$!\n";
	while(<R>){
		
		my $entry = $_;
		$entry =~ s/\'/ /igs;
		$entry =~ s/\"//igs;
	
		my ( $date ,$catg,$desc,$link) = split(";",$entry);
		#print "($count) installing $entry\n";
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
			
			$dbh->do( 
				qq {
					INSERT DELAYED INTO `torrentEN` ( `DATE` , `CATG` , `DESC` , `LINK` )
						VALUES (
							'$date', '$catg', '$desc', '$link' );
				});
			
		$dbh->disconnect();
		$count++;
	};
close R;

#!/usr/bin/perl

use DBI;
use strict;

my $text;
my $lang 		= "en";
my $DBHOST		= "localhost";
my $DBNAME		= "pornrage";
my $DBUSER		= "root";	
my $DBPASS		= "xxxxx";	

my $file		= $ARGV[0];
my $content1 	= readFile($file);
my @content		= split("\n",$content1);	


#habibi###http://www.youporn.com/watch/420903/habibi/?from=categ###http://ss-1.youporn.com/screenshot/42/09/screenshot/420903_extra_large.jpg###http://download.youporn.com/download/790578/flv/420903_habibi.flv?download=1&ll=1&t=dd###10:11###habibi, Amateur###Amateur###3.40###c44f4d1f84bee1472b2e0bdd540e996e92ef55895bec159cc545b74ab41e956d07dd9671###0###1###2010-03-18

foreach my $entry (@content) {	

	$entry =~ s/\'/ /igs;
	my ( $description ,$detaillink,$picturelink,$directlink,$length,$tags,$categorys,$rating,$md5hash,$offline,$sortpriority,$date) = split("###",$entry);
	if ( length($description) > 2 ) {
	
		# print "Installing $description\n";
	
		my $dbh		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});
		$dbh->do( 
			qq {
				INSERT DELAYED INTO `pornragestreams` ( `description` ,`detaillink`,`picturelink`,`directlink`,`length`,`tags`,`categorys`,`rating`,`md5hash`,`offline`,`sortpriority`,`date` )
					VALUES (
						'$description' ,'$detaillink','$picturelink','$directlink','$length','$tags','$categorys','$rating','$md5hash','$offline','$sortpriority','$date' );
			});
		$dbh->disconnect();
		
	}; # if ( length($pornstar) < 50 ) {
}; # foreach my $entry (@content) {	

sub readFile(){
	
	my $file = shift;
	 
	local( *FH ) ;
	open( FH, $file ) or die "sudden flaming death\n";
	$text = do { local( $/ ) ; <FH> } ;

	return $text;
	
}; # sub readFile(){

... [truncated, 1 more lines] ...

#!/usr/bin/perl

system("clear");

use strict;
use Net::MySQL;

my $DBHOST		= "localhost";
my $DBNAME		= "torrentrage";
my $DBUSER		= "root";	
my $DBPASS		= "iseeanape!23";


my $infrigmentfile = $ARGV[0] || "infrigments.txt";

open(R,"<$infrigmentfile");
	my @content = <R>;
close R;

my $mysql = Net::MySQL->new(
  # hostname => 'mysql.example.jp',   # Default use UNIX socket
  unixsocket => '/var/run/mysqld/mysqld.sock',
  database => $DBNAME,
  user     => $DBUSER,
  password => $DBPASS
);
  
foreach my $entry ( @content ){
	next if (length($entry) <= 5);
	
	# http://www.torrentrage.com/6260921/download/unkle+where+did+the+night+fall.html
	my (undef,undef,$id) = split("=", $entry);
	$id =~ s/^\s+//;
	$id =~ s/\s+$//;
	print "Deleting ($id)\n";
	
	$mysql->query( 
		qq {
			UPDATE torrentrage SET `INFRIGMENT` = "1" WHERE ID = "$id" LIMIT 1;
		});
						
	
};
exit(0);

#!/usr/bin/perl

system("clear");

use strict;
use Net::MySQL;

my $DBHOST		= "localhost";
my $DBNAME		= "zoozle";
my $DBUSER		= "root";	
my $DBPASS		= "xxxxx";


my $infrigmentfile = $ARGV[0] || "infrigments.txt";

open(R,"<$infrigmentfile");
	my @content = <R>;
close R;

my $mysql = Net::MySQL->new(
  # hostname => 'mysql.example.jp',   # Default use UNIX socket
  unixsocket => '/var/run/mysqld/mysqld.sock',
  database => $DBNAME,
  user     => $DBUSER,
  password => $DBPASS
);
  
foreach my $entry ( @content ){
	
	# http://www.torrentrage.com/6260921/download/unkle+where+did+the+night+fall.html
	my (undef,undef,undef,$id,undef,undef) = split("/", $entry);
	print "Deleting ($id) $entry\n";
	
	$mysql->query( 
		qq {
			DELETE FROM torrentEN WHERE `ID` = "$id" LIMIT 1;
		});
						
	
};

print "repairing table\n";

$mysql->query( 
		qq {
			repair table torrentEN;
		});
		
exit(0);


... [truncated, 3 more lines] ...