summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-08 11:49:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-08 11:49:45 +0000
commitb0f92097037e2ba999600a6f48361f4b6c781203 (patch)
treea8dad578b759745f06e3a87d69b3babdcf1355a9 /perl-install/standalone/draksec
parent4c84df653f8e426d10f71323ac9a10a55d99b585 (diff)
downloaddrakx-backup-do-not-use-b0f92097037e2ba999600a6f48361f4b6c781203.tar
drakx-backup-do-not-use-b0f92097037e2ba999600a6f48361f4b6c781203.tar.gz
drakx-backup-do-not-use-b0f92097037e2ba999600a6f48361f4b6c781203.tar.bz2
drakx-backup-do-not-use-b0f92097037e2ba999600a6f48361f4b6c781203.tar.xz
drakx-backup-do-not-use-b0f92097037e2ba999600a6f48361f4b6c781203.zip
log values too in explanations
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-xperl-install/standalone/draksec10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 150f70272..7b53b96ad 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -238,18 +238,18 @@ my $bok = gtksignal_connect(Gtk2::Button->new(N("Ok")),
if ($seclevel_value ne security::level::get_string()) {
$w = wait_msg(N("Please wait, setting security level..."));
- log::explanations("Setting security level to $seclevel_value");
+ log::explanations(qq(Setting security level to "$seclevel_value"));
security::level::set(security::level::from_string($seclevel_value));
remove_wait_msg($w);
}
$w = wait_msg(N("Please wait, setting security options..."));
- log::explanations("Setting security administrator option");
- $msec->set_check('MAIL_WARN', $secadmin_check_value == 1 ? 'yes' : 'no');
+ log::explanations(qq(Setting security administrator option to ") . bool2yesno($secadmin_check_value) . '"');
+ $msec->set_check('MAIL_WARN', bool2yesno($secadmin_check_value));
if ($secadmin_value ne $msec->get_check_value('MAIL_USER') && $secadmin_check_value) {
- log::explanations("Setting security administrator contact");
- $msec->set_check('MAIL_USER', $secadmin_value);
+ log::explanations(qq(Setting security administrator contact to "$secadmin_value"));
+ $msec->set_check('MAIL_USER', $secadmin_value);
}
log::explanations("Setting security periodic checks");