|
|
@@ -98,7 +98,7 @@ if (!$pid) {
|
|
|
if ( !defined $hdb ) { die "Cannot connect to mySQL server: $DBI::errstr\n"; }
|
|
|
|
|
|
#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,nowait=>0) || die "$log_file not found!";
|
|
|
while (defined(my $logline=$dhcp_log->read)) {
|
|
|
|
|
|
if (!$logline) { select(undef, undef, undef, 0.15); next; }
|
