diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-03 07:57:57 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-03 07:57:57 +0000 |
| commit | a9b2cae5417f5a9375ddecdf59ba249df1b5120b (patch) | |
| tree | 052049307b116aeb9b724f703c4bb2271ceb9dbd | |
| parent | b22c5d87da520d2c886a8652bbac45da87cf051a (diff) | |
| download | drakx-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar drakx-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar.gz drakx-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar.bz2 drakx-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.tar.xz drakx-a9b2cae5417f5a9375ddecdf59ba249df1b5120b.zip | |
- perl_checker fixes
- display sorted options (hey pixel, note that the last diff trunk with
execessive () was not detected by perl_checker :-( )
| -rwxr-xr-x | perl-install/standalone/draksec | 12 |
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"))); |