summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-02 12:14:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-02 12:14:19 +0000
commit394eb47f103daad110f8fdcd57edd58c59002d08 (patch)
tree768c923a4df6b004369c7d02b45cd638728b0e7b /perl-install/standalone/logdrake
parentadf494c9924fe01e4723200eab3ac93fd9d1496e (diff)
downloaddrakx-backup-do-not-use-394eb47f103daad110f8fdcd57edd58c59002d08.tar
drakx-backup-do-not-use-394eb47f103daad110f8fdcd57edd58c59002d08.tar.gz
drakx-backup-do-not-use-394eb47f103daad110f8fdcd57edd58c59002d08.tar.bz2
drakx-backup-do-not-use-394eb47f103daad110f8fdcd57edd58c59002d08.tar.xz
drakx-backup-do-not-use-394eb47f103daad110f8fdcd57edd58c59002d08.zip
- various perl_checker "fixes"
- (logcolorize): make it saner regarding its arguments, thanks perl_checker
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index fc0e6bd10..5cef5009a 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -116,14 +116,14 @@ my $darkgray = gtkcolor(0x2F2F, 0x4F4F, 0x4F4F);
# Define good notables:
my @word_good = ("starting\n", "Freeing", "Detected", "starting.", "accepted.\n", "authenticated.\n", "Ready", "active", "reloading", "saved;", "restarting", "ONLINE\n");
my @word_warn = ("dangling", "closed.\n", "Assuming", "root", "root\n", "exiting\n", "missing", "Ignored", "adminalert:", "deleting", "OFFLINE\n");
-my @word_bad = ("bad");
+my @word_bad = "bad";
my @word_note = ("LOGIN", "DHCP_OFFER", "optimized", "reset:", "unloaded", "disconnected", "connect", "Successful", "registered\n");
my @line_good = ("up", "DHCP_ACK", "Cleaned", "Initializing", "Starting", "success", "successfully", "alive", "found", "ONLINE\n");
my @line_warn = ("warning:", "WARNING:", "invalid", "obsolete", "bad", "Password", "detected", "timeout", "timeout:", "attackalert:", "wrong", "Lame", "FAILED", "failing", "unknown", "obsolete", "stopped.\n", "terminating.", "disabled\n", "disabled", "Lost");
my @line_bad = ("DENY", "lost", "shutting", "dead", "DHCP_NAK", "failure;", "Unable", "inactive", "terminating", "refused", "rejected", "down", "OFFLINE\n", "error\n", "ERROR\n", "ERROR:", "error", "ERROR", "error:", "failed:");
# Define specifics:
-my @daemons = ("named");
+my @daemons = "named";
# Now define what we want to use when:
my $col_good = 'green4';
@@ -290,7 +290,7 @@ sub parse_file {
if (! /$en/i and /$ey/i) { logcolorize($_); next }
if (! /$en/i and $ey eq "") { logcolorize($_); next }
}
- $win_pb->destroy() unless $::isEmbedded && $::isExplain;
+ $win_pb->destroy() if !$::isEmbedded || !$::isExplain;
if ($::isTail) {
close F;
@@ -311,6 +311,7 @@ sub input_callback {
##########################################################################################
sub logcolorize {
+ local $_ = shift; #my ($data) = @_;
# we get date & time if it is date & time (dmesg)
s/(\D{3} .. (\d\d:\d\d:\d\d ))//;