diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-21 16:50:57 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-21 16:50:57 +0000 |
| commit | f773e558d3e5f3515b433103f474b93b294854ff (patch) | |
| tree | 5c553f56af4653babf90c85349a863bf06cc4657 /perl-install | |
| parent | 30a0905cfe36f83be6c98a4677657b40acbf0cad (diff) | |
| download | drakx-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-x | perl-install/standalone/draksec | 14 |
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); |