summaryrefslogtreecommitdiffstats
path: root/perl-install/security
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-09-10 09:02:40 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-09-10 09:02:40 +0000
commit915b7f6d6176969cdd1fc6d9551153649116a2a3 (patch)
tree8defeaee2e17ebc62441b340850193af571489a6 /perl-install/security
parent4e23227d0d6f4881e90bfc3e81cfaf6ccc577de0 (diff)
downloaddrakx-backup-do-not-use-915b7f6d6176969cdd1fc6d9551153649116a2a3.tar
drakx-backup-do-not-use-915b7f6d6176969cdd1fc6d9551153649116a2a3.tar.gz
drakx-backup-do-not-use-915b7f6d6176969cdd1fc6d9551153649116a2a3.tar.bz2
drakx-backup-do-not-use-915b7f6d6176969cdd1fc6d9551153649116a2a3.tar.xz
drakx-backup-do-not-use-915b7f6d6176969cdd1fc6d9551153649116a2a3.zip
inline seclevel_explain (why using functions to return a text label ?)
Diffstat (limited to 'perl-install/security')
-rw-r--r--perl-install/security/main.pm20
-rw-r--r--perl-install/security/msec.pm20
2 files changed, 16 insertions, 24 deletions
diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm
index 3e23a8ce9..4fed477a5 100644
--- a/perl-install/security/main.pm
+++ b/perl-install/security/main.pm
@@ -29,12 +29,24 @@ sub show_msec_help {
}
sub basic_seclevel_explanations {
- my $msec = $_[0];
- my $seclevel_explain = $msec->seclevel_explain();
-
my $text = new Gtk::Text(undef, undef);
$text->set_editable(0);
- $text->insert(undef, $text->style->black, undef, $seclevel_explain);
+ $text->insert(undef, $text->style->black, undef,
+ "Standard: This is the standard security recommended for a computer that will be used to connect
+ to the Internet as a client.
+
+High: There are already some restrictions, and more automatic checks are run every night.
+
+Higher: The security is now high enough to use the system as a server which can accept
+ connections from many clients. If your machine is only a client on the Internet, you
+ should choose a lower level.
+
+Paranoid: This is similar to the previous level, but the system is entirely closed and security
+ features are at their maximum
+
+Security Administrator:
+ If the 'Security Alerts' option is set, security alerts will be sent to this user (username or
+ email)");
gtkpack_(gtkshow(new Gtk::HBox(0, 0)), 1, $text);
}
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 4e105f264..4bf604338 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -131,26 +131,6 @@ sub get_default {
$default_value;
}
-# ***********************************************
-# EXPLANATIONS
-# ***********************************************
-sub seclevel_explain {
-"Standard: This is the standard security recommended for a computer that will be used to connect
- to the Internet as a client.
-
-High: There are already some restrictions, and more automatic checks are run every night.
-
-Higher: The security is now high enough to use the system as a server which can accept
- connections from many clients. If your machine is only a client on the Internet, you
- should choose a lower level.
-
-Paranoid: This is similar to the previous level, but the system is entirely closed and security
- features are at their maximum
-
-Security Administrator:
- If the 'Security Alerts' option is set, security alerts will be sent to this user (username or
- email)";
-}
# ***********************************************
# SPECIFIC OPTIONS