summaryrefslogtreecommitdiffstats
path: root/nfs_wizard/NFS.pm
diff options
context:
space:
mode:
Diffstat (limited to 'nfs_wizard/NFS.pm')
-rwxr-xr-xnfs_wizard/NFS.pm30
1 files changed, 15 insertions, 15 deletions
diff --git a/nfs_wizard/NFS.pm b/nfs_wizard/NFS.pm
index dd898072..6b47941e 100755
--- a/nfs_wizard/NFS.pm
+++ b/nfs_wizard/NFS.pm
@@ -31,7 +31,7 @@ use MDK::Wizard::Wizcommon;
my $wiz = new MDK::Wizard::Wizcommon;
my $o = {
- name => N('NFS Wizard'),
+ name => N("NFS Wizard"),
var => {
wiz_nfs_dir => '',
wiz_nfs_level => '',
@@ -42,26 +42,26 @@ my $o = {
};
my %level = (
- 1 => N('All - No access restriction'),
- 2 => N('Local Network - access for local network (recommended)')
+ 1 => N("All - No access restriction"),
+ 2 => N("Local Network - access for local network (recommended)")
);
$o->{pages} = {
welcome => {
- name => N('NFS Server Configuration Wizard') . "\n\n" . N('This wizard will help you configuring the NFS Server for your network.'),
+ name => N("NFS Server Configuration Wizard") . "\n\n" . N("This wizard will help you configuring the NFS Server for your network."),
no_back => 1,
next => 'nfs'
},
nfs => {
- name => N('NFS Server'),
+ name => N("NFS Server"),
post => \&check,
data => [
- { label => N('Directory:'), val => \$o->{var}{wiz_nfs_dir} },
+ { label => N("Directory:"), val => \$o->{var}{wiz_nfs_dir} },
],
next => 'ask_level'
},
ask_level => {
- name => N('Access Control') . "\n\n" . N('NFS can be restricted to a certain ip class') . "\n\n" . N('Choose the level that suits your needs. If you don\'t know, the Local Network level is usually the most appropriate. Beware that the All level may be not secure.'),
+ name => N("Access Control") . "\n\n" . N("NFS can be restricted to a certain ip class") . "\n\n" . N("Choose the level that suits your needs. If you don't know, the Local Network level is usually the most appropriate. Beware that the All level may be not secure."),
pre => sub {
$o->{var}{wiz_netmask} = network_mask() if !$o->{var}{wiz_netmask} || $o->{var}{wiz_netmask} eq '0.0.0.0/0.0.0.0'
},
@@ -72,34 +72,34 @@ $o->{pages} = {
next => 'summary'
},
shownet => {
- name => N('Grant access on local network') . "\n\n" . N('Access will be allowed for hosts on the network. Here is the information found about your current local network, you can modify it if needed.'),
+ name => N("Grant access on local network") . "\n\n" . N("Access will be allowed for hosts on the network. Here is the information found about your current local network, you can modify it if needed."),
data => [
- { label => N('Authorized network:'), val => \$o->{var}{wiz_netmask} },
+ { label => N("Authorized network:"), val => \$o->{var}{wiz_netmask} },
],
next => 'summary'
},
error_dir => {
- name => N('Error.') . "\n\n" . N('The path you entered does not exist.'),
+ name => N("Error.") . "\n\n" . N("The path you entered does not exist."),
ignore => 1,
next => 'nfs'
},
summary => {
- name => N('The wizard collected the following parameters.'),
+ name => N("The wizard collected the following parameters."),
pre => sub {
$o->{var}{wiz_text_level} = $level{$o->{var}{wiz_nfs_level}};
$o->{var}{wiz_netmask} = $o->{var}{wiz_nfs_level} == 1 ? "0.0.0.0/0.0.0.0" : $o->{var}{wiz_netmask}
},
data => [
- { label => N('Exported dir:'), fixed_val => \$o->{var}{wiz_nfs_dir} },
- { label => N('Access :'), fixed_val => \$o->{var}{wiz_text_level} },
- { label => N('Netmask :'), fixed_val => \$o->{var}{wiz_netmask} },
+ { label => N("Exported dir:"), fixed_val => \$o->{var}{wiz_nfs_dir} },
+ { label => N("Access :"), fixed_val => \$o->{var}{wiz_text_level} },
+ { label => N("Netmask :"), fixed_val => \$o->{var}{wiz_netmask} },
],
post => \&do_it,
next => 'end'
},
end => {
- name => N('Congratulations') . "\n\n" . N('The wizard successfully configured your NFS Server'),
+ name => N("Congratulations") . "\n\n" . N("The wizard successfully configured your NFS Server"),
end => 1,
next => 0
},