summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-23 13:11:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-23 13:11:08 +0000
commit4dae0cbc384bdb0df5511f540e174c15b49e4e1c (patch)
tree8e5eab72c305f28759c1708d23d79b4c4b9677fb /perl-install/standalone/logdrake
parent420cffb888a1aacef6791f6a7b87f67ad541217b (diff)
downloaddrakx-backup-do-not-use-4dae0cbc384bdb0df5511f540e174c15b49e4e1c.tar
drakx-backup-do-not-use-4dae0cbc384bdb0df5511f540e174c15b49e4e1c.tar.gz
drakx-backup-do-not-use-4dae0cbc384bdb0df5511f540e174c15b49e4e1c.tar.bz2
drakx-backup-do-not-use-4dae0cbc384bdb0df5511f540e174c15b49e4e1c.tar.xz
drakx-backup-do-not-use-4dae0cbc384bdb0df5511f540e174c15b49e4e1c.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake20
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;