?
Solved

Adding time criteria to Perl script

Posted on 2009-02-24
8
Medium Priority
?
191 Views
Last Modified: 2012-06-27
I have the below script that needs to needs to run every 15 minutes from 03:00-08:00. I can set it up to run every 15 minutes using my cron manager but support told me for it to match my criteria of running only between 03:00-08:00
that I will need to add some routines in my script that will check what time it is. If the current time is within the 03:00-08:00 interval the script performs its actions, otherwise it just quits.

Could someone please help me with this?
Thanks a million in advance.
#!/usr/bin/perl
 unshift ( @INC , "\x2e" ) ; if ( ( $_set_cron_priority == 1 ) ) { setpriority (
 0 , 0 , $_cron_priority ) ; } eval { do { ( ( $0 =~ /(.*)\/[^\/]+/ ) and 
unshift ( @INC , $1 ) ) ; ( ( $0 =~ /(.*)\\[^\\]+/ ) and unshift ( @INC , $1 ) )
 ; require ( "\x61\x72\x70\x33\x2d\x63\x6f\x6e\x66\x69\x67\x2e\x70\x6c" ) ; 
require ( "\x61\x72\x70\x33\x2d\x73\x65\x74\x74\x69\x6e\x67\x73\x2e\x70\x6c" ) ;
 require ( "\x61\x72\x70\x33\x2d\x6c\x69\x62\x72\x61\x72\x79\x2e\x70\x6c" ) ; 
require ( "\x61\x72\x70\x33\x2d\x70\x61\x74\x68\x2e\x70\x6c" ) ; require ( 
"\x61\x72\x70\x33\x2d\x6c\x6f\x63\x6b\x73\x2e\x70\x6c" ) ; require ( 
"\x61\x72\x70\x33\x2d\x63\x75\x73\x74\x6f\x6d\x74\x61\x67\x73\x2e\x70\x6c" ) ; 
require ( "\x61\x72\x70\x33\x2d\x64\x79\x6e\x61\x6d\x69\x63\x2e\x70\x6c" ) ; 
require ( "\x61\x72\x70\x33\x2d\x64\x61\x74\x61\x2e\x70\x6c" ) ; require ( 
"\x61\x72\x70\x33\x2d\x6d\x61\x69\x6c\x2e\x70\x6c" ) ; require ( 
"\x61\x72\x70\x33\x2d\x6c\x6f\x67\x73\x2e\x70\x6c" ) } } ; ( $z9860a1f234 = 5 ) 
; ( $za54c30aca2 = time ) ; ( $z036c47134a = $ENV { 
"\x53\x43\x52\x49\x50\x54\x5f\x4e\x41\x4d\x45" } ) ; sub BEGIN { require 
CGI::Carp ; do { "\x43\x47\x49\x3a\x3a\x43\x61\x72\x70" -> import ( 
"\x66\x61\x74\x61\x6c\x73\x54\x6f\x42\x72\x6f\x77\x73\x65\x72" ) } ; } if ( ( 
$z036c47134a eq "" ) ) { ( $z4844a6a3dc = "\x0a" ) ; } else { ( $z4844a6a3dc = 
"\x3c\x62\x72\x3e" ) ; print ( "\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\x74\x65\x78\x74\x2f\x68\x74\x6d\x6c\x0a\x0a"
 ) ; } ( $z565d5833ec = &z7356bd474a ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_SETTINGS 
) . "\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d\x31" ) ) ) ; &z8af09cf7eb ; if ( (
 $z21ec446b1b eq "\x44\x45\x58" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( 
&zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x44\x45\x4d\x4f\x20\x50\x45\x52\x49\x4f\x44\x20\x48\x41\x53\x20\x45\x58\x50\x49\x52\x45\x44\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x44\x45\x4d\x4f\x20\x50\x45\x52\x49\x4f\x44\x20\x48\x41\x53\x20\x45\x58\x50\x49\x52\x45\x44\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq 
"\x4c\x45\x58" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) .
 "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" 
} = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x4c\x45\x41\x53\x45\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x48\x41\x53\x20\x45\x58\x50\x49\x52\x45\x44\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x4c\x45\x41\x53\x45\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x48\x41\x53\x20\x45\x58\x50\x49\x52\x45\x44\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq 
"\x44\x45\x41" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) .
 "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" 
} = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x4c\x49\x43\x45\x4e\x53\x45\x20\x44\x45\x41\x43\x54\x49\x56\x41\x54\x45\x44\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x4c\x49\x43\x45\x4e\x53\x45\x20\x44\x45\x41\x43\x54\x49\x56\x41\x54\x45\x44\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq 
"\x42\x41\x44" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) .
 "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" 
} = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x41\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x42\x41\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq 
"\x43\x52\x31" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) .
 "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" 
} = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x49\x4e\x56\x41\x4c\x49\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x23\x31\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x49\x4e\x56\x41\x4c\x49\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq 
"\x43\x52\x32" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) .
 "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" 
} = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x49\x4e\x56\x41\x4c\x49\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x23\x32\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x49\x4e\x56\x41\x4c\x49\x44\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq 
"\x55\x4e\x4b" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) .
 "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" 
} = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x55\x4e\x4b\x4e\x4f\x57\x4e\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x49\x4e\x46\x4f\x20\x23\x31\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x55\x4e\x4b\x4e\x4f\x57\x4e\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x49\x4e\x46\x4f\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } elsif ( ( $z21ec446b1b eq "" ) ) { ( 
$log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x55\x4e\x4b\x4e\x4f\x57\x4e\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x49\x4e\x46\x4f\x20\x23\x32\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x55\x4e\x4b\x4e\x4f\x57\x4e\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x49\x4e\x46\x4f\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } if ( ( ( ( ( $z21ec446b1b ne 
"\x44\x45\x4d" ) and ( $z21ec446b1b ne "\x4f\x57\x4e" ) ) and ( $z21ec446b1b ne 
"\x4f\x57\x52" ) ) and ( $z21ec446b1b ne "\x4c\x45\x41" ) ) ) { ( $log { 
"\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( 
time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; 
( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x4e\x4f\x54\x20\x41\x20\x52\x55\x4e\x4e\x41\x42\x4c\x45\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x4e\x4f\x54\x20\x41\x20\x52\x55\x4e\x4e\x41\x42\x4c\x45\x20\x4c\x49\x43\x45\x4e\x53\x45\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47"
 ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } ( my $z99c4300f10 = &zcaa02dedcd ) ; if
 ( ( $z99c4300f10 > 0 ) ) { if ( ( ( time - $z99c4300f10 ) > 
$_cron_ticker_threshold ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b (
 time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x41\x52\x50\x20\x54\x49\x43\x4b\x45\x52\x20\x54\x48\x52\x45\x53\x48\x4f\x4c\x44\x20\x45\x58\x43\x45\x45\x44\x45\x44\x20\x2d\x20\x46\x52\x45\x45\x49\x4e\x47\x20\x4c\x4f\x43\x4b"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . 
"\x41\x52\x50\x20\x54\x49\x43\x4b\x45\x52\x20\x54\x48\x52\x45\x53\x48\x4f\x4c\x44\x20\x45\x58\x43\x45\x45\x44\x45\x44\x20\x2d\x20\x46\x52\x45\x45\x49\x4e\x47\x20\x4c\x4f\x43\x4b\x53"
 ) . $z4844a6a3dc ) ) ; &z0f37534721 ( "\x63\x72\x6f\x6e" ) ; &z0f37534721 ( 
"\x62\x72\x6f\x61\x64\x63\x61\x73\x74" ) ; } } ( $z5cf23701db = ( 
"\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d\x3d"
 . $z4844a6a3dc ) ) ; ( my $ze6e8e10c84 = &z6532b4ce74 ) ; if ( ( $ze6e8e10c84 
ne "" ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" )
 . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x41\x52\x50\x20\x4c\x4f\x43\x4b\x20\x44\x45\x54\x45\x43\x54\x45\x44\x20\x28" .
 $ze6e8e10c84 ) . "\x29\x2d\x20\x45\x58\x49\x54\x49\x4e\x47" ) ) ; &z613cf1afa5 
( %log ) ; print ( ( ( ( $z4844a6a3dc . ( ( 
"\x41\x52\x50\x20\x4c\x4f\x43\x4b\x20\x44\x45\x54\x45\x43\x54\x45\x44\x20\x28" .
 $ze6e8e10c84 ) . "\x29\x20\x2d\x20\x45\x58\x49\x54\x49\x4e\x47" ) ) . 
$z4844a6a3dc ) . $z4844a6a3dc ) ) ; &z8220ed5fe4 ; } &z42492e3802 ; &ze4664572c9
 ( "\x63\x72\x6f\x6e" ) ; ( $z565d5833ec = &z7356bd474a ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_SETTINGS 
) . "\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d\x31" ) ) ) ; ( $zdbc13c1f78 = 
&z7356bd474a ( ( ( "\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . 
$db_table_OWN ) . "\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d\x31" ) ) ) ; 
&zb775f9bfde ; &z868f2bbffe ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b (
 time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x53\x54\x41\x52\x54\x3a\x20\x4d\x65\x73\x73\x61\x67\x65\x20\x6c\x69\x6d\x69\x74\x3a\x20"
 . $$z565d5833ec { "\x6d\x65\x73\x73\x61\x67\x65\x5f\x6c\x69\x6d\x69\x74" } ) ) 
