bitjoe - WebDevelopment - cron - SOURCE CODE

#!/usr/bin/perl

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: Own Usage - not allowed to distribute
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Hint: latest version always in 'Homepages\www.zoozle.net\zoozle\service_alive_test'
###########################

use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use MIME::Lite;		# perl -MCPAN -e 'install "MIME::Lite"'
use Net::Ping;		# perl -MCPAN -e 'install "Net::Ping"'
use strict;

# debug
### use Data::Dumper;

# ###### env EDITOR=joe crontab -e


######
my $MaxFileSizeOfWebDocument	= (5 * 1024 * 1024);	# 5mb
my $MaxRedirectRequests			= 5;
my $AuthorEmail					= 'test@cpan.org';
my $Timeout						= 20;
my $CrawlDelay					= int(rand(3));
my $Version						= "Version 1.a -20080811 @11.02 Uhr-";
my @ports_to_check				= ("22","80");
my @admin_mail_deliver			= ('thecerial@gmail.com','torsten.morgenroth@gmail.com');	# diese emails sollen error meldungen bekommen
my @admin_sms_deliver			= ('+491607979247');		# diese handynr sollen error sms bekommen
######


my %ZoozleHosts				= (
	"www.zoozle.net"	=> "www.zoozle.net [87.106.71.144]",		
	"www.zoozle.org"	=> "www.zoozle.org [87.106.134.107]",
);

my %ZoozleAliveIDs				= (
	"www.zoozle.net"	=> "ALIVEID=e424bb41bcb33975620f2c67ce836158",		
	"www.zoozle.org"	=> "ALIVEID=21bd6def1ac1eb50478caab621395580",
);


######################
#### Alive checks ####

... [truncated, 402 more lines] ...

#!/usr/bin/perl

use strict;
no strict 'subs';

use File::Find qw(finddepth);
# perl -MCPAN -e 'force install "File::Find"'

*name = *File::name;
finddepth \&zap, '/srv/server/wwwroot/download';

sub zap() {
	
	if ( !-l && -d ) {
	
	#	print "rmtree $name\n";
	#	rmdir($name) or warn "$name not deleted: $!\n";

	} else {

	#	unlink($name) or warn "$name not deleted: $!\n";
		
		my $name	= $File::Find::name;
		my $dir		= $File::Find::dir;
		my @stats	= stat($name);
	
		next if ( $dir eq '/srv/server/wwwroot/download' );
		print "unlink $name | $dir \n";

		if ( time() > $stats[9] + 60*60*24 ) {	# wenn erstellte datei älter als 1h*24 ist
			
			my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($stats[9]);
			printf "%4d-%02d-%02d %02d:%02d:%02d [$dir] [$name]\n",$year+1900,$mon+1,$mday,$hour,$min,$sec;
			unlink($name) or warn "$name not deleted: $!\n";
			rmdir($dir);

		}; # if ( time() > $stats[9] + 60*60 ) {	# wenn erstellte datei älter als 1h ist
		
	}; # if ( !-l && -d ) {

}; # sub zap() {

# http://www.hidemail.de/blog/stat-perl-dateieigenschaften.shtml
# 00 */1 * * * /usr/bin/perl /srv/server/cron/cron_delete_wappushlinks.pl

#!/usr/bin/perl

# 00 */1 * * * /usr/bin/perl /srv/server/cron/cron_leadtracking.pl

use DBI();
use strict;
use LWP::Simple;
use Data::Dumper;
use Digest::MD5 qw( md5_hex );

my $drh				= DBI->install_driver("mysql");

my $DBHOST			= "localhost";
my $DBNAME			= "bitjoe";
my $DBUSER			= "root";	
my $DBPASS			= "rouTer99";		

my $DBHandle		= DBI->connect("DBI:mysql:database=$DBNAME;host=$DBHOST", "$DBUSER", "$DBPASS", {'RaiseError' => 0});

my $CurrentDate		= getDATE();
my $SQLQuery		= "SELECT `web_mobilephone`,`web_ref_PP`,`web_grp_PP` FROM `bjparis` WHERE DATE(`web_signup_date`) = '$CurrentDate' AND `web_lead_istracked` = '0' AND `hc_abuse` = '0' AND `web_lead_istracked` = '0' AND `web_firstuse` = '0';";
my $ResultHashRef	= {};
my (@matrix)		= ();

eval {
	
	my $sth = $DBHandle->prepare( qq { $SQLQuery } );
	$sth->execute;
	#$ResultHashRef = $sth->fetchrow_hashref;
	
	while (my @ary = $sth->fetchrow_array()) {
		
		print Dumper @ary;

		# push(@matrix, [@ary]);  # [@ary] is a reference
		my $phone	= $ary[0];
		my $pp		= $ary[1];
		my $grp		= $ary[2];

		if ( $pp == 0 ) {
			$pp = 3;
		};
		if ( $grp == 0) {
			$grp = 1;
		};

		my $doc = "http://www.bitjoepartner.com/callbacks/callback_sample.php?txn_id=BITJOE&aff_id=$pp&group_id=$grp&amount=1&cur=EUR&country_code=de&add_info=" . md5_hex(time().rand(10000));
		my $ret = get($doc);

		print "RETURN: '$ret'\n";

... [truncated, 44 more lines] ...

#!/usr/bin/perl

use strict;
# /srv/server/mysqld/bin/mysqldump -uroot -prouTer99 bitjoe > bitjoe.sql

my $curtime		= MySQLDateTime();
my $bzip2		= "/usr/bin/bzip2";
my $backuppath	= "/srv/server/cron/sqlbackup/bitjoe_$curtime.sql";
my $mysqldump	= "/srv/server/mysqld/bin/mysqldump";
print "Backup to $backuppath \n ";
system("$mysqldump -uroot -prouTer99 bitjoe > $backuppath");

print "Compressing\n";
system("$bzip2 -9 $backuppath");

exit;










sub MySQLDateTime(){

	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;
	};
	if ( length($sec) == 1 ) {
		$sec = "0". $sec;
	};
	if ( length($min) == 1 ) {
		$min = "0". $min;
	};
	if ( length($hour) == 1 ) {
		$hour = "0". $hour;
	};
	   
	return $year ."-". $mon ."-". $mday .'_'. $hour .'.'. $min .'.'. $sec;
	

... [truncated, 1 more lines] ...