diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-23 16:10:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-23 16:10:03 +0000 |
| commit | d6f5330ee63311a3e5c8ef52693ac7193ea83ede (patch) | |
| tree | 597f252be23c47345b40109c08f58b8fa849b524 /perl-install/standalone/draksec | |
| parent | 9731f6a53e8701039a1fa0102427fbdd5eb60df0 (diff) | |
| download | drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.gz drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.bz2 drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.xz drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/draksec')
| -rwxr-xr-x | perl-install/standalone/draksec | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 0e8f2b636..4ff1b691b 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -101,8 +101,8 @@ unless ($::isEmbedded) { } # Connect the signals -$window->signal_connect('delete_event', sub { $window->destroy() }); -$window->signal_connect('destroy', sub { ugtk2->exit() }); +$window->signal_connect('delete_event', sub { $window->destroy }); +$window->signal_connect('destroy', sub { ugtk2->exit }); $window->add(my $vbox = gtkshow(new Gtk2::VBox(0, 0))); @@ -188,9 +188,9 @@ $notebook->append_page(gtkshow(create_scrolled_window(gtkpack_(new Gtk2::VBox(0, ####################### OK CANCEL BUTTONS ################################## my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")), 'clicked' => sub { - my $seclevel_value = $seclevel_entry->entry->get_text(); - my $secadmin_check_value = $secadmin_check->get_active(); - my $secadmin_value = $secadmin_entry->get_text(); + my $seclevel_value = $seclevel_entry->entry->get_text; + my $secadmin_check_value = $secadmin_check->get_active; + my $secadmin_value = $secadmin_entry->get_text; my $w; log::explanations("Configuring msec"); @@ -213,7 +213,7 @@ my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")), log::explanations("Setting security periodic checks"); foreach my $key (keys %security_checks_value) { - $msec->set_check($key, $security_checks_value{$key}->entry->get_text()); + $msec->set_check($key, $security_checks_value{$key}->entry->get_text); } $msec->apply_checks; @@ -221,7 +221,7 @@ my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")), log::explanations("Setting msec functions related to $domain"); foreach my $key (keys %{$options_values{$domain}}) { my $opt = $options_values{$domain}{$key}; - $msec->set_function($key, $opt =~ /Combo/ ? $opt->entry->get_text() : $opt->get_text()); + $msec->set_function($key, $opt =~ /Combo/ ? $opt->entry->get_text : $opt->get_text); } } $msec->apply_functions; @@ -241,7 +241,7 @@ gtkpack_($vbox, $bok), $bcancel)); $bcancel->can_default(1); -$bcancel->grab_default(); +$bcancel->grab_default; $w->main; ugtk2->exit(0); |