; &z613cf1afa5 ( %log ) ; print ( ( ( $z4844a6a3dc . ( ( $_product_name . 
"\x20\x56\x65\x72\x73\x69\x6f\x6e\x20" ) . $_version ) ) . $z4844a6a3dc ) ) ; if
 ( ( $z21ec446b1b eq "\x44\x45\x4d" ) ) { print ( ( 
"\x52\x75\x6e\x6e\x69\x6e\x67\x20\x69\x6e\x20\x72\x65\x73\x74\x72\x69\x63\x74\x65\x64\x20\x64\x65\x6d\x6f\x20\x6d\x6f\x64\x65"
 . $z4844a6a3dc ) ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) 
. "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65"
 } = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x4d\x4f\x44\x45\x3a\x20\x52\x65\x73\x74\x72\x69\x63\x74\x65\x64\x20\x64\x65\x6d\x6f"
 ) ; &z613cf1afa5 ( %log ) ; } elsif ( ( $z21ec446b1b eq "\x4c\x45\x41" ) ) { print ( (
 ( 
"\x4c\x65\x61\x73\x65\x64\x20\x4c\x69\x63\x65\x6e\x73\x65\x20\x2d\x20\x45\x78\x70\x69\x72\x65\x73\x20\x6f\x6e\x20"
 . $za8fb3395fd ) . $z4844a6a3dc ) ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( 
&zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x4d\x4f\x44\x45\x3a\x20\x4c\x65\x61\x73\x65\x64\x20\x4c\x69\x63\x65\x6e\x73\x65\x20\x2d\x20\x45\x78\x70\x69\x72\x65\x73\x20\x6f\x6e\x20"
 . $za8fb3395fd ) ) ; &z613cf1afa5 ( %log ) ; } print ( ( 
"\x53\x63\x68\x65\x64\x75\x6c\x65\x64\x20\x43\x72\x6f\x6e\x20\x54\x61\x73\x6b\x20\x52\x65\x70\x6f\x72\x74"
 . $z4844a6a3dc ) ) ; print ( ( ( 
"\x53\x65\x73\x73\x69\x6f\x6e\x20\x6d\x65\x73\x73\x61\x67\x65\x20\x6c\x69\x6d\x69\x74\x3d"
 . $$z565d5833ec { "\x6d\x65\x73\x73\x61\x67\x65\x5f\x6c\x69\x6d\x69\x74" } ) . 
$z4844a6a3dc ) ) ; if ( ( $$z565d5833ec { 
"\x6d\x61\x69\x6c\x5f\x73\x6c\x65\x65\x70" } > 0 ) ) { print ( ( ( ( 
"\x45\x6d\x61\x69\x6c\x20\x73\x6c\x65\x65\x70\x20\x69\x6e\x74\x65\x72\x76\x61\x6c\x3d"
 . $$z565d5833ec { "\x6d\x61\x69\x6c\x5f\x73\x6c\x65\x65\x70" } ) . 
"\x20\x73\x65\x63\x6f\x6e\x64\x28\x73\x29" ) . $z4844a6a3dc ) ) ; } else { print ( (
 
"\x45\x6d\x61\x69\x6c\x20\x73\x6c\x65\x65\x70\x20\x69\x6e\x74\x65\x72\x76\x61\x6c\x3d\x30\x20\x6f\x72\x20\x4e\x6f\x74\x20\x53\x65\x74"
 . $z4844a6a3dc ) ) ; } print ( $z5cf23701db ) ; &z42492e3802 ; if ( ( 
$$z565d5833ec { "\x63\x72\x6f\x6e\x5f\x64\x65\x64\x75\x70" } eq "\x31" ) ) { ( 
$log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x45\x47\x49\x4e\x20\x44\x45\x2d\x44\x55\x50\x4c\x49\x43\x41\x54\x45" ) ; 
&z613cf1afa5 ( %log ) ; ( $z75db0ade79 = &z40a90d6037 () ) ; print ( ( ( ( ( 
$z75db0ade79 . "\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x31\x20\x6f\x66\x20" ) 
. $z9860a1f234 ) . 
"\x3a\x20\x44\x65\x2d\x64\x75\x70\x6c\x69\x63\x61\x74\x69\x6e\x67" ) . 
$z4844a6a3dc ) ) ; ( my $zde108161fd = &ze8d159508b ( $db_table_CAM , 
"\x69\x6e\x64\x5f\x64\x75\x70" ) ) ; if ( ( $zde108161fd == 1 ) ) { ( my $z068d4ec357
 = &zf7662df26a ( ( ( "\x41\x4c\x54\x45\x52\x20\x54\x41\x42\x4c\x45\x20" . 
$db_table_CAM ) . 
"\x20\x44\x52\x4f\x50\x20\x49\x4e\x44\x45\x58\x20\x69\x6e\x64\x5f\x64\x75\x70" )
 ) ) ; $z068d4ec357 -> finish ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b
 ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x44\x55\x50\x4c\x49\x43\x41\x54\x45\x20\x49\x4e\x44\x45\x58\x20\x69\x6e\x64\x5f\x64\x75\x70\x20\x44\x52\x4f\x50\x50\x45\x44"
 ) ; &z613cf1afa5 ( %log ) ; } ( $z068d4ec357 = &zf7662df26a ( ( ( 
"\x41\x4c\x54\x45\x52\x20\x49\x47\x4e\x4f\x52\x45\x20\x54\x41\x42\x4c\x45\x20" .
 $db_table_CAM ) . 
"\x20\x41\x44\x44\x20\x55\x4e\x49\x51\x55\x45\x20\x69\x6e\x64\x5f\x64\x75\x70\x20\x28\x65\x6d\x61\x69\x6c\x2c\x61\x69\x64\x29"
 ) ) ) ; $z068d4ec357 -> finish ; ( $z068d4ec357 = &zf7662df26a ( ( ( 
"\x41\x4c\x54\x45\x52\x20\x54\x41\x42\x4c\x45\x20" . $db_table_CAM ) . 
"\x20\x44\x52\x4f\x50\x20\x49\x4e\x44\x45\x58\x20\x69\x6e\x64\x5f\x64\x75\x70" )
 ) ) ; $z068d4ec357 -> finish ; ( $z6f5c6605b3 = &z40a90d6037 () ) ; print ( ( (
 ( ( $z6f5c6605b3 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x31\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x46\x69\x6e\x69\x73\x68\x65\x64\x20\x64\x65\x2d\x64\x75\x70\x6c\x69\x63\x61\x74\x69\x6e\x67"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x45\x4e\x44\x20\x44\x45\x2d\x44\x55\x50\x4c\x49\x43\x41\x54\x45" ) ; 
&z613cf1afa5 ( %log ) ; } else { ( $z75db0ade79 = &z40a90d6037 () ) ; print ( ( 
( ( ( $z75db0ade79 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x31\x20\x6f\x66\x20" ) . $z9860a1f234 
) . "\x3a\x20\x44\x65\x2d\x64\x75\x70\x6c\x69\x63\x61\x74\x69\x6e\x67" ) . 
$z4844a6a3dc ) ) ; ( $z6f5c6605b3 = &z40a90d6037 () ) ; print ( ( ( ( ( 
$z6f5c6605b3 . "\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x31\x20\x6f\x66\x20" ) 
. $z9860a1f234 ) . 
"\x3a\x20\x44\x65\x2d\x64\x75\x70\x6c\x69\x63\x61\x74\x69\x6f\x6e\x20\x6e\x6f\x74\x20\x72\x65\x71\x75\x65\x73\x74\x65\x64"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x44\x45\x2d\x44\x55\x50\x4c\x49\x43\x41\x54\x49\x4f\x4e\x20\x4e\x4f\x54\x20\x52\x45\x51\x55\x45\x53\x54\x45\x44"
 ) ; &z613cf1afa5 ( %log ) ; } &z42492e3802 ; ( $za0fd46c2bc = 0 ) ; ( 
$zf20b2334f5 = 0 ) ; ( $z874e902c88 = 0 ) ; ( $z75fa8d62cf = 0 ) ; ( 
$z96c741f6c2 = 0 ) ; ( $z9151d019a8 = 0 ) ; ( $zc5402de4ff = 0 ) ; ( 
$z7c13a72647 = 0 ) ; ( $z75db0ade79 = &z40a90d6037 () ) ; print ( ( ( ( ( 
$z75db0ade79 . "\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x32\x20\x6f\x66\x20" ) 
. $z9860a1f234 ) . 
"\x3a\x20\x50\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73"
 ) . $z4844a6a3dc ) ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time 
) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x45\x47\x49\x4e\x20\x43\x4f\x4e\x46\x49\x52\x4d\x41\x54\x49\x4f\x4e\x53" )
 ; &z613cf1afa5 ( %log ) ; ( my $z77e3f34989 = &zf7662df26a ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_AUT ) . 
"\x20\x57\x48\x45\x52\x45\x20\x73\x74\x61\x74\x75\x73\x3c\x3e\x27\x53\x27" ) ) )
 ; while ( ( $z57ba7b146b = $z77e3f34989 -> fetchrow_hashref ) ) { if ( ( 
$z96c741f6c2 == 1 ) ) { last ; } if ( ( $$z57ba7b146b { 
"\x75\x73\x65\x5f\x64\x6f\x75\x62\x6c\x65" } == 1 ) ) { ( my $ze7dbd86e70 = ( ( 
"\x57\x48\x45\x52\x45\x20\x61\x69\x64\x3d" . $$z57ba7b146b { "\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x64\x6f\x75\x62\x6c\x65\x5f\x73\x74\x61\x74\x75\x73\x3d\x30\x20\x41\x4e\x44\x20\x73\x65\x6e\x64\x5f\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x3d\x31"
 ) ) ; &zbbde6fa14e ( $ze7dbd86e70 ) ; } } $z77e3f34989 -> finish ; ( 
$z6f5c6605b3 = &z40a90d6037 () ) ; print ( ( ( 
"\x2d\x2d\x53\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64\x3d"
 . $z7c13a72647 ) . $z4844a6a3dc ) ) ; print ( ( ( 
"\x2d\x2d\x43\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73\x20\x73\x65\x6e\x74\x3d"
 . $zf20b2334f5 ) . $z4844a6a3dc ) ) ; print ( ( ( ( ( $z6f5c6605b3 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x32\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x46\x69\x6e\x69\x73\x68\x65\x64\x20\x70\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x45\x4e\x44\x20\x43\x4f\x4e\x46\x49\x52\x4d\x41\x54\x49\x4f\x4e\x53\x3a\x20\x53\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64\x3d"
 . $z7c13a72647 ) ) ; &z613cf1afa5 ( %log ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x45\x4e\x44\x20\x43\x4f\x4e\x46\x49\x52\x4d\x41\x54\x49\x4f\x4e\x53\x3a\x20\x53\x65\x6e\x74\x3d"
 . $zf20b2334f5 ) ) ; &z613cf1afa5 ( %log ) ; &z42492e3802 ; ( $z75db0ade79 = 
&z40a90d6037 () ) ; print ( ( ( ( ( $z75db0ade79 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x33\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x50\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x66\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x20\x73\x65\x71\x75\x65\x6e\x63\x65\x73"
 ) . $z4844a6a3dc ) ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time 
) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x45\x47\x49\x4e\x20\x46\x4f\x4c\x4c\x4f\x57\x2d\x55\x50\x53" ) ; 
&z613cf1afa5 ( %log ) ; if ( ( $z96c741f6c2 == 1 ) ) { ( $log { 
"\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( 
time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; 
( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x41\x4c\x52\x45\x41\x44\x59\x20\x53\x55\x53\x50\x45\x4e\x44\x45\x44\x3a\x20\x53\x6b\x69\x70\x70\x69\x6e\x67\x20\x66\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x73"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( 
"\x2d\x2d\x41\x6c\x72\x65\x61\x64\x79\x20\x73\x75\x73\x70\x65\x6e\x64\x65\x64\x20\x2d\x20\x73\x6b\x69\x70\x70\x69\x6e\x67\x20\x66\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x73"
 . $z4844a6a3dc ) ) ; } else { ( $z9151d019a8 = 0 ) ; ( $zc5402de4ff = 0 ) ; ( 
$z7c13a72647 = 0 ) ; ( $z068d4ec357 = &zf7662df26a ( ( ( 
"\x55\x50\x44\x41\x54\x45\x20" . $db_table_CAM ) . 
"\x20\x53\x45\x54\x20\x63\x72\x6f\x6e\x5f\x73\x65\x6e\x64\x3d\x30" ) ) ) ; 
$z068d4ec357 -> finish ; ( my $z77e3f34989 = &zf7662df26a ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_AUT ) . 
"\x20\x57\x48\x45\x52\x45\x20\x73\x74\x61\x74\x75\x73\x3c\x3e\x27\x53\x27" ) ) )
 ; while ( ( $z57ba7b146b = $z77e3f34989 -> fetchrow_hashref ) ) { if ( ( 
$z96c741f6c2 == 1 ) ) { last ; } ( ${( "\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x63\x6f\x75\x6e\x74\x5f"
 . $$z57ba7b146b { "\x69\x64" } ) ; } = &z152e37a4c6 ( $$z57ba7b146b { 
"\x69\x64" } ) ) ; ( my ( @z33312675cb ) = &zad406f139e ( split ( /\|/ , 
$$z57ba7b146b { "\x6d\x65\x73\x73\x61\x67\x65\x5f\x6f\x72\x64\x65\x72" } , 0 ) )
 ) ; ( my $zf9134d02a5 = ( $#z33312675cb + 1 ) ) ; ( ${( "\x6d\x65\x73\x73\x61\x67\x65\x63\x6f\x75\x6e\x74\x5f"
 . $$z57ba7b146b { "\x69\x64" } ) ; } = $zf9134d02a5 ) ; ( my $zecb603dd3b = 
time ) ; if ( ( $$z57ba7b146b { "\x63\x6f\x6d\x70\x6c\x65\x74\x69\x6f\x6e" } eq 
"\x46" ) ) { ( $z068d4ec357 = &zf7662df26a ( ( ( ( ( ( 
"\x55\x50\x44\x41\x54\x45\x20" . $db_table_CAM ) . 
"\x20\x53\x45\x54\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x46\x27\x20\x57\x48\x45\x52\x45\x20\x61\x69\x64\x3d"
 ) . $$z57ba7b146b { "\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x41\x27\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x41\x4e\x44\x20\x28\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2b\x31\x29\x20\x3e\x20"
 ) . $zf9134d02a5 ) ) ) ; $z068d4ec357 -> finish ; } elsif ( ( $$z57ba7b146b { 
"\x63\x6f\x6d\x70\x6c\x65\x74\x69\x6f\x6e" } eq "\x4c" ) ) { ( my $z7dc000c84e =
 ( $$z57ba7b146b { "\x6c\x6f\x6f\x70\x5f\x6d\x65\x73\x73\x61\x67\x65" } - 1 ) ) 
; if ( ( $z7dc000c84e < 0 ) ) { ( $z7dc000c84e = 0 ) ; } ( $z068d4ec357 = 
&zf7662df26a ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . 
$db_table_CAM ) . "\x20\x53\x45\x54\x20\x61\x69\x64\x3d" ) . $$z57ba7b146b { 
"\x6c\x6f\x6f\x70\x5f\x61\x72" } ) . 
"\x2c\x20\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x3d" ) . $z7dc000c84e 
) . "\x20\x57\x48\x45\x52\x45\x20\x61\x69\x64\x3d" ) . $$z57ba7b146b { 
"\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x41\x27\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x41\x4e\x44\x20\x28\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2b\x31\x29\x20\x3e\x20"
 ) . $zf9134d02a5 ) . 
"\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x41\x4e\x44\x20\x28"
 ) . $zecb603dd3b ) . 
"\x20\x2d\x20\x6c\x61\x73\x74\x5f\x64\x61\x74\x65\x29\x20\x3e\x3d\x20\x28" ) . 
$$z57ba7b146b { "\x6c\x6f\x6f\x70\x5f\x69\x6e\x74\x65\x72\x76\x61\x6c" } ) . 
"\x20\x2a\x20" ) . $_seconds_in_day ) . "\x29" ) ) ) ; $z068d4ec357 -> finish ; 
} ( my $z42ba56adfb = 1 ) ; foreach $z32d272ec2b ( @z33312675cb ) { if ( ( 
$z96c741f6c2 == 1 ) ) { last ; } ( $z7a7f60b091 = &z7356bd474a ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_MES ) . 
"\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d" ) . $z32d272ec2b ) ) ) ; ( ( 
$$z7a7f60b091 { "\x74\x69\x6d\x65\x5f\x69\x6e\x74\x65\x72\x76\x61\x6c" } , 
$$z7a7f60b091 { "\x73\x65\x6e\x64\x69\x6e\x67\x5f\x74\x69\x6d\x65" } ) = split (
 /:/ , ( $$z7a7f60b091 { "\x74\x69\x6d\x65\x5f\x69\x6e\x74\x65\x72\x76\x61\x6c" 
} . "\x3a\x30\x30" ) , 3 ) ) ; if ( ( ( $$z7a7f60b091 { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } eq "\x49\x4d\x4d" ) or ( $$z57ba7b146b { 
"\x69\x6d\x6d\x65\x64\x69\x61\x74\x65\x5f\x6d\x65\x73\x73\x61\x67\x65\x5f\x69\x64"
 } eq $$z7a7f60b091 { "\x69\x64" } ) ) ) { ( my $ze7dbd86e70 = ( ( 
"\x57\x48\x45\x52\x45\x20\x63\x72\x6f\x6e\x5f\x73\x65\x6e\x64\x3c\x3e\x31\x20\x41\x4e\x44\x20\x61\x69\x64\x3d"
 . $$z57ba7b146b { "\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x41\x27\x20\x41\x4e\x44\x20\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x3d\x30"
 ) ) ; &ze2572bbe30 ( $ze7dbd86e70 ) ; } elsif ( ( $$z7a7f60b091 { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } eq "\x4e\x45\x58" ) ) { ( my $ze7dbd86e70 =
 ( ( ( 
"\x57\x48\x45\x52\x45\x20\x63\x72\x6f\x6e\x5f\x73\x65\x6e\x64\x3c\x3e\x31\x20\x41\x4e\x44\x20\x61\x69\x64\x3d"
 . $$z57ba7b146b { "\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x41\x27\x20\x41\x4e\x44\x20\x28\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2b\x31\x29\x3d"
 ) . $z42ba56adfb ) ) ; &ze2572bbe30 ( $ze7dbd86e70 ) ; } elsif ( ( 
$$z7a7f60b091 { "\x73\x63\x68\x65\x64\x75\x6c\x65" } eq "\x49\x4e\x54" ) ) { ( my $zecb603dd3b
 = time ) ; ( my $ze7dbd86e70 = ( ( ( ( ( ( ( ( ( ( 
"\x57\x48\x45\x52\x45\x20\x63\x72\x6f\x6e\x5f\x73\x65\x6e\x64\x3c\x3e\x31\x20\x41\x4e\x44\x20\x61\x69\x64\x3d"
 . $$z57ba7b146b { "\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x41\x27\x20\x41\x4e\x44\x20\x28\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2b\x31\x29\x3d"
 ) . $z42ba56adfb ) . "\x20\x41\x4e\x44\x20\x28\x28" ) . $zecb603dd3b ) . 
"\x20\x2d\x20\x49\x46\x28\x6c\x61\x73\x74\x5f\x64\x61\x74\x65\x3d\x30\x2c\x73\x75\x62\x73\x63\x72\x69\x62\x65\x5f\x64\x61\x74\x65\x2c\x6c\x61\x73\x74\x5f\x64\x61\x74\x65\x29\x29\x20\x3e\x3d\x20\x28"
 ) . $$z7a7f60b091 { "\x74\x69\x6d\x65\x5f\x69\x6e\x74\x65\x72\x76\x61\x6c" } ) 
. "\x20\x2a\x20" ) . $_seconds_in_day ) . "\x29\x29" ) ) ; ( @za983f747f6 = 
localtime ( time ) ) ; ( $zdcd73840b0 = $za983f747f6 [ 6 ] ) ; ( $z4b9523ea9f = 
( ( "\x5b" . $zdcd73840b0 ) . "\x5d" ) ) ; if ( ( index ( $$z7a7f60b091 { 
"\x76\x61\x6c\x69\x64\x5f\x64\x61\x79\x73" } , $z4b9523ea9f ) >= 0 ) ) { if ( ( 
substr ( &ze3c75c75ba ( $zecb603dd3b ) , 0 , 2 ) >= $$z7a7f60b091 { 
"\x73\x65\x6e\x64\x69\x6e\x67\x5f\x74\x69\x6d\x65" } ) ) { &ze2572bbe30 ( 
$ze7dbd86e70 ) ; } } } elsif ( ( ( $$z7a7f60b091 { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } >= 1 ) and ( $$z7a7f60b091 { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } <= 7 ) ) ) { ( my ( $zde9c4b8faa , 
$z44c1bd8ffd , $z9869fc98ed , $za537b776c1 , $z452db9468f , $z0e50f40a1f , 
$zeb8cb89ae2 , $za4a8aab5ce , $zc7c79764f2 ) = localtime ( time ) ) ; ( undef ( 
$zde9c4b8faa ) , $z44c1bd8ffd , $z9869fc98ed , $za537b776c1 , $z452db9468f , 
$z0e50f40a1f , $za4a8aab5ce , $zc7c79764f2 ) ; if ( ( ( $$z7a7f60b091 { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } == $zeb8cb89ae2 ) or ( ( $$z7a7f60b091 { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } == 7 ) and ( $zeb8cb89ae2 == 0 ) ) ) ) { ( my $z1bafa647b9
 = &z8685800f1c ) ; ( my $ze7dbd86e70 = ( ( ( ( ( 
"\x57\x48\x45\x52\x45\x20\x63\x72\x6f\x6e\x5f\x73\x65\x6e\x64\x3c\x3e\x31\x20\x41\x4e\x44\x20\x61\x69\x64\x3d"
 . $$z57ba7b146b { "\x69\x64" } ) . 
"\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x41\x27\x20\x41\x4e\x44\x20\x28\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2b\x31\x29\x3d"
 ) . $z42ba56adfb ) . 
"\x20\x41\x4e\x44\x20\x6c\x61\x73\x74\x5f\x64\x61\x74\x65\x20\x3c\x20" ) . 
$z1bafa647b9 ) ) ; &ze2572bbe30 ( $ze7dbd86e70 ) ; } } ( ++ $z42ba56adfb ) ; 
undef ( $z7a7f60b091 ) ; } } $z77e3f34989 -> finish ; } ( $z6f5c6605b3 = 
&z40a90d6037 () ) ; print ( ( ( 
"\x2d\x2d\x53\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64\x3d"
 . $z7c13a72647 ) . $z4844a6a3dc ) ) ; print ( ( ( 
"\x2d\x2d\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3d" . 
$za0fd46c2bc ) . $z4844a6a3dc ) ) ; print ( ( ( ( ( $z6f5c6605b3 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x33\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x46\x69\x6e\x69\x73\x68\x65\x64\x20\x70\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x66\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x20\x73\x65\x71\x75\x65\x6e\x63\x65\x73"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x45\x4e\x44\x20\x46\x4f\x4c\x4c\x4f\x57\x2d\x55\x50\x53\x3a\x20\x53\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64\x3d"
 . $z7c13a72647 ) ) ; &z613cf1afa5 ( %log ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x45\x4e\x44\x20\x46\x4f\x4c\x4c\x4f\x57\x2d\x55\x50\x53\x3a\x20\x53\x65\x6e\x74\x3d"
 . $za0fd46c2bc ) ) ; &z613cf1afa5 ( %log ) ; &z42492e3802 ; ( $z75db0ade79 = 
&z40a90d6037 () ) ; print ( ( ( ( ( $z75db0ade79 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x34\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x50\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x62\x72\x6f\x61\x64\x63\x61\x73\x74\x73"
 ) . $z4844a6a3dc ) ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time 
) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x45\x47\x49\x4e\x20\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x53" ) ; 
&z613cf1afa5 ( %log ) ; if ( ( $z96c741f6c2 == 1 ) ) { ( $log { 
"\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( 
time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; 
( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x41\x4c\x52\x45\x41\x44\x59\x20\x53\x55\x53\x50\x45\x4e\x44\x45\x44\x3a\x20\x53\x6b\x69\x70\x70\x69\x6e\x67\x20\x62\x72\x6f\x61\x64\x63\x61\x73\x74\x73"
 ) ; &z613cf1afa5 ( %log ) ; print ( ( 
"\x2d\x2d\x41\x6c\x72\x65\x61\x64\x79\x20\x73\x75\x73\x70\x65\x6e\x64\x65\x64\x20\x2d\x20\x73\x6b\x69\x70\x70\x69\x6e\x67\x20\x62\x72\x6f\x61\x64\x63\x61\x73\x74\x73"
 . $z4844a6a3dc ) ) ; } else { ( my ( $zde9c4b8faa , $z44c1bd8ffd , $z9869fc98ed
 , $za537b776c1 , $z452db9468f , $z0e50f40a1f , $zeb8cb89ae2 , $za4a8aab5ce , 
$zc7c79764f2 ) = localtime ( time ) ) ; ( undef ( $zde9c4b8faa ) , $z44c1bd8ffd 
, $z9869fc98ed , $za537b776c1 , $z452db9468f , $z0e50f40a1f , $za4a8aab5ce , 
$zc7c79764f2 ) ; ( $z9151d019a8 = 0 ) ; ( $zc5402de4ff = 0 ) ; ( $z7c13a72647 = 
0 ) ; ( my $z7381c67c03 = &zf7662df26a ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_BAT ) . 
"\x20\x57\x48\x45\x52\x45\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x57\x27\x20\x4f\x52\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x53\x27\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x63\x72\x65\x61\x74\x65\x5f\x64\x61\x74\x65\x20\x41\x53\x43"
 ) ) ) ; while ( ( $z3fc9ac9fdb = $z7381c67c03 -> fetchrow_hashref ) ) { ( 
$z7156f29b81 = 0 ) ; if ( ( $$z3fc9ac9fdb { "\x73\x63\x68\x65\x64\x75\x6c\x65" }
 eq "\x4e\x4f\x57" ) ) { &z96ade3acbf ; } elsif ( ( $$z3fc9ac9fdb { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } eq "\x4e\x45\x58" ) ) { &z96ade3acbf ; } 
elsif ( ( $$z3fc9ac9fdb { "\x73\x63\x68\x65\x64\x75\x6c\x65" } eq "\x53\x50\x45"
 ) ) { if ( ( &z9eed9f3c57 ( $$z3fc9ac9fdb { 
"\x73\x65\x6e\x64\x5f\x64\x61\x74\x65" } ) and &zd22da119fa ( $$z3fc9ac9fdb { 
"\x73\x65\x6e\x64\x5f\x64\x61\x74\x65" } ) ) ) { &z96ade3acbf ; } } elsif ( ( ( 
$$z3fc9ac9fdb { "\x73\x63\x68\x65\x64\x75\x6c\x65" } >= 1 ) and ( $$z3fc9ac9fdb 
{ "\x73\x63\x68\x65\x64\x75\x6c\x65" } <= 7 ) ) ) { if ( ( ( $$z3fc9ac9fdb { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } == $zeb8cb89ae2 ) or ( ( $$z3fc9ac9fdb { 
"\x73\x63\x68\x65\x64\x75\x6c\x65" } == 7 ) and ( $zeb8cb89ae2 == 0 ) ) ) ) { 
&z96ade3acbf ; } } } $z7381c67c03 -> finish ; } ( $z6f5c6605b3 = &z40a90d6037 ()
 ) ; print ( ( ( 
"\x2d\x2d\x53\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64\x3d"
 . $z7c13a72647 ) . $z4844a6a3dc ) ) ; print ( ( ( 
"\x2d\x2d\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3d" . 
$z874e902c88 ) . $z4844a6a3dc ) ) ; print ( ( ( ( ( $z6f5c6605b3 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x34\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x46\x69\x6e\x69\x73\x68\x65\x64\x20\x70\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x62\x72\x6f\x61\x64\x63\x61\x73\x74\x73"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x45\x4e\x44\x20\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x53\x3a\x20\x53\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64\x3d"
 . $z7c13a72647 ) ) ; &z613cf1afa5 ( %log ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x45\x4e\x44\x20\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x53\x3a\x20\x53\x65\x6e\x74\x3d"
 . $z874e902c88 ) ) ; &z613cf1afa5 ( %log ) ; &z42492e3802 ; if ( ( 
$$z565d5833ec { "\x63\x72\x6f\x6e\x5f\x62\x61\x63\x6b\x75\x70" } eq "\x31" ) ) {
 ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x45\x47\x49\x4e\x20\x42\x41\x43\x4b\x55\x50" ) ; &z613cf1afa5 ( %log ) ; 
if ( ( $db_mysqldump_path eq "" ) ) { ( $z9ac080c686 = 
"\x6d\x79\x73\x71\x6c\x64\x75\x6d\x70" ) ; } else { ( $z9ac080c686 = 
$db_mysqldump_path ) ; } chomp ( $z9ac080c686 ) ; if ( ( not ( -e ( $z9ac080c686
 ) ) ) ) { ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) 
. &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x41\x43\x4b\x55\x50\x20\x46\x41\x49\x4c\x45\x44\x20\x2d\x20\x4d\x79\x53\x51\x4c\x41\x64\x6d\x69\x6e\x20\x4e\x6f\x74\x20\x46\x6f\x75\x6e\x64"
 ) ; &z613cf1afa5 ( %log ) ; } else { ( $z75db0ade79 = &z40a90d6037 () ) ; print ( (
 ( ( ( $z75db0ade79 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x35\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x50\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x62\x61\x63\x6b\x75\x70" )
 . $z4844a6a3dc ) ) ; ( my $z3cea0bc458 = ( &AbsolutePath . 
"\x2f\x74\x65\x6d\x70\x2f\x62\x61\x63\x6b\x75\x70\x2e\x6c\x61\x73\x74" ) ) ; if 
( -e ( $z3cea0bc458 ) ) { open ( zd0002a4e92 , ( "\x3c" . $z3cea0bc458 ) ) ; ( my (
 @z863ba33b4a ) = <zd0002a4e92> ) ; close ( zd0002a4e92 ) ; ( $ze488323116 = 
@z863ba33b4a [ 0 ] ) ; } else { ( $ze488323116 = 0 ) ; } ( $z485f771e39 = time )
 ; ( $z698a833dc6 = int ( ( ( time - $ze488323116 ) / 3600 ) ) ) ; if ( ( 
$z698a833dc6 < $$z565d5833ec { 
"\x62\x61\x63\x6b\x75\x70\x5f\x69\x6e\x74\x65\x72\x76\x61\x6c" } ) ) { print ( (
 ( ( 
"\x2d\x2d\x4d\x69\x6e\x69\x6d\x75\x6d\x20\x62\x61\x63\x6b\x75\x70\x20\x69\x6e\x74\x65\x72\x76\x61\x6c\x3d"
 . $$z565d5833ec { 
"\x62\x61\x63\x6b\x75\x70\x5f\x69\x6e\x74\x65\x72\x76\x61\x6c" } ) . 
"\x20\x68\x6f\x75\x72\x73" ) . $z4844a6a3dc ) ) ; print ( ( ( 
"\x2d\x2d\x45\x6c\x61\x70\x73\x65\x64\x20\x68\x6f\x75\x72\x73\x3d" . 
$z698a833dc6 ) . $z4844a6a3dc ) ) ; print ( ( 
"\x2d\x2d\x4e\x6f\x20\x62\x61\x63\x6b\x75\x70\x20\x72\x65\x71\x75\x69\x72\x65\x64\x20\x61\x74\x20\x74\x68\x69\x73\x20\x74\x69\x6d\x65"
 . $z4844a6a3dc ) ) ; } else { ( my $z410d5d585b = ( &AbsolutePath . 
"\x2f\x62\x61\x63\x6b\x75\x70" ) ) ; ( my $zb1a8569648 = ( &z070e483f6b ( time )
 . "\x2e\x73\x71\x6c" ) ) ; ( my $z3cab26189f = ( ( $z410d5d585b . "\x2f" ) . 
$zb1a8569648 ) ) ; ( $zdd7e7f6725 = ( $z9ac080c686 . ( ( ( ( ( ( ( 
"\x20\x2d\x2d\x75\x73\x65\x72\x3d" . $db_login ) . 
"\x20\x2d\x2d\x70\x61\x73\x73\x77\x6f\x72\x64\x3d" ) . $db_password ) . 
"\x20\x2d\x2d\x68\x6f\x73\x74\x3d" ) . $db_host ) . 
"\x20\x2d\x2d\x61\x64\x64\x2d\x64\x72\x6f\x70\x2d\x74\x61\x62\x6c\x65\x20\x2d\x2d\x72\x65\x73\x75\x6c\x74\x2d\x66\x69\x6c\x65\x3d"
 ) . $z3cab26189f ) ) ) ; ( $zdd7e7f6725 .= ( 
"\x20\x2d\x2d\x63\x6f\x6d\x70\x72\x65\x73\x73\x20" . $db_name ) ) ; `$zdd7e7f6725`;
 if
 ( -e ( $z3cab26189f ) ) { ( my $zf56eb861ab = time ) ; ( my $z3cea0bc458 = ( 
&AbsolutePath . 
"\x2f\x74\x65\x6d\x70\x2f\x62\x61\x63\x6b\x75\x70\x2e\x6c\x61\x73\x74" ) ) ; 
open ( z036f7779ef , ( "\x3e" . $z3cea0bc458 ) ) ; print ( z036f7779ef 
$zf56eb861ab ) ; close ( z036f7779ef ) ; sub BEGIN { require File::stat ; do { 
"\x46\x69\x6c\x65\x3a\x3a\x73\x74\x61\x74" -> import } ; } ( my $z2e52cf83d2 = 
&stat ( $z3cab26189f ) ) ; ( my $zefea06544e = $z2e52cf83d2 -> size ) ; print ( (
 ( "\x2d\x2d\x42\x61\x63\x6b\x75\x70\x20\x70\x61\x74\x68\x3d" . $z410d5d585b ) .
 $z4844a6a3dc ) ) ; print ( ( ( 
"\x2d\x2d\x42\x61\x63\x6b\x75\x70\x20\x66\x69\x6c\x65\x6e\x61\x6d\x65\x3d" . 
$zb1a8569648 ) . $z4844a6a3dc ) ) ; print ( ( ( ( 
"\x2d\x2d\x42\x61\x63\x6b\x75\x70\x20\x66\x69\x6c\x65\x20\x73\x69\x7a\x65\x3d" .
 $zefea06544e ) . "\x20\x62\x79\x74\x65\x73" ) . $z4844a6a3dc ) ) ; } else { print ( (
 
"\x2d\x2d\x42\x61\x63\x6b\x75\x70\x20\x66\x61\x69\x6c\x75\x72\x65\x3a\x20\x62\x61\x63\x6b\x75\x70\x20\x66\x69\x6c\x65\x20\x77\x61\x73\x20\x6e\x6f\x74\x20\x63\x72\x65\x61\x74\x65\x64"
 . $z4844a6a3dc ) ) ; } } ( $z6f5c6605b3 = &z40a90d6037 () ) ; print ( ( ( ( ( 
$z6f5c6605b3 . "\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x35\x20\x6f\x66\x20" ) 
. $z9860a1f234 ) . 
"\x3a\x20\x46\x69\x6e\x69\x73\x68\x65\x64\x20\x70\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x62\x61\x63\x6b\x75\x70"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = "\x42\x41\x43\x4b\x55\x50\x20\x4f\x4b" ) ; 
&z613cf1afa5 ( %log ) ; } } else { ( $z75db0ade79 = &z40a90d6037 () ) ; print ( (
 ( ( ( $z75db0ade79 . 
"\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x35\x20\x6f\x66\x20" ) . $z9860a1f234 
) . 
"\x3a\x20\x50\x72\x6f\x63\x65\x73\x73\x69\x6e\x67\x20\x62\x61\x63\x6b\x75\x70" )
 . $z4844a6a3dc ) ) ; ( $z6f5c6605b3 = &z40a90d6037 () ) ; print ( ( ( ( ( 
$z6f5c6605b3 . "\x20\x20\x50\x72\x6f\x63\x65\x73\x73\x20\x35\x20\x6f\x66\x20" ) 
. $z9860a1f234 ) . 
"\x3a\x20\x42\x61\x63\x6b\x75\x70\x20\x6e\x6f\x74\x20\x72\x65\x71\x75\x65\x73\x74\x65\x64"
 ) . $z4844a6a3dc ) ) ; print ( $z5cf23701db ) ; ( $log { "\x74\x69\x6d\x65" } =
 ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x42\x41\x43\x4b\x55\x50\x20\x4e\x4f\x54\x20\x52\x45\x51\x55\x45\x53\x54\x45\x44"
 ) ; &z613cf1afa5 ( %log ) ; } ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b 
( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = "\x45\x4e\x44" ) ; &z613cf1afa5 ( %log ) ; 
&z0f37534721 ( "\x63\x72\x6f\x6e" ) ; &zd912f139e2 ; ( $za172d04fa7 = 
&z6a17f6bcf1 ( ( time - $za54c30aca2 ) ) ) ; ( $log { "\x74\x69\x6d\x65" } = ( (
 &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( "\x44\x55\x52\x41\x54\x49\x4f\x4e\x3a\x20" 
. $za172d04fa7 ) ) ; ( $log { "\x6c\x69\x6e\x65" } = 1 ) ; &z613cf1afa5 ( %log )
 ; print ( ( ( $z4844a6a3dc . ( 
"\x43\x72\x6f\x6e\x20\x74\x61\x73\x6b\x20\x72\x75\x6e\x74\x69\x6d\x65\x3a\x20" .
 $za172d04fa7 ) ) . $z4844a6a3dc ) ) ; print ( ( ( $z4844a6a3dc . 
"\x2a\x2a\x20\x45\x4e\x44\x20\x4f\x46\x20\x52\x45\x50\x4f\x52\x54\x20\x2a\x2a" )
 . $z4844a6a3dc ) ) ; &z11d5b5542d ; &z8220ed5fe4 ; sub ze2572bbe30 { ( my $z9ebfaa1bc3
 = shift ( @_ ) ) ; if ( ( $z96c741f6c2 == 1 ) ) { return ; } if ( ( 
$$z57ba7b146b { "\x75\x73\x65\x5f\x64\x6f\x75\x62\x6c\x65" } eq "\x31" ) ) { ( 
$z9ebfaa1bc3 .= 
"\x20\x41\x4e\x44\x20\x64\x6f\x75\x62\x6c\x65\x5f\x73\x74\x61\x74\x75\x73\x3d\x31"
 ) ; } ( $z9ebfaa1bc3 .= 
"\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27"
 ) ; ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) . 
"\x20" ) . $z9ebfaa1bc3 ) . 
"\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; ( my $z3fe0dab233 = 0 ) ; while ( $z7459ee96eb ->
 rows ) { ( my $z01a1f0ce0c = "" ) ; ( my $zb8e0443a7a = "" ) ; while ( ( 
$zd1f0eac228 = $z7459ee96eb -> fetchrow_hashref ) ) { ( ++ $zc5402de4ff ) ; ( ++
 $z7c13a72647 ) ; if ( ( $zc5402de4ff >= $_cron_progress_report_interval ) ) { (
 $zc5402de4ff = 0 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) 
. "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65"
 } = "\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x2d\x2d\x53\x54\x41\x54\x55\x53\x3a\x20" . $z7c13a72647 ) . 
"\x20\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64"
 ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x46\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x20\x73\x74\x61\x74\x75\x73\x3a\x20"
 . $z7c13a72647 ) . 
"\x20\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64"
 ) . $z4844a6a3dc ) ) ; } if ( ( $z01a1f0ce0c eq "" ) ) { ( $z01a1f0ce0c = 
$$zd1f0eac228 { "\x69\x64" } ) ; } &z81ce52dbe8 ; ( ++ $za0fd46c2bc ) ; ( ++ 
$z75fa8d62cf ) ; ( ++ $z9151d019a8 ) ; ( ++ $z3fe0dab233 ) ; ( $zb8e0443a7a = 
$$zd1f0eac228 { "\x69\x64" } ) ; if ( ( $z9151d019a8 >= 
$_cron_subscriber_report_interval ) ) { ( $z9151d019a8 = 0 ) ; ( $log { 
"\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( 
time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; 
( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x2d\x2d\x50\x52\x4f\x47\x52\x45\x53\x53\x3a\x20" . $za0fd46c2bc ) . 
"\x20\x6d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74" ) ) ; &z613cf1afa5 ( 
%log ) ; print ( ( ( ( 
"\x2d\x2d\x46\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x20\x70\x72\x6f\x67\x72\x65\x73\x73\x3a\x20"
 . $za0fd46c2bc ) . "\x20\x6d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; } if ( ( $za0fd46c2bc >= $$z565d5833ec { 
"\x6d\x65\x73\x73\x61\x67\x65\x5f\x6c\x69\x6d\x69\x74" } ) ) { ( $z96c741f6c2 = 
1 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x46\x4f\x4c\x4c\x4f\x57\x2d\x55\x50\x53\x20\x53\x55\x53\x50\x45\x4e\x44\x45\x44\x3a\x20\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3a\x20"
 . $za0fd46c2bc ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x46\x6f\x6c\x6c\x6f\x77\x2d\x75\x70\x73\x20\x73\x75\x73\x70\x65\x6e\x64\x65\x64\x3a\x20"
 . $za0fd46c2bc ) . "\x20\x6d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; last ; } } ( my $zecb603dd3b = time ) ; ( my $zd7c6e8a7e4 
= ( ( &zae3f1eb28b ( $zecb603dd3b ) . "\x20" ) . &ze3c75c75ba ( $zecb603dd3b ) )
 ) ; ( $zde6545bf52 = ( ( ( ( ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . 
$db_table_CAM ) . 
"\x20\x53\x45\x54\x20\x63\x72\x6f\x6e\x5f\x73\x65\x6e\x64\x3d\x31\x2c\x20\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x3d\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2b\x31\x2c\x20\x6c\x61\x73\x74\x5f\x64\x61\x74\x65\x3d"
 ) . $zecb603dd3b ) . 
"\x2c\x20\x73\x65\x6e\x64\x5f\x6c\x6f\x67\x3d\x43\x4f\x4e\x43\x41\x54\x28\x73\x65\x6e\x64\x5f\x6c\x6f\x67\x2c\x20\x22"
 ) . $zd7c6e8a7e4 ) . 
"\x7c\x41\x75\x74\x6f\x72\x65\x73\x70\x6f\x6e\x64\x65\x72\x3a\x20" ) . 
$$z57ba7b146b { "\x6c\x69\x73\x74\x65\x6e\x73\x5f\x6f\x6e" } ) . 
"\x20\x23\x22\x2c\x20\x6c\x61\x73\x74\x5f\x6d\x65\x73\x73\x61\x67\x65\x2c\x20\x20\x22\x7c\x53\x45\x4e\x54\x20\x4f\x4b\x0a\x22\x29"
 ) ) ; ( $z068d4ec357 = &zf7662df26a ( ( ( ( ( ( ( ( $zde6545bf52 . "\x20" ) . 
$z9ebfaa1bc3 ) . "\x20\x41\x4e\x44\x20\x28\x69\x64\x20\x3e\x3d\x20" ) . 
$z01a1f0ce0c ) . "\x20\x41\x4e\x44\x20\x69\x64\x20\x3c\x3d\x20" ) . $zb8e0443a7a
 ) . "\x29" ) ) ) ; $z068d4ec357 -> finish ; ( $z068d4ec357 = &zf7662df26a ( ( (
 ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . $db_table_MES ) . 
"\x20\x53\x45\x54\x20\x6e\x75\x6d\x5f\x73\x65\x6e\x74\x3d\x6e\x75\x6d\x5f\x73\x65\x6e\x74\x2b"
 ) . $z3fe0dab233 ) . "\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d" ) . 
$$z7a7f60b091 { "\x69\x64" } ) ) ) ; $z068d4ec357 -> finish ; ( $z3fe0dab233 = 0
 ) ; &z42492e3802 ; &zf46d10f62d ; &zfbcef587e8 ; if ( ( $z96c741f6c2 == 1 ) ) {
 $z7459ee96eb -> finish ; return ; } ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) . 
