diff options
Diffstat (limited to 'nfs_wizard/NFS.pm')
-rwxr-xr-x | nfs_wizard/NFS.pm | 30 |
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 }, |