Explorar el Código

add sleep for empty tile line

Roman Dmitriev hace 3 años
padre
commit
ea16221779
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  1. 3 0
      scripts/dhcp-log.pl

+ 3 - 0
scripts/dhcp-log.pl

@@ -100,6 +100,9 @@ if (!$pid) {
         #parse log
         #parse log
         my $dhcp_log=File::Tail->new(name=>$log_file,maxinterval=>5,interval=>1) || die "$log_file not found!";
         my $dhcp_log=File::Tail->new(name=>$log_file,maxinterval=>5,interval=>1) || die "$log_file not found!";
         while (defined(my $logline=$dhcp_log->read)) {
         while (defined(my $logline=$dhcp_log->read)) {
+
+            if (!$logline) { select(undef, undef, undef, 0.15); next; }
+
             chomp($logline);
             chomp($logline);
 
 
             log_verbose("GET CLIENT REQUEST: $logline");
             log_verbose("GET CLIENT REQUEST: $logline");