"\x20" ) . $z9ebfaa1bc3 ) . 
"\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; } $z7459ee96eb -> finish ; return ; } sub 
zbbde6fa14e { ( my $z9ebfaa1bc3 = shift ( @_ ) ) ; if ( ( $z96c741f6c2 == 1 ) ) 
{ return ; } ( $z9ebfaa1bc3 .= 
"\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27"
 ) ; ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) . 
"\x20" ) . $z9ebfaa1bc3 ) . 
"\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; while ( $z7459ee96eb -> rows ) { ( my $z01a1f0ce0c
 = "" ) ; ( my $zb8e0443a7a = "" ) ; while ( ( $zd1f0eac228 = $z7459ee96eb -> 
fetchrow_hashref ) ) { if ( ( $z01a1f0ce0c eq "" ) ) { ( $z01a1f0ce0c = 
$$zd1f0eac228 { "\x69\x64" } ) ; } ( ++ $zc5402de4ff ) ; ( ++ $z7c13a72647 ) ; 
if ( ( $zc5402de4ff >= $_cron_progress_report_interval ) ) { ( $zc5402de4ff = 0 
) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x2d\x2d\x53\x54\x41\x54\x55\x53\x3a\x20" . $z7c13a72647 ) . 
"\x20\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64"
 ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x43\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x20\x73\x74\x61\x74\x75\x73\x3a\x20"
 . $z7c13a72647 ) . 
"\x20\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64"
 ) . $z4844a6a3dc ) ) ; } &z06c12cbc32 ( $$z57ba7b146b { 
"\x64\x6f\x75\x62\x6c\x65\x5f\x73\x75\x62\x6a\x65\x63\x74" } , $$z57ba7b146b { 
"\x64\x6f\x75\x62\x6c\x65\x5f\x74\x65\x78\x74" } ) ; ( ++ $zf20b2334f5 ) ; ( ++ 
$z75fa8d62cf ) ; ( ++ $z9151d019a8 ) ; ( $zb8e0443a7a = $$zd1f0eac228 { 
"\x69\x64" } ) ; if ( ( $z9151d019a8 >= $_cron_subscriber_report_interval ) ) { 
( $z9151d019a8 = 0 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time )
 . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x2d\x2d\x50\x52\x4f\x47\x52\x45\x53\x53\x3a\x20" . $zf20b2334f5 ) . 
"\x20\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73\x20\x73\x65\x6e\x74" )
 ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x43\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x20\x70\x72\x6f\x67\x72\x65\x73\x73\x3a\x20"
 . $zf20b2334f5 ) . 
