diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/logdrake | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 44455baef..7cc5c2a83 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -210,12 +210,12 @@ $my_win->{window}->show_all(); search() if $::isFile; $my_win->main; -sub quit { ugtk2->exit(0) } +sub quit() { ugtk2->exit(0) } #------------------------------------------------------------- # search functions #------------------------------------------------------------- -sub search { +sub search() { $log_text->window->freeze_updates(); $log_buf->set_text('', -1); if ($::isFile) { @@ -254,7 +254,7 @@ sub parse_file { } my $ey = $e_yes->get_chars(0, -1); my $en = $e_no->get_chars(0, -1); - $ey =~ s/ OR /\|/; + $ey =~ s/ OR /|/; $ey =~ s/^\*$//; $en =~ s/^\*$/.*/; $ey = $ey . $::Word if $::isWord; @@ -286,9 +286,9 @@ sub parse_file { $win_pb->window->process_updates(1); # no gtkflush() because we do not want to refresh the TextView } - if ($en eq "" and /$ey/i) { logcolorize($_); next } - if (! /$en/i and /$ey/i) { logcolorize($_); next } - if (! /$en/i and $ey eq "") { logcolorize($_); next } + if ($en eq "" && /$ey/i) { logcolorize($_); next } + if (! /$en/i && /$ey/i) { logcolorize($_); next } + if (! /$en/i && $ey eq "") { logcolorize($_); next } } $win_pb->destroy() if !$::isEmbedded || !$::isExplain; @@ -327,9 +327,9 @@ sub logcolorize { return; } # Extract PID if present - if ($rec[1] =~ /\[(\d+)\]\:/) { + if ($rec[1] =~ /\[(\d+)\]:/) { my ($pid) = $1; - $rec[1] =~ s/\[$1\]\://; + $rec[1] =~ s/\[$1\]://; log_output($rec[1] . "[", { %n, 'foreground' => 'green' }); log_output($pid, { %b, 'foreground' => 'black' }); log_output("]: ", { %n, 'foreground' => 'green' }); @@ -370,7 +370,7 @@ sub log_output { # mail/sms alert #------------------------------------------------------------- -sub alert_config { +sub alert_config() { $::isWizard = 1; $::Wizard_pix_up = "wiz_logdrake.png"; # FIXME @@ -477,7 +477,7 @@ print F $r; #------------------------------------------------------------- -sub save { +sub save() { $::isWizard = 0; $yy = $in->ask_file(N("Save as.."), "/root") or return; my $buf = $log_text->get_buffer; |