diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 891dcf5f8..3daa9d5dc 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -151,6 +151,7 @@ my %files = ( my $yy = gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("search")) , clicked => \&search),0); my $log_text = new Gtk2::TextView; $log_text->set_property('editable', 0); + my $log_buf = $log_text->get_buffer(); my $refcount_search; #### far from window @@ -171,7 +172,7 @@ gtkadd($my_win->{window}, ), gtkpack_(new Gtk2::HBox(0,0), 1, gtkadd(gtkset_border_width(new Gtk2::Frame(N("Choose file")),2), - gtkpack (gtkset_border_width(new Gtk2::VBox(0,0),0), + gtkpack (gtkset_border_width(Gtk2::VBox->new(0,0),0), map { $toggle{$_} = gtksignal_connect(new Gtk2::CheckButton($files{$_}{desc}), clicked => sub { $refcount_search++; @@ -192,7 +193,7 @@ gtkadd($my_win->{window}, !$::isExplain ? (1, gtkadd(new Gtk2::Frame(N("Content of the file")), create_scrolled_window($log_text) )) : (1, create_scrolled_window($log_text)), - if_(!$::isExplain, 0, gtkadd (gtkset_border_width(gtkset_layout(Gtk2::HButtonBox->new, 'end'), 5), + if_(!$::isExplain, 0, gtkadd(gtkset_border_width(gtkset_layout(Gtk2::HButtonBox->new, 'end'), 5), if_(!$::isFile, gtksignal_connect(new Gtk2::Button(N("Mail alert")), clicked => sub { eval { alert_config() }; if ($@ =~ /wizcancel/) { @@ -242,7 +243,6 @@ sub parse_file { $file =~ s/\.gz$//; gtkadd(my $win_pb = gtkset_modal(new Gtk2::Window('toplevel'), 1), gtkpack(new Gtk2::VBox(2,0), -#BUG: the returned string is cutted on accents with a PANGO error (s/N(/sprintf(/) new Gtk2::Label(" " . N("please wait, parsing file: %s", $files{$_}{desc}) . " "), my $pbar = new Gtk2::ProgressBar() ) @@ -260,7 +260,7 @@ sub parse_file { $ey = $ey . $::Word if $::isWord; if ($cal_mode) { - my ($year, $month, $day) = $cal->get_date(); + my (undef, $month, $day) = $cal->get_date(); $ey = $months[$month]."\\s{1,2}$day\\s.*$ey.*\n"; } @@ -329,7 +329,7 @@ sub logcolorize { } # Extract PID if present if ($rec[1] =~ /\[(\d+)\]\:/) { - my($pid) = $1; + my ($pid) = $1; $rec[1] =~ s/\[$1\]\://; log_output($rec[1] . "[", { %n, 'foreground' => 'green' }); log_output($pid, { %b, 'foreground' => 'black' }); @@ -385,7 +385,7 @@ my $r = "*** ". chomp_(`date`) . " ***\n"; my $initdir = "/etc/init.d"; - my ($load,$mail,$email,$smtp); + my ($load, $email, $smtp); $load = 3; begin: @@ -410,7 +410,7 @@ my $initdir = "/etc/init.d"; }; my @installed_d; foreach my $serv (keys %$service) { - -e "$initdir/$serv" && push (@installed_d,$serv); + -e "$initdir/$serv" && push (@installed_d, $serv); } $in->ask_from(N("service setting"), |