summaryrefslogtreecommitdiffstats
path: root/perl-install/security
diff options
context:
space:
mode:
authorMystery Man 580 <uid580@mandriva.org>2002-12-04 08:30:50 +0000
committerMystery Man 580 <uid580@mandriva.org>2002-12-04 08:30:50 +0000
commitac5763aa5e12f24a2d78c52821597a7dcc9653ec (patch)
tree208c11330505a89d8aa68c4717b8b724b74f246e /perl-install/security
parent2ebc30b9f3e095ede23f9119bb382b90e97287a5 (diff)
downloaddrakx-ac5763aa5e12f24a2d78c52821597a7dcc9653ec.tar
drakx-ac5763aa5e12f24a2d78c52821597a7dcc9653ec.tar.gz
drakx-ac5763aa5e12f24a2d78c52821597a7dcc9653ec.tar.bz2
drakx-ac5763aa5e12f24a2d78c52821597a7dcc9653ec.tar.xz
drakx-ac5763aa5e12f24a2d78c52821597a7dcc9653ec.zip
share common options
Diffstat (limited to 'perl-install/security')
-rw-r--r--perl-install/security/main.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm
index baa0fa95b..00b2a79b4 100644
--- a/perl-install/security/main.pm
+++ b/perl-install/security/main.pm
@@ -100,13 +100,15 @@ sub draksec_main {
# Create the notebook (for bookmarks at the top)
my $notebook = create_notebook();
$notebook->set_tab_pos('top');
+
+ my $common_opts = { col_spacings => 10, row_spacings => 5 };
######################## BASIC OPTIONS PAGE ################################
my $seclevel_entry = new Gtk2::Combo();
- $notebook->append_page(gtkpack__(gtkshow(my $basic_page = new Gtk2::VBox(0, 0)),
+ $notebook->append_page(gtkpack(my $basic_page = new Gtk2::VBox(0, 0),
basic_seclevel_explanations($msec),
- create_packtable ({ col_spacings => 10, row_spacings => 5 },
+ create_packtable ($common_opts,
[ basic_seclevel_option(\$seclevel_entry, $msec) ],
[ new Gtk2::Label(N("Security Alerts:")),
my $secadmin_check = new Gtk2::CheckButton ],
@@ -129,7 +131,7 @@ sub draksec_main {
$notebook->append_page(gtkshow(create_scrolled_window(gtkpack(new Gtk2::VBox(0, 0),
new Gtk2::Label(N("The following options can be set to customize your\nsystem security. If you need explanations, click on Help.\n")),
- create_packtable({ col_spacings => 10, row_spacings => 5 },
+ create_packtable($common_opts,
map {
my $i = $_;
@@ -160,9 +162,9 @@ sub draksec_main {
$notebook->append_page(gtkshow(create_scrolled_window(gtkpack(new Gtk2::VBox(0, 0),
new Gtk2::Label(N("The following options can be set to customize your\nsystem security. If you need explanations, click on Help.\n")),
- create_packtable({ col_spacings => 10, row_spacings => 5 },
+ create_packtable($common_opts,
map {
- if (!member(qw(MAIL_WARN MAIL_USER), $_)) {
+ unless (member(qw(MAIL_WARN MAIL_USER), $_)) {
my $i = $_;
$security_checks_value{$i} = new_editable_combo();
my $entry = $security_checks_value{$i}->entry;