streamingwebsites - kinodownloads - SOURCE CODE

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 836 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 838 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 838 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 841 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 839 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 841 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 835 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 840 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 839 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 841 more lines] ...

#!/usr/bin/perl

system("cls");
#sleep 25000;

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;
use DBI;
use File::Find;	# perl -MCPAN -e 'force install "File::Find"'
use File::Copy;	# perl -MCPAN -e 'force install "File::Copy"'
use File::Path;	# perl -MCPAN -e 'force install "File::Path"'
use File::Basename;
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"' 
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use Data::Dumper; 
use POSIX qw(strftime);
use HTML::Entities;
use HTML::LinkExtractor;
use Regexp::Common qw(time);
use LWP::Simple;
use HTTP::Status ();

my %AlreadyScanned;
my $AlreadyScanned;
my $crawling;
my $key;
my $Hash;
my %Hash = ();

my $D;
my %D = ();

#############################
# Posting Data
 my $username 	= "cereal";
 my $password 	= "rouTer99"; 

... [truncated, 838 more lines] ...

#!/usr/bin/perl

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b  - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

use strict;
use Parallel::ForkManager;		# perl -MCPAN -e 'force install "Parallel::ForkManager"'

my @files = (
	"/server/kinodownloads/daily_best_movies.pl",
	"/server/kinodownloads/daily_hd-area.pl",
	"/server/kinodownloads/daily_hd-world.pl",
	"/server/kinodownloads/daily_movie-blog.pl",
	"/server/kinodownloads/daily_moviebox.pl",
	"/server/kinodownloads/daily_moviekk.pl",
	"/server/kinodownloads/daily_ul_movies.pl",
	"/server/kinodownloads/daily_movietown.pl",
	#"daily_cineload.pl",
	"/server/kinodownloads/daily_cinetopia.pl",
	"/server/kinodownloads/daily_funxd.pl",
	#".pl",
);

foreach my $file (@files){
	if ( $file =~ /\.pl$/ig ){ 
		print "Starting: $file\n";
		system("perl -c $file");
		#system("perl $file");
	}
}


my $MAX_PARALLEL_THREADS = scalar(@files);
my $pm 		= new Parallel::ForkManager($MAX_PARALLEL_THREADS);
			
for ( my $count = 1; $count <= $MAX_PARALLEL_THREADS; $count++) {

	my $element = pop(@files); 
	$pm->set_max_procs($MAX_PARALLEL_THREADS);
	
	# Forks and returns the pid for the child:
	my $pid = $pm->start and next; 
		print "Now Executing: $element\n";
		system("perl $element");

... [truncated, 9 more lines] ...