"\x20\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; } if ( ( $zf20b2334f5 >= $$z565d5833ec { 
"\x6d\x65\x73\x73\x61\x67\x65\x5f\x6c\x69\x6d\x69\x74" } ) ) { ( $z96c741f6c2 = 
1 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x43\x4f\x4e\x46\x49\x52\x4d\x41\x54\x49\x4f\x4e\x53\x20\x53\x55\x53\x50\x45\x4e\x44\x45\x44\x3a\x20\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3a\x20"
 . $zf20b2334f5 ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x43\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73\x20\x73\x75\x73\x70\x65\x6e\x64\x65\x64\x3a\x20"
 . $zf20b2334f5 ) . 
"\x20\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; last ; } } ( my $zecb603dd3b = time ) ; ( my $zd7c6e8a7e4 
= ( ( &zae3f1eb28b ( $zecb603dd3b ) . "\x20" ) . &ze3c75c75ba ( $zecb603dd3b ) )
 ) ; ( $zde6545bf52 = ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . $db_table_CAM ) . 
"\x20\x53\x45\x54\x20\x73\x65\x6e\x64\x5f\x63\x6f\x6e\x66\x69\x72\x6d\x61\x74\x69\x6f\x6e\x3d\x30\x2c\x20\x64\x6f\x75\x62\x6c\x65\x5f\x72\x65\x71\x75\x65\x73\x74\x65\x64\x3d"
 ) . $zecb603dd3b ) ) ; ( $z068d4ec357 = &zf7662df26a ( ( ( ( ( ( ( ( 
$zde6545bf52 . "\x20" ) . $z9ebfaa1bc3 ) . 
"\x20\x41\x4e\x44\x20\x28\x69\x64\x20\x3e\x3d\x20" ) . $z01a1f0ce0c ) . 
"\x20\x41\x4e\x44\x20\x69\x64\x20\x3c\x3d\x20" ) . $zb8e0443a7a ) . "\x29" ) ) )
 ; $z068d4ec357 -> finish ; &z42492e3802 ; &zf46d10f62d ; &zfbcef587e8 ; if ( ( 
$z96c741f6c2 == 1 ) ) { $z7459ee96eb -> finish ; return ; } ( $z7459ee96eb = 
&zf7662df26a ( ( ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) . 
"\x20" ) . $z9ebfaa1bc3 ) . 
"\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; } $z7459ee96eb -> finish ; return ; } sub 
z96ade3acbf { if ( ( ( $z96c741f6c2 == 1 ) or ( $z7156f29b81 == 1 ) ) ) { return
 ; } ( $z068d4ec357 = &zf7662df26a ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . 
$db_table_BAT ) . 
"\x20\x53\x45\x54\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x52\x27\x2c\x20\x73\x65\x73\x73\x69\x6f\x6e\x73\x3d\x73\x65\x73\x73\x69\x6f\x6e\x73\x2b\x31\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) ) ) ; $z068d4ec357 -> finish ; ( $log { 
"\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( 
time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; 
( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x20\x53\x54\x41\x52\x54\x3a\x20" . 
$$z3fc9ac9fdb { "\x73\x75\x62\x6a\x65\x63\x74" } ) ) ; &z613cf1afa5 ( %log ) ; print ( (
 ( 
"\x2d\x2d\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x53\x74\x61\x72\x74\x3a\x20" .
 $$z3fc9ac9fdb { "\x73\x75\x62\x6a\x65\x63\x74" } ) . $z4844a6a3dc ) ) ; ( 
$z75db0ade79 = time ) ; ( $z573e73ec8f = 0 ) ; ( $z71807ce073 = $$z3fc9ac9fdb { 
"\x6e\x75\x6d\x5f\x73\x65\x6e\x74" } ) ; ( $zcec08a64e5 = $$z3fc9ac9fdb { 
"\x72\x75\x6e\x74\x69\x6d\x65" } ) ; my ( %log ) ; ( $log { "\x74\x69\x6d\x65" }
 = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = 
"\x53\x54\x41\x52\x54\x20\x42\x52\x4f\x41\x44\x43\x41\x53\x54" ) ; &z613cf1afa5 
( %log ) ; ( my $zd16b912944 = ( ( &zae3f1eb28b ( $z75db0ade79 ) . 
"\x20\x61\x74\x20" ) . &ze3c75c75ba ( $z75db0ade79 ) ) ) ; if ( ( ( 
$$z3fc9ac9fdb { "\x65\x6d\x61\x69\x6c\x5f\x63\x6f\x6e\x66" } eq "\x31" ) and 
&z43f3608049 ( $$zdbc13c1f78 { "\x65\x6d\x61\x69\x6c" } ) ) ) { &z2f006be91d ( 
$$zdbc13c1f78 { "\x65\x6d\x61\x69\x6c" } , ( $_product_name . 
"\x20\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x52\x65\x70\x6f\x72\x74\x20\x2d\x20\x53\x74\x61\x72\x74"
 ) , ( ( ( ( 
"\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x73\x75\x62\x6a\x65\x63\x74\x3a\x20" .
 $$z3fc9ac9fdb { "\x73\x75\x62\x6a\x65\x63\x74" } ) . 
"\x0a\x52\x75\x6e\x20\x73\x74\x61\x72\x74\x65\x64\x3a\x20" ) . $zd16b912944 ) . 
"\x0a\x0a\x2a\x2a\x20\x45\x4e\x44\x20\x4f\x46\x20\x52\x45\x50\x4f\x52\x54\x20\x2a\x2a"
 ) ) ; } if ( ( $$z3fc9ac9fdb { 
"\x6f\x6d\x69\x74\x5f\x64\x75\x70\x6c\x69\x63\x61\x74\x65\x73" } eq "\x31" ) ) {
 ( my $zfa5192692f = ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x69\x64\x2c\x65\x6d\x61\x69\x6c\x2c\x63\x6f\x75\x6e\x74\x28\x65\x6d\x61\x69\x6c\x29\x20\x41\x53\x20\x65\x6d\x61\x69\x6c\x5f\x63\x6f\x75\x6e\x74\x65\x72\x20\x46\x52\x4f\x4d\x20"
 . $db_table_CAM ) . 
"\x20\x57\x48\x45\x52\x45\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x41\x4e\x44\x20\x4c\x4f\x43\x41\x54\x45\x28\x27\x7c\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x27\x2c\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x29\x20\x3c\x3e\x20\x30\x20\x67\x72\x6f\x75\x70\x20\x62\x79\x20\x65\x6d\x61\x69\x6c\x20\x68\x61\x76\x69\x6e\x67\x20\x65\x6d\x61\x69\x6c\x5f\x63\x6f\x75\x6e\x74\x65\x72\x3e\x31"
 ) ) ; ( my $z7459ee96eb = &zf7662df26a ( $zfa5192692f ) ) ; while ( ( my $z03768655bf
 = $z7459ee96eb -> fetchrow_hashref ) ) { ( my $z068d4ec357 = &zf7662df26a ( ( (
 ( ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . $db_table_CAM ) . 
"\x20\x53\x45\x54\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x3d\x52\x45\x50\x4c\x41\x43\x45\x28\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x2c\x20\x27\x7c\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x27\x2c\x20\x27\x27\x29\x20\x57\x48\x45\x52\x45\x20\x65\x6d\x61\x69\x6c\x3d\x27"
 ) . $$z03768655bf { "\x65\x6d\x61\x69\x6c" } ) . 
"\x27\x20\x41\x4e\x44\x20\x69\x64\x3c\x3e" ) . $$z03768655bf { "\x69\x64" } ) ) 
) ; $z068d4ec357 -> finish ; } $z7459ee96eb -> finish ; } ( $z41767a5f3a = 
$$z3fc9ac9fdb { "\x72\x75\x6e\x74\x69\x6d\x65" } ) ; if ( ( $$z3fc9ac9fdb { 
"\x6f\x6d\x69\x74\x5f\x75\x6e\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73" } eq 
"\x31" ) ) { ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) . 
"\x20\x57\x48\x45\x52\x45\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x20\x4c\x49\x4b\x45\x20\x27\x25\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x25\x27\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3c\x3e\x27\x55\x27\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; } else { ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( 
( "\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) .
 
"\x20\x57\x48\x45\x52\x45\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x20\x4c\x49\x4b\x45\x20\x27\x25\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x25\x27\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; } while ( $z7459ee96eb -> rows ) { if ( ( ( 
$z96c741f6c2 == 1 ) or ( $z7156f29b81 == 1 ) ) ) { last ; } ( my $z01a1f0ce0c = 
"" ) ; ( my $zb8e0443a7a = "" ) ; while ( ( $zd1f0eac228 = $z7459ee96eb -> 
fetchrow_hashref ) ) { if ( ( ( $z96c741f6c2 == 1 ) or ( $z7156f29b81 == 1 ) ) )
 { last ; } if ( ( $z01a1f0ce0c eq "" ) ) { ( $z01a1f0ce0c = $$zd1f0eac228 { 
"\x69\x64" } ) ; } ( ++ $zc5402de4ff ) ; ( ++ $z7c13a72647 ) ; if ( ( 
$zc5402de4ff >= $_cron_progress_report_interval ) ) { ( $zc5402de4ff = 0 ) ; ( 
$log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x2d\x2d\x53\x54\x41\x54\x55\x53\x3a\x20" . $z7c13a72647 ) . 
"\x20\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64"
 ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x73\x74\x61\x74\x75\x73\x3a\x20"
 . $z7c13a72647 ) . 
"\x20\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73\x20\x61\x6e\x61\x6c\x79\x7a\x65\x64"
 ) . $z4844a6a3dc ) ) ; } &za1390a6cce ; ( ++ $z573e73ec8f ) ; ( ++ $z75fa8d62cf
 ) ; ( ++ $z874e902c88 ) ; ( ++ $z9151d019a8 ) ; ( $zb8e0443a7a = $$zd1f0eac228 
{ "\x69\x64" } ) ; if ( ( $z9151d019a8 >= $_cron_subscriber_report_interval ) ) 
{ ( $z9151d019a8 = 0 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time
 ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( ( 
"\x2d\x2d\x50\x52\x4f\x47\x52\x45\x53\x53\x3a\x20" . $z573e73ec8f ) . 
"\x20\x73\x65\x6e\x74" ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x70\x72\x6f\x67\x72\x65\x73\x73\x3a\x20"
 . $z573e73ec8f ) . "\x20\x6d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; } if ( ( $z75fa8d62cf >= $$z565d5833ec { 
"\x6d\x65\x73\x73\x61\x67\x65\x5f\x6c\x69\x6d\x69\x74" } ) ) { ( $z96c741f6c2 = 
1 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x20\x53\x55\x53\x50\x45\x4e\x44\x45\x44\x3a\x20\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3a\x20"
 . $z573e73ec8f ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x73\x75\x73\x70\x65\x6e\x64\x65\x64\x3a\x20"
 . $z573e73ec8f ) . "\x20\x6d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; last ; } ( my $zcb54224af1 = &z7356bd474a ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x73\x74\x61\x74\x75\x73\x20\x46\x52\x4f\x4d\x20" .
 $db_table_BAT ) . "\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d" ) . $$z3fc9ac9fdb 
{ "\x69\x64" } ) ) ) ; if ( ( $$zcb54224af1 { "\x73\x74\x61\x74\x75\x73" } eq 
"\x50" ) ) { ( $z7156f29b81 = 1 ) ; ( $log { "\x74\x69\x6d\x65" } = ( ( 
&zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) ; ( $log { 
"\x72\x6f\x75\x74\x69\x6e\x65" } = "\x63\x72\x6f\x6e" ) ; ( $log { 
"\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x20\x50\x41\x55\x53\x45\x44\x3a\x20\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3a\x20"
 . $z573e73ec8f ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( ( 
"\x2d\x2d\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x70\x61\x75\x73\x65\x64\x3a\x20"
 . $z573e73ec8f ) . "\x20\x6d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74" )
 . $z4844a6a3dc ) ) ; last ; } } ( $z33f7b07fb5 = $$z3fc9ac9fdb { 
"\x73\x75\x62\x6a\x65\x63\x74" } ) ; ( $z33f7b07fb5 =~ s/"/\\"/g ) ; ( 
$zb74db51e99 = ( ( &zae3f1eb28b ( time ) . "\x20" ) . &ze3c75c75ba ( time ) ) ) 
; ( $zde6545bf52 = ( ( ( ( ( ( ( ( ( ( ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . 
$db_table_CAM ) . 
"\x20\x53\x45\x54\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x3d\x52\x45\x50\x4c\x41\x43\x45\x28\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x2c\x20\x22\x7c\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x22\x2c\x20\x22\x22\x29\x2c\x20\x62\x61\x74\x63\x68\x5f\x68\x69\x74\x5f\x63\x6f\x64\x65\x73\x20\x3d\x20\x49\x46\x28\x4c\x4f\x43\x41\x54\x45\x28\x27\x7c\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x27\x2c\x20\x62\x61\x74\x63\x68\x5f\x68\x69\x74\x5f\x63\x6f\x64\x65\x73\x29\x2c\x20\x62\x61\x74\x63\x68\x5f\x68\x69\x74\x5f\x63\x6f\x64\x65\x73\x2c\x20\x43\x4f\x4e\x43\x41\x54\x28\x62\x61\x74\x63\x68\x5f\x68\x69\x74\x5f\x63\x6f\x64\x65\x73\x2c\x20\x27\x7c\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x27\x29\x29\x2c\x20\x73\x65\x6e\x64\x5f\x6c\x6f\x67\x3d\x43\x4f\x4e\x43\x41\x54\x28\x73\x65\x6e\x64\x5f\x6c\x6f\x67\x2c\x20\x22"
 ) . $zb74db51e99 ) . "\x7c\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x3a\x20" ) . 
$z33f7b07fb5 ) . 
"\x7c\x53\x45\x4e\x54\x20\x4f\x4b\x0a\x22\x29\x20\x57\x48\x45\x52\x45\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x20\x4c\x49\x4b\x45\x20\x27\x25\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . "\x5d\x25\x27" ) ) ; ( $z068d4ec357 = 
&zf7662df26a ( ( ( ( ( ( $zde6545bf52 . 
"\x20\x41\x4e\x44\x20\x28\x69\x64\x20\x3e\x3d\x20" ) . $z01a1f0ce0c ) . 
"\x20\x41\x4e\x44\x20\x69\x64\x20\x3c\x3d\x20" ) . $zb8e0443a7a ) . "\x29" ) ) )
 ; $z068d4ec357 -> finish ; ( $z91cd4ba509 = ( $z71807ce073 + $z573e73ec8f ) ) ;
 ( $z9744c0e00c = ( ( $zcec08a64e5 + time ) - $z75db0ade79 ) ) ; ( $z068d4ec357 
= &zf7662df26a ( ( ( ( ( ( ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . 
$db_table_BAT ) . "\x20\x53\x45\x54\x20\x6e\x75\x6d\x5f\x73\x65\x6e\x74\x3d" ) .
 $z91cd4ba509 ) . "\x2c\x20\x70\x72\x6f\x67\x72\x65\x73\x73\x3d" ) . 
$z573e73ec8f ) . "\x2c\x20\x72\x75\x6e\x74\x69\x6d\x65\x3d" ) . $z9744c0e00c ) .
 "\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d" ) . $$z3fc9ac9fdb { "\x69\x64" } ) )
 ) ; $z068d4ec357 -> finish ; &zf46d10f62d ; &zfbcef587e8 ; &z42492e3802 ; if ( 
( $z96c741f6c2 == 1 ) ) { ( $z068d4ec357 = &zf7662df26a ( ( ( ( 
"\x55\x50\x44\x41\x54\x45\x20" . $db_table_BAT ) . 
"\x20\x53\x45\x54\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x53\x27\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) ) ) ; $z068d4ec357 -> finish ; $z7459ee96eb 
-> finish ; return ; } if ( ( $z7156f29b81 == 1 ) ) { $z7459ee96eb -> finish ; 
return ; } if ( ( $$z3fc9ac9fdb { 
"\x6f\x6d\x69\x74\x5f\x75\x6e\x73\x75\x62\x73\x63\x72\x69\x62\x65\x72\x73" } eq 
"\x31" ) ) { ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( ( 
"\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) . 
"\x20\x57\x48\x45\x52\x45\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x20\x4c\x49\x4b\x45\x20\x27\x25\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x25\x27\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x41\x4e\x44\x20\x73\x74\x61\x74\x75\x73\x3c\x3e\x27\x55\x27\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; } else { ( $z7459ee96eb = &zf7662df26a ( ( ( ( ( 
( "\x53\x45\x4c\x45\x43\x54\x20\x2a\x20\x46\x52\x4f\x4d\x20" . $db_table_CAM ) .
 
"\x20\x57\x48\x45\x52\x45\x20\x62\x61\x74\x63\x68\x5f\x63\x6f\x64\x65\x73\x20\x4c\x49\x4b\x45\x20\x27\x25\x5b"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) . 
"\x5d\x25\x27\x20\x41\x4e\x44\x20\x73\x75\x62\x73\x63\x72\x69\x70\x74\x69\x6f\x6e\x5f\x74\x79\x70\x65\x3d\x27\x45\x27\x20\x4f\x52\x44\x45\x52\x20\x42\x59\x20\x69\x64\x20\x4c\x49\x4d\x49\x54\x20\x30\x2c"
 ) . $_send_batch_size ) ) ) ; } } $z7459ee96eb -> finish ; ( $z6f5c6605b3 = 
time ) ; &zf7662df26a ( ( ( ( "\x55\x50\x44\x41\x54\x45\x20" . $db_table_BAT ) .
 
"\x20\x53\x45\x54\x20\x73\x74\x61\x74\x75\x73\x3d\x27\x43\x27\x20\x57\x48\x45\x52\x45\x20\x69\x64\x3d"
 ) . $$z3fc9ac9fdb { "\x69\x64" } ) ) ; ( my $z02d8edc0c3 = ( ( &zae3f1eb28b ( 
$z6f5c6605b3 ) . "\x20\x61\x74\x20" ) . &ze3c75c75ba ( $z6f5c6605b3 ) ) ) ; if (
 ( ( $$z3fc9ac9fdb { "\x65\x6d\x61\x69\x6c\x5f\x63\x6f\x6e\x66" } eq "\x31" ) 
and &z43f3608049 ( $$zdbc13c1f78 { "\x65\x6d\x61\x69\x6c" } ) ) ) { &z2f006be91d
 ( $$zdbc13c1f78 { "\x65\x6d\x61\x69\x6c" } , ( $_product_name . 
"\x20\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x52\x65\x70\x6f\x72\x74\x20\x2d\x20\x43\x6f\x6d\x70\x6c\x65\x74\x65"
 ) , ( ( ( ( ( ( ( ( 
"\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x73\x75\x62\x6a\x65\x63\x74\x3a\x20" .
 $$z3fc9ac9fdb { "\x73\x75\x62\x6a\x65\x63\x74" } ) . 
"\x0a\x52\x75\x6e\x20\x73\x74\x61\x72\x74\x65\x64\x3a\x20" ) . $zd16b912944 ) . 
"\x0a\x52\x75\x6e\x20\x65\x6e\x64\x65\x64\x3a\x20" ) . $z02d8edc0c3 ) . 
"\x0a\x4d\x65\x73\x73\x61\x67\x65\x73\x20\x73\x65\x6e\x74\x3a\x20" ) . 
$z573e73ec8f ) . 
"\x0a\x0a\x2a\x2a\x20\x45\x4e\x44\x20\x4f\x46\x20\x52\x45\x50\x4f\x52\x54\x20\x2a\x2a"
 ) ) ; } ( $log { "\x74\x69\x6d\x65" } = ( ( &zae3f1eb28b ( time ) . "\x20" ) . 
&ze3c75c75ba ( time ) ) ) ; ( $log { "\x72\x6f\x75\x74\x69\x6e\x65" } = 
"\x63\x72\x6f\x6e" ) ; ( $log { "\x63\x6f\x6d\x6d\x65\x6e\x74" } = ( 
"\x42\x52\x4f\x41\x44\x43\x41\x53\x54\x20\x45\x4e\x44\x3a\x20" . $$z3fc9ac9fdb {
 "\x73\x75\x62\x6a\x65\x63\x74" } ) ) ; &z613cf1afa5 ( %log ) ; print ( ( ( 
"\x2d\x2d\x42\x72\x6f\x61\x64\x63\x61\x73\x74\x20\x45\x6e\x64\x3a\x20" . 
$$z3fc9ac9fdb { "\x73\x75\x62\x6a\x65\x63\x74" } ) . $z4844a6a3dc ) ) ; return ;
 }

Open in new window

0
Comment
Question by:turtleman2009
8 Comments
 
LVL 2

Expert Comment

by:moorereason
ID: 23722601
I didn't test it, but I think the code below should work.

(undefined, $minute, $hour, undefined) = localtime(time);
exit unless ($hour >= 3 && ($hour < 8 || ($hour == 8 && $minute == 0)));

Open in new window

0
 

Author Comment

by:turtleman2009
ID: 23722771
Thank You!
I am sorry for my ignorance but I do not know where to include the code that you have written in my other script.
0
 
LVL 39

Expert Comment

by:Adam314
ID: 23722789
Add this at the top, affter your first line
my $hour=(localtime)[2];
exit unless ($hour>=15 and $hour<=20);

Open in new window

0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 85

Accepted Solution

by:
ozo earned 1500 total points
ID: 23722808
0,15,30,45 3-7 * * *  yourscript
should run every 16 minutes between 3 and 8 in cron
0
 
LVL 2

Expert Comment

by:moorereason
ID: 23722820
Adam314 is wrong.  His code will run from 15:00-20:59.

Add my code to at the second line of your script:

#!/usr/bin/perl
(undefined, $minute, $hour, undefined) = localtime(time);
exit unless ($hour >= 3 && ($hour < 8 || ($hour == 8 && $minute == 0)));
unshift ( @INC , "\x2e" ) ; if ( ( $_set_cron_priority == 1 ) ) { setpriority (
...

Open in new window

0
 
LVL 2

Expert Comment

by:moorereason
ID: 23722879
ozo is right.  You can tell cron explicitly when you want to run your script so your script doesn't care what time it is.  Take ozo's advice if your cron manager will let you do that.
0
 
LVL 39

Expert Comment

by:Adam314
ID: 23723424
>>moorereason:
Adam314 is wrong.
That depends on if "03:00-08:00" was inclusive or exclusive, which wasn't stated in the original question.  Also, if the cron is set to always run at anything other than the 0 minute, it makes no difference, as the script would never have been started at exactly 08:00.  
In addition, your code doesn't compile.  If you want the hour and minute, you should use:
    my ($min, $hour) = (localtime)[1,2];


Either way, what ozo proposed is the best solution.
0
 
LVL 2

Expert Comment

by:moorereason
ID: 23723570
Adam314:
I still think you're wrong about the time issue, but you're right about my code.  My bad...I should have tested it first.  I've corrected my code below, but yours is more elegant.  I'm also leaving off "strict" mode variable declarations since his script doesn't appear to use it.

## my correction
(undef, $minute, $hour, undef) = localtime(time);
exit unless ($hour >= 3 && ($hour < 8 || ($hour == 8 && $minute == 0)));
 
## better version with Adam314's array selector
($minute, $hour) = (localtime)[1,2];
exit unless ($hour >= 3 && ($hour < 8 || ($hour == 8 && $minute == 0)));

Open in new window

0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Measuring Server's processing rate with a simple powershell command. The differences in processing rate also was recorded in different use-cases, when a server in free and busy states.
Learn the basics of strings in Python: declaration, operations, indices, and slicing. Strings are declared with quotations; for example: s = "string": Strings are immutable.: Strings may be concatenated or multiplied using the addition and multiplic…
The viewer will learn how to dynamically set the form action using jQuery.
Suggested Courses
Course of the Month14 days, 9 hours left to enroll

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question