torrentrage - torrentrage - importer - SOURCE CODE

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