summaryrefslogtreecommitdiffstats
path: root/installsrv_wizard/Installsrv.pm
diff options
context:
space:
mode:
Diffstat (limited to 'installsrv_wizard/Installsrv.pm')
-rw-r--r--installsrv_wizard/Installsrv.pm11
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 {