diff options
Diffstat (limited to 'installsrv_wizard/Installsrv.pm')
| -rw-r--r-- | installsrv_wizard/Installsrv.pm | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm index 957a1d08..48018700 100644 --- a/installsrv_wizard/Installsrv.pm +++ b/installsrv_wizard/Installsrv.pm @@ -1,6 +1,6 @@ # version 0.2 # -# Copyright (C) 2002,2003 Mandrakesoft +# Copyright (C) 2004 Mandrakesoft # # Author: aginies _at_ mandrakesoft.com # @@ -21,7 +21,6 @@ package MDK::Wizard::Installsrv; use lib qw(/usr/lib/libDrakX); -use ugtk2; use strict; use standalone; use common; @@ -38,7 +37,7 @@ my $NFSEXPORTS = "/etc/exports"; my $WWWDIR = "/var/www/html"; my $o = { - name => 'Install Server Wizard', + name => 'MDK Install Server Wizard', var => { DESTDIR => '/var/install/i', SOURCEDIR => '/tmp/i/', @@ -49,21 +48,21 @@ my $o = { $o->{pages} = { welcome => { - name => N("Configure an install server (via NFS and http)") . "\n\n" . N("Easily configure a Mandrake server installation directory, with nfs export and http access."), + name => N("Configure a MDK install server (via NFS and http)") . "\n\n" . N("Easily configure a Mandrake server installation directory, with nfs export and http access."), no_back => 1, next => 'install_srv', }, install_srv => { - name => N("Install server Configuration") . "\n\n" . N("Path to data: specify your source directory (should be base of an Mandrake installtion.") . "\n\n" . N("Destination Directory: copy file in wich directory ?"), + name => N("Install server configuration") . "\n\n" . N("Path to data: specify your source directory (should be base of an Mandrake installation.") . "\n\n" . N("Destination directory: copy file in wich directory ?"), pre => sub { $o->{var}{wiz_nfs} ||= 1; $o->{var}{wiz_http} ||= 1; }, data => [ - { label => "Path to data", val => \$o->{var}{SOURCEDIR} }, - { label => "Destination Directory:", val => \$o->{var}{DESTDIR} }, - { label => N("Enable nfs install server"), type => 'bool', val => \$o->{var}{wiz_nfs} }, - { label => N("Enable http install server"), type => 'bool', val => \$o->{var}{wiz_http} }, + { label => "Path to data:", val => \$o->{var}{SOURCEDIR} }, + { label => "Destination directory:", val => \$o->{var}{DESTDIR} }, + { label => N("Enable NFS install server:"), type => 'bool', val => \$o->{var}{wiz_nfs} }, + { label => N("Enable HTTP install server:"), type => 'bool', val => \$o->{var}{wiz_http} }, ], post => \&test_data, next => 'summary_srv', @@ -73,11 +72,11 @@ $o->{pages} = { next => 'install_srv', }, error_dir => { - name => N("Error, Source directory must be a directory with full Mandrake installation directory."), + name => N("Error, source directory must be a directory with full Mandrake installation directory."), next => 'install_srv', }, dir_already_use => { - name => N("Destination Directory already in use, please choose another one."), + name => N("Destination directory already in use, please choose another one."), next => 'install_srv', }, summary_srv => { @@ -87,10 +86,10 @@ $o->{pages} = { $o->{var}{http} = $o->{var}{wiz_http} ? N("enabled") : N("disabled"); }, data => [ - { label => "Path to data", fixed_val => \$o->{var}{SOURCEDIR} }, - { label => "Destination Directory:", fixed_val => \$o->{var}{DESTDIR} }, - { label => N("Enable nfs install server"), fixed_val => \$o->{var}{nfs} }, - { label => N("Enable http install server"), fixed_val => \$o->{var}{http} }, + { label => "Path to data:", fixed_val => \$o->{var}{SOURCEDIR} }, + { label => "Destination directory:", fixed_val => \$o->{var}{DESTDIR} }, + { label => N("Enable NFS install server:"), fixed_val => \$o->{var}{nfs} }, + { label => N("Enable HTTP install server:"), fixed_val => \$o->{var}{http} }, ], post => \&do_it, next => 'end', |