summaryrefslogtreecommitdiffstats
path: root/installsrv_wizard/Installsrv.pm
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-04 08:12:38 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-04 08:12:38 +0000
commit14d5e54eb23b873696ed775d61e9970796fd54c9 (patch)
tree0558f28e7d9938d463e3fd6f8fcf2b89626b56f4 /installsrv_wizard/Installsrv.pm
parentc95a5c0e0e2ebfe7b4e92c5ee49dbe26cc345118 (diff)
downloaddrakwizard-14d5e54eb23b873696ed775d61e9970796fd54c9.tar
drakwizard-14d5e54eb23b873696ed775d61e9970796fd54c9.tar.gz
drakwizard-14d5e54eb23b873696ed775d61e9970796fd54c9.tar.bz2
drakwizard-14d5e54eb23b873696ed775d61e9970796fd54c9.tar.xz
drakwizard-14d5e54eb23b873696ed775d61e9970796fd54c9.zip
now use a progress bar
Diffstat (limited to 'installsrv_wizard/Installsrv.pm')
-rw-r--r--installsrv_wizard/Installsrv.pm20
1 files changed, 10 insertions, 10 deletions
diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm
index cbf0b5ae..8e7c1798 100644
--- a/installsrv_wizard/Installsrv.pm
+++ b/installsrv_wizard/Installsrv.pm
@@ -101,6 +101,13 @@ $o->{pages} = {
name => N("Configuring your system, please wait..."),
next => 'end',
},
+ error_end => {
+ name => N("Failed"),
+ data => [ { label => N("Please Relaunch drakwizard, and try to change some parameters.") } ],
+ no_back => 1,
+ end => 1,
+ next => 0,
+ },
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. Use drakpxelinux to configure your PXE server, and drakwizard DHCP to configure a DHCPD server."),
end => 1,
@@ -138,23 +145,16 @@ sub add_http_link {
check_started("httpd");
}
-sub cp_data {
- my ($SRCDIR, $DEST) = @_;
- mkdir_p($DEST);
- system("cp -av $SRCDIR/* $DEST");
-}
-
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 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) }
- cp_data($o->{var}{SOURCEDIR}, $o->{var}{DESTDIR});
+ my $command = "cp -av $S/* $D";
+ wizard_progress_bar($command, "Copying Data...");
+
add_install_dir();
add_http_link($o->{var}{DESTDIR});
- undef $w;
}
sub new {