diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/security/main.pm | 22 | ||||
| -rw-r--r-- | perl-install/security/msec.pm | 3 |
2 files changed, 14 insertions, 11 deletions
diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm index 37b56a00f..40fba0edb 100644 --- a/perl-install/security/main.pm +++ b/perl-install/security/main.pm @@ -32,7 +32,7 @@ sub basic_seclevel_explanations { my $text = new Gtk::Text(undef, undef); $text->set_editable(0); $text->insert(undef, $text->style->black, undef, - "Standard: This is the standard security recommended for a computer that will be used to connect + _("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. @@ -46,7 +46,7 @@ Paranoid: This is similar to the previous level, but the system is entirely clo Security Administrator: If the 'Security Alerts' option is set, security alerts will be sent to this user (username or - email)"); + email)")); gtkpack_(gtkshow(new Gtk::HBox(0, 0)), 1, $text); } @@ -191,13 +191,13 @@ sub draksec_main { unless ($::isEmbedded) { $w->{rwindow}->set_policy(1,1,1); $w->{rwindow}->set_position(1); - $w->{rwindow}->set_title("DrakSec - Basic Options" ); + $w->{rwindow}->set_title("DrakSec"); $window->set_usize( 598,490); } # Connect the signals - $window->signal_connect("delete_event", sub { $window->destroy(); } ); - $window->signal_connect("destroy", sub { my_gtk->exit(); } ); + $window->signal_connect('delete_event', sub { $window->destroy(); } ); + $window->signal_connect('destroy', sub { my_gtk->exit(); } ); $window->realize(); $window->add(my $vbox = gtkshow(new Gtk::VBox(0, 0))); @@ -217,13 +217,13 @@ sub draksec_main { [ basic_seclevel_option(\$seclevel_entry, $msec) ], [ basic_secadmin_check(\$secadmin_check, $msec) ], [ basic_secadmin_entry(\$secadmin_entry, $msec) ] )), - gtkshow(new Gtk::Label("Basic"))); + gtkshow(new Gtk::Label(_("Basic")))); ######################### NETWORK OPTIONS ################################## my %network_options_value; $notebook->append_page(gtkpack__(gtkshow(new Gtk::VBox(0, 0)), network_generate_page(\%network_options_value, $msec)), - gtkshow(new Gtk::Label("Network Options"))); + gtkshow(new Gtk::Label(_("Network Options")))); ########################## SYSTEM OPTIONS ################################## @@ -232,14 +232,14 @@ sub draksec_main { $notebook->append_page(gtkpack_( gtkshow(new Gtk::VBox(0, 0)), 1, system_generate_page(\%system_options_value, $msec)), - gtkshow(new Gtk::Label("System Options"))); + gtkshow(new Gtk::Label(_("System Options")))); ######################## PERIODIC CHECKS ################################### my %security_checks_value; $notebook->append_page(gtkpack(gtkshow(new Gtk::VBox(0, 0)), checks_generate_page(\%security_checks_value, $msec)), - gtkshow(new Gtk::Label("Periodic Checks"))); + gtkshow(new Gtk::Label(_("Periodic Checks")))); ####################### OK CANCEL BUTTONS ################################## @@ -297,8 +297,8 @@ sub draksec_main { gtkpack_($vbox, 1, gtkshow($notebook), 0, gtkadd(gtkadd(gtkshow(new Gtk::HBox(0, 0)), - gtkshow($bok)), - gtkshow($bcancel))); + $bok), + $bcancel)); $bcancel->can_default(1); $bcancel->grab_default(); diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm index 4bf604338..5fc6f7ad1 100644 --- a/perl-install/security/msec.pm +++ b/perl-install/security/msec.pm @@ -137,6 +137,9 @@ sub get_default { # *********************************************** # get_secure_level(prefix) - Get the secure level + +# duplicated with some drakx code + sub get_secure_level { shift @_; my $prefix = $_; |