torrentrage - torrentrage - infrigments - SOURCE CODE

#!/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] ...

#!/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 {
			DELETE FROM torrentrage WHERE `ID` = "$id" LIMIT 1;
		});
						
	
};

print "repairing table\n";

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

... [truncated, 6 more lines] ...