summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-03 07:57:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-03 07:57:57 +0000
commita9b2cae5417f5a9375ddecdf59ba249df1b5120b (patch)
tree052049307b116aeb9b724f703c4bb2271ceb9dbd /perl-install/standalone/draksec
parentb22c5d87da520d2c886a8652bbac45da87cf051a (diff)
downloaddrakx-backup-do-not-use-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar
drakx-backup-do-not-use-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar.gz
drakx-backup-do-not-use-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar.bz2
drakx-backup-do-not-use-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar.xz
drakx-backup-do-not-use-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.zip
- perl_checker fixes
- display sorted options (hey pixel, note that the last diff trunk with execessive () was not detected by perl_checker :-( )
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-xperl-install/standalone/draksec12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 470f7d512..8816cef74 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -29,11 +29,11 @@ use security::level;
use security::msec;
use security::help;
-$MODE = 'basic';
-$0 =~ /draksec-firewall$/ and $MODE = 'firewall';
-$0 =~ /draksec-perms$/ and $MODE = 'perms';
+#$MODE = 'basic';
+#$0 =~ /draksec-firewall$/ and $MODE = 'firewall';
+#$0 =~ /draksec-perms$/ and $MODE = 'perms';
-/^-?-(\S+)$/ and $options{$1} = 1 foreach @ARGV;
+#/^-?-(\S+)$/ and $options{$1} = 1 foreach @ARGV;
my $w;
@@ -177,7 +177,7 @@ foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ])
$entry->set_text($msec->get_function_value($i));
set_default_tip($entry, $default, $i);
[ new Gtk2::Label($i), $values{$i} ];
- } $msec->get_functions($domain))))),
+ } sort $msec->get_functions($domain))))),
new Gtk2::Label($label));
$options_values{$domain} = \%values;
}
@@ -198,7 +198,7 @@ $notebook->append_page(gtkshow(create_scrolled_window(gtkpack(new Gtk2::VBox(0,
$entry->set_text($msec->get_check_value($i));
[ gtkshow(new Gtk2::Label(translate($i))), $security_checks_value{$i} ];
} else { undef }
- } ($msec->get_default_checks))))),
+ } sort $msec->get_default_checks)))),
new Gtk2::Label(N("Periodic Checks")));