diff options
Diffstat (limited to 'installsrv_wizard')
| -rw-r--r-- | installsrv_wizard/Installsrv.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm index 33e5ab71..a70a60db 100644 --- a/installsrv_wizard/Installsrv.pm +++ b/installsrv_wizard/Installsrv.pm @@ -92,10 +92,11 @@ $o->{pages} = { { 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} }, - ], - complete => \&do_it, - next => 'wait', - }, + ], + post => \&do_it, + no_back => 1, + next => 'end', + }, wait => { name => N("Configuring your system, please wait..."), next => 'end', @@ -145,15 +146,17 @@ 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 $S = $o->{var}{SOURCEDIR}; my $D = $o->{var}{DESTDIR}; if (! -d $D) { mkdir_p($D) } - run_command_and_log("cp -avf $S/* $D", "Copying data $S/* $D"); + cp_data($o->{var}{SOURCEDIR}, $o->{var}{DESTDIR}); add_install_dir(); add_http_link($o->{var}{DESTDIR}); - return 0; + undef $w; } - + sub new { my ($class) = @_; bless { |