lilalo
diff l3-agent @ 33:e22df843b512
Поддержка /l3/current/index
author | devi |
---|---|
date | Mon Nov 14 09:16:28 2005 +0200 (2005-11-14) |
parents | 196c82b6e538 |
children | 219389279acb |
line diff
1.1 --- a/l3-agent Fri Nov 11 21:29:49 2005 +0200 1.2 +++ b/l3-agent Mon Nov 14 09:16:28 2005 +0200 1.3 @@ -8,11 +8,10 @@ 1.4 use POSIX; 1.5 use Term::VT102; 1.6 use Text::Iconv; 1.7 -use Data::Dumper; 1.8 use Time::Local 'timelocal_nocheck'; 1.9 use IO::Socket; 1.10 1.11 -use lib "."; 1.12 +use lib "/usr/local/bin"; 1.13 use l3config; 1.14 1.15 1.16 @@ -296,6 +295,8 @@ 1.17 $commandlines_processed++; 1.18 # time 1.19 1.20 + next if s/^Script started on.*?\n//s; 1.21 + 1.22 if (/[0-9][0-9]:[0-9][0-9]:[0-9][0-9].\[[0-9][0-9]D.\[K/ && m/$cline_re/) { 1.23 s/.*\x0d(?!\x0a)//; 1.24 # print "!!!",$_,"!!!\n";