🐪 dumpinstaller_bitorrentam_hourly.pl (Perl) 1.7 KB 2010-07-16
Perl module for dumpinstaller bitorrentam hourly
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_bitorrentam_hourly.pl",
"description": "Perl module for dumpinstaller bitorrentam hourly",
"dateModified": "2010-07-16",
"dateCreated": "2025-03-23",
"contentSize": "1.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_bitorrentam_hourly.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_cogo_hourly.pl (Perl) 1.8 KB 2010-08-07
Perl module for dumpinstaller cogo hourly
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_cogo_hourly.pl",
"description": "Perl module for dumpinstaller cogo hourly",
"dateModified": "2010-08-07",
"dateCreated": "2025-03-23",
"contentSize": "1.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_cogo_hourly.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_kickass.pl (Perl) 1.5 KB 2010-06-14
Perl module for dumpinstaller kickass
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_kickass.pl",
"description": "Perl module for dumpinstaller kickass",
"dateModified": "2010-06-14",
"dateCreated": "2025-03-23",
"contentSize": "1.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_kickass.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_kickass_hourly.pl (Perl) 1.7 KB 2010-06-14
Perl module for dumpinstaller kickass hourly
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_kickass_hourly.pl",
"description": "Perl module for dumpinstaller kickass hourly",
"dateModified": "2010-06-14",
"dateCreated": "2025-03-23",
"contentSize": "1.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_kickass_hourly.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_limetorrent.pl (Perl) 1.6 KB 2010-06-15
Perl module for dumpinstaller limetorrent
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_limetorrent.pl",
"description": "Perl module for dumpinstaller limetorrent",
"dateModified": "2010-06-15",
"dateCreated": "2025-03-23",
"contentSize": "1.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_limetorrent.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_limetorrents_hourly.pl (Perl) 1.8 KB 2010-06-15
Perl module for dumpinstaller limetorrents hourly
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_limetorrents_hourly.pl",
"description": "Perl module for dumpinstaller limetorrents hourly",
"dateModified": "2010-06-15",
"dateCreated": "2025-03-23",
"contentSize": "1.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_limetorrents_hourly.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_monova.pl (Perl) 1.5 KB 2010-06-14
Perl module for dumpinstaller monova
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_monova.pl",
"description": "Perl module for dumpinstaller monova",
"dateModified": "2010-06-14",
"dateCreated": "2025-03-23",
"contentSize": "1.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_monova.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_monova_hourly.pl (Perl) 1.7 KB 2010-06-14
Perl module for dumpinstaller monova hourly
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_monova_hourly.pl",
"description": "Perl module for dumpinstaller monova hourly",
"dateModified": "2010-06-14",
"dateCreated": "2025-03-23",
"contentSize": "1.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_monova_hourly.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_torrentfunk.pl (Perl) 1.5 KB 2010-07-05
Perl module for dumpinstaller torrentfunk
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_torrentfunk.pl",
"description": "Perl module for dumpinstaller torrentfunk",
"dateModified": "2010-07-05",
"dateCreated": "2025-03-23",
"contentSize": "1.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_torrentfunk.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_torrentfunk_hourly.pl (Perl) 1.7 KB 2010-07-16
Perl module for dumpinstaller torrentfunk hourly
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_torrentfunk_hourly.pl",
"description": "Perl module for dumpinstaller torrentfunk hourly",
"dateModified": "2010-07-16",
"dateCreated": "2025-03-23",
"contentSize": "1.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_torrentfunk_hourly.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 dumpinstaller_zoozle.pl (Perl) 1.8 KB 2010-06-17
Perl module for dumpinstaller zoozle
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 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] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dumpinstaller_zoozle.pl",
"description": "Perl module for dumpinstaller zoozle",
"dateModified": "2010-06-17",
"dateCreated": "2025-03-23",
"contentSize": "1.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/dumpinstaller_zoozle.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🗃️ torrentrage_sqlstructure.sql (Sql) 1.2 KB 2010-06-09
SQL queries for torrentrage sqlstructure
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 | -- phpMyAdmin SQL Dump
-- version 3.3.1
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Erstellungszeit: 09. Juni 2010 um 15:06
-- Server Version: 5.1.37
-- PHP-Version: 5.2.10-2ubuntu6.4
SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";
/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;
--
-- Datenbank: `torrentrage`
--
-- --------------------------------------------------------
--
-- Tabellenstruktur für Tabelle `torrentrage`
--
DROP TABLE IF EXISTS `torrentrage`;
CREATE TABLE IF NOT EXISTS `torrentrage` (
`ID` int(255) NOT NULL AUTO_INCREMENT,
`DATE` date NOT NULL DEFAULT '0000-00-00',
`CATG` varchar(60) NOT NULL DEFAULT '',
`DESC` varchar(255) NOT NULL,
`LINK` varchar(255) NOT NULL,
`TORRENT` varchar(255) NOT NULL,
`LEECHER` varchar(10) NOT NULL DEFAULT 'n/a',
`SEEDER` varchar(10) NOT NULL DEFAULT 'n/a',
`HASH` varchar(32) NOT NULL,
PRIMARY KEY (`ID`),
UNIQUE KEY `LINK` (`LINK`),
KEY `DESC_2` (`DESC`),
KEY `DATE` (`DATE`),
FULLTEXT KEY `DESC` (`DESC`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;
--
-- Daten für Tabelle `torrentrage`
--
... [truncated, 1 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "torrentrage_sqlstructure.sql",
"description": "SQL queries for torrentrage sqlstructure",
"dateModified": "2010-06-09",
"dateCreated": "2025-03-23",
"contentSize": "1.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/torrentrage_sqlstructure.sql",
"encodingFormat": "application/x-sql",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Sql"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}
🐪 zoozleexporter.pl (Perl) 768 bytes 2010-06-11
Perl module for zoozleexporter
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 | 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;
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "zoozleexporter.pl",
"description": "Perl module for zoozleexporter",
"dateModified": "2010-06-11",
"dateCreated": "2025-03-23",
"contentSize": "768 bytes",
"contentUrl": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/zoozleexporter.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/torrentrage/torrentrage/dumpinstaller/"
}