diff options
| -rw-r--r-- | installsrv_wizard/Installsrv.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm index baa3dded..957a1d08 100644 --- a/installsrv_wizard/Installsrv.pm +++ b/installsrv_wizard/Installsrv.pm @@ -40,8 +40,8 @@ my $WWWDIR = "/var/www/html"; my $o = { name => 'Install Server Wizard', var => { - DESTDIR => '/var/install/', - SOURCEDIR => '/mnt/cdrom/', + DESTDIR => '/var/install/i', + SOURCEDIR => '/tmp/i/', }, needed_rpm => [ 'nfs-utils', 'apache' ], defaultimage => "/usr/share/wizards/dns_wizard/images/Install.png" @@ -109,6 +109,7 @@ sub add_install_dir { print " - " . $NFSEXPORTS . " ready\n"; } else { append_to_file($NFSEXPORTS, "$INSTALLDIR *(async,rw,no_root_squash)\n"); + system("service nfslock reload"); } } @@ -118,6 +119,10 @@ sub test_data { if (-e $o->{var}{DESTDIR}) { return 'dir_already_use' } } +sub add_ftpuser { + system("/usr/sbin/useradd -u 12383 -d install -r -s /bin/bash install"); +} + sub add_http_link { my ($PATH) = @_; my $LINK = $WWWDIR . '/' . basename($PATH); @@ -129,7 +134,7 @@ sub add_http_link { sub cp_data { my ($SRCDIR, $DEST) = @_; mkdir_p($DEST); - cp_af($SRCDIR, $DEST); + system("cp -av $SRCDIR/* $DEST"); } sub do_it { |