my $current_time=time;
 my @solog=();
 open(OLOGS,"<$LOG_FILE");
 my @logs=<OLOGS>;
 close(OLOGS);
 my $lcounter=@logs;
 for ($lcounter; $lcounter >= 0; $lcounter--){
   if ( $logs[$lcounter]=~^/$ENV{'REMOTE_ADDR'}/){
     if ($HOURS == 0){
       return 1;
     }
     @solog=split(/\t/,@logs[$lcounter]);
     if ( ($solog[3] + ($HOURS * 3600)) > $current_time ){
       return 1;
     }
   }
 }
 return 0;