summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-21 16:50:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-21 16:50:57 +0000
commitf773e558d3e5f3515b433103f474b93b294854ff (patch)
tree5c553f56af4653babf90c85349a863bf06cc4657 /perl-install
parent30a0905cfe36f83be6c98a4677657b40acbf0cad (diff)
downloaddrakx-f773e558d3e5f3515b433103f474b93b294854ff.tar
drakx-f773e558d3e5f3515b433103f474b93b294854ff.tar.gz
drakx-f773e558d3e5f3515b433103f474b93b294854ff.tar.bz2
drakx-f773e558d3e5f3515b433103f474b93b294854ff.tar.xz
drakx-f773e558d3e5f3515b433103f474b93b294854ff.zip
one should not be able to set syadmin when no reports
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksec14
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index d344cfa99..991803cdd 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -147,7 +147,7 @@ my $notebook = create_notebook();
my $common_opts = { col_spacings => 10, row_spacings => 5, homogenous => 1 };
######################## BASIC OPTIONS PAGE ################################
-my $seclevel_entry;
+my ($seclevel_entry, $secadmin_entry);
$notebook->append_page(gtkshow(gtkpack(new Gtk2::VBox(0, 0),
basic_seclevel_explanations(),
@@ -164,12 +164,18 @@ $notebook->append_page(gtkshow(gtkpack(new Gtk2::VBox(0, 0),
}
],
[ new Gtk2::Label(N("Security Alerts:")),
- my $secadmin_check = new Gtk2::CheckButton ],
+ my $secadmin_check = gtksignal_connect(Gtk2::CheckButton->new, toggled => sub {
+ $secadmin_entry->set_sensitive($_[0]->get_active);
+ }) ],
[ new Gtk2::Label(N("Security Administrator:")),
- my $secadmin_entry = Gtk2::Entry->new_with_text($msec->get_check_value("MAIL_USER")) ]))),
+ $secadmin_entry = Gtk2::Entry->new_with_text($msec->get_check_value("MAIL_USER")) ]))),
new Gtk2::Label(N("Basic")));
-$secadmin_check->set_active(1) if $msec->get_check_value("MAIL_WARN") eq "yes";
+if ($msec->get_check_value("MAIL_WARN") eq "yes") {
+ $secadmin_check->set_active(1);
+} else {
+ $secadmin_entry->set_sensitive(0);
+ }
######################### NETWORK & SYSTEM OPTIONS #########################
my @yesno_choices = qw(yes no default ignore);