streamingwebsites - moviestreamz - 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 LWP::UserAgent;
use HTTP::Status ();

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

my $D;
my %D = ();

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

... [truncated, 970 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 LWP::UserAgent;
use HTTP::Status ();

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

my $D;
my %D = ();

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

... [truncated, 1038 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 LWP::UserAgent;
use HTTP::Status ();

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

my $D;
my %D = ();

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

... [truncated, 1039 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 LWP::UserAgent;
use HTTP::Status ();

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

my $D;
my %D = ();

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

... [truncated, 1052 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 LWP::UserAgent;
use HTTP::Status ();

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

my $D;
my %D = ();

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

... [truncated, 1012 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/moviestreamz/daily_2kino.pl",
	#"/server/moviestreamz/daily_ddl.pl",
	"/server/moviestreamz/daily_g-stream.pl",
	"/server/moviestreamz/daily_kkiste.pl",
	#"/server/moviestreamz/daily_movstreams.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");
	$pm->finish; # Terminates the child process
	
} # for ( my $count = 1; $count <= MAX_PARALLEL_THREADS; $count++) {

$pm->wait_all_children;


... [truncated, 3 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/moviestreamz/daily_2kino.pl",
	#"/server/moviestreamz/daily_ddl.pl",
	"/server/moviestreamz/daily_g-stream.pl",
	"/server/moviestreamz/daily_kkiste.pl",
	"/server/moviestreamz/daily_movstreams.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");
	$pm->finish; # Terminates the child process
	
} # for ( my $count = 1; $count <= MAX_PARALLEL_THREADS; $count++) {

$pm->wait_all_children;


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