From 253729b72797135a43b08960390117ae98de00c5 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Thu, 30 Jun 2005 01:34:15 +0000 Subject: add help and some information --- installsrv_wizard/Installsrv.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'installsrv_wizard/Installsrv.pm') diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm index a70a60db..3acc237f 100644 --- a/installsrv_wizard/Installsrv.pm +++ b/installsrv_wizard/Installsrv.pm @@ -44,25 +44,25 @@ my $o = { DESTDIR => '/var/install/clic', SOURCEDIR => '/home/nis/install/clic', }, - needed_rpm => [ 'nfs-utils', 'apache2' ], + needed_rpm => [ 'nfs-utils', 'apache-mpm-prefork' ], defaultimage => "$ENV{__WIZ_HOME__}/installsrv_wizard/images/Install.png" }; $o->{pages} = { welcome => { - name => N("Configure an install server (via NFS and http)") . "\n\n" . N("Easily configure a server installation directory, with NFS and HTTP access."), + name => N("Configure an install server (via NFS and HTTP)") . "\n\n" . N("Easily configure a server installation directory, with NFS 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 a Linux installation.") . "\n\n" . N("Destination directory: copy file in which directory?"), + name => N("Install server configuration") . "\n\n" . N("Path to data: specify your source directory, should be base of a Linux installation.") . "\n\n" . N("Destination directory: copy files in which 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 => "Path to data:", val => \$o->{var}{SOURCEDIR}, help => N("Please provide path to Mandriva installation disk") }, + { label => "Destination directory:", val => \$o->{var}{DESTDIR}, help => N("Files will be copied in this place.") }, # { 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} }, ], @@ -102,7 +102,7 @@ $o->{pages} = { next => 'end', }, end => { - name => N("Congratulations, Install server is now ready. You can now configure a DHCP server with PXE support, and a PXE server. So it will be very easy to install Linux through a network."), + name => N("Congratulations, Install server is now ready. You can now configure a DHCP server with PXE support, and a PXE server. So it will be very easy to install Linux through a network. Use drakpxelinux to configure your PXE server, and drakwizard DHCP to configure a DHCPD server."), end => 1, no_back => 1, next => 0 @@ -135,7 +135,7 @@ sub add_http_link { if (! -f $LINK) { symlink $PATH, $LINK; } - check_started("httpd") + check_started("httpd"); } sub cp_data { @@ -147,7 +147,7 @@ sub cp_data { sub do_it { return if $::testing; my $in = 'interactive'->vnew('su', 'install'); - my $w = $in->wait_message(N("Copying data"), N("Configuring your system as Linux install server...")); + my $w = $in->wait_message(N("Copying data"), N("Configuring your system as Linux install server via NFS or HTTP, this can take a while, so be patient please...")); my $S = $o->{var}{SOURCEDIR}; my $D = $o->{var}{DESTDIR}; if (! -d $D) { mkdir_p($D) } @@ -156,7 +156,7 @@ sub do_it { add_http_link($o->{var}{DESTDIR}); undef $w; } - + sub new { my ($class) = @_; bless { -- cgit v1.2.1