From 4ac5aaf635dbf095b0bb98b8c786133d952e3d19 Mon Sep 17 00:00:00 2001 From: Michael Tremer Date: Mon, 23 Sep 2024 14:50:32 +0200 Subject: [PATCH] log.dat: Remove stupid line breaks and update markup of table Reported-by: Stephen Cuka Signed-off-by: Michael Tremer --- html/cgi-bin/logs.cgi/log.dat | 53 +++++++++++++++-------------------- 1 file changed, 23 insertions(+), 30 deletions(-) diff --git a/html/cgi-bin/logs.cgi/log.dat b/html/cgi-bin/logs.cgi/log.dat index 41f81e99d9..4370b1bf32 100644 --- a/html/cgi-bin/logs.cgi/log.dat +++ b/html/cgi-bin/logs.cgi/log.dat @@ -388,17 +388,15 @@ if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; } if ($lines != 0) { &oldernewer(); } print < - - $Lang::tr{'time'} - $Lang::tr{'section'} -   - + + + + + + END ; -$lines = 0; -#print ''; foreach $_ (@log) { /^... (..) (..:..:..) [\w\-\.]+ ${section}(.*)$/; @@ -406,29 +404,24 @@ foreach $_ (@log) $day =~ tr / /0/; my $time = $cgiparams{'DAY'} ? "$2" : "$day/$2" ; my $sec = $3; - my $data = $4; - # correct the cut position, just when section=RED - if (($cgiparams{'SECTION'} eq 'red' ) && ($sec =~ /(kernel:)(.*)/)) { - $sec = 'kernel'; - $data = $2.': '.$data; - } - my $d = substr ($data,0,80); - while (length($data)>80){ #very basic breaking of lines... - $data = substr ($data,80); #permit correct display in table cell - $d .= ' ' . substr ($data,0,80); - } - my $col=""; - - if ($lines % 2) { - print ""; - $col="bgcolor='$color{'color20'}'"; } - else { - print ""; - $col="bgcolor='$color{'color22'}'"; } - print "\n"; - $lines++; + my $data = &Header::cleanhtml($4, 'y'); + + print < + + + + + + +END } -#print ''; print "
$Lang::tr{'time'}$Lang::tr{'section'} 
$time$sec" .&Header::cleanhtml ("$d", 'y') . "
+ $time + + $sec + + $data +
"; &oldernewer(); -- 2.47.3