diff --git a/bin/ulog_parser.pl b/bin/ulog_parser.pl index 428f3770..3e41aba1 100755 --- a/bin/ulog_parser.pl +++ b/bin/ulog_parser.pl @@ -95,6 +95,31 @@ sub save_data my $pid; my $log; my $line; +sub first_line +{ + $pid="unknown"; + my $pid_read; + do + { + $line = <$log>; + #print "read line\n"; + if(!$line) { $line = ''; return ($line ne '');} + else + { + ($pid_read) = ($line =~ m/.+proxy\[(\d+)\]: DEBUG: