diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-29 13:17:00 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-29 13:17:00 +0000 |
| commit | cc6a37a86957f0c3b31dc4b85c6ff36095bd9858 (patch) | |
| tree | 833c20c11c60a13d51ccc232e1519bb2d211f852 /perl-install | |
| parent | 2e5147b4d036784dbe104e6f2cb6fd605af4803f (diff) | |
| download | drakx-cc6a37a86957f0c3b31dc4b85c6ff36095bd9858.tar drakx-cc6a37a86957f0c3b31dc4b85c6ff36095bd9858.tar.gz drakx-cc6a37a86957f0c3b31dc4b85c6ff36095bd9858.tar.bz2 drakx-cc6a37a86957f0c3b31dc4b85c6ff36095bd9858.tar.xz drakx-cc6a37a86957f0c3b31dc4b85c6ff36095bd9858.zip | |
in explain mode, don't display day and hostname to have more
space for the rest
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 5603e8083..bdedf0073 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -329,12 +329,12 @@ sub input_callback { sub logcolorize { # we get date & time if it is date & time (dmesg) - s/(\D{3} .. \d\d:\d\d:\d\d )//; - $timestamp = $1; + s/(\D{3} .. (\d\d:\d\d:\d\d ))//; + $timestamp = $::isExplain ? $2 : $1; @rec = split; log_output($cyan,$timestamp,$b); # date & time if any... - log_output(($rec[0] eq $h) ? $blue : $col,"$rec[0] ",$b); # hostname + $::isExplain or log_output(($rec[0] eq $h) ? $blue : $col,"$rec[0] ",$b); # hostname if ($rec[1] eq "last") { log_output($green," last message repeated ",$n); |