Переглянути джерело

add sleep for empty tile line

Roman Dmitriev 3 роки тому
батько
коміт
ea16221779
1 змінених файлів з 3 додано та 0 видалено
  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");