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";