use vars qw($statcount $bot_pid $forkedtime $statcountfix $addressed);
use vars qw($logDate $logold $logcount $logtime $logrepeat $running);
use vars qw($statcount $bot_pid $forkedtime $statcountfix $addressed);
use vars qw($logDate $logold $logcount $logtime $logrepeat $running);
if ( &IsParam('logType') and $param{'logType'} =~ /DAILY/i ) {
my ( $day, $month, $year ) = ( gmtime time() )[ 3, 4, 5 ];
if ( &IsParam('logType') and $param{'logType'} =~ /DAILY/i ) {
my ( $day, $month, $year ) = ( gmtime time() )[ 3, 4, 5 ];
- $logDate = sprintf( "%04d%02d%02d", $year + 1900, $month + 1, $day );
+ $logDate = sprintf( '%04d%02d%02d', $year + 1900, $month + 1, $day );
$status = "!$statcount! " . $input;
if ( $statcount > 1000 ) {
print LOG "ERROR: FORKED PROCESS RAN AWAY; KILLING.\n";
$status = "!$statcount! " . $input;
if ( $statcount > 1000 ) {
print LOG "ERROR: FORKED PROCESS RAN AWAY; KILLING.\n";
- $date = sprintf( "%02d:%02d.%02d", ( gmtime $time )[ 2, 1, 0 ] );
+ $date = sprintf( '%02d:%02d.%02d', ( gmtime $time )[ 2, 1, 0 ] );
my ( $day, $month, $year ) = ( gmtime $time )[ 3, 4, 5 ];
my $newlogDate =
my ( $day, $month, $year ) = ( gmtime $time )[ 3, 4, 5 ];
my $newlogDate =
- sprintf( "%04d%02d%02d", $year + 1900, $month + 1, $day );
+ sprintf( '%04d%02d%02d', $year + 1900, $month + 1, $day );
- open( OUT, ">>debug.log" );
- binmode( OUT, ":encoding(UTF-8)" );
+ open( OUT, '>>debug.log' );
+ binmode( OUT, ':encoding(UTF-8)' );
print OUT "DEBUG: $str\n";
# note: cannot call external functions because SIG{} does not allow us to.
print OUT "DEBUG: $str\n";
# note: cannot call external functions because SIG{} does not allow us to.