summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake14
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"),