summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--installsrv_wizard/Installsrv.pm17
1 files changed, 9 insertions, 8 deletions
diff --git a/installsrv_wizard/Installsrv.pm b/installsrv_wizard/Installsrv.pm
index 48018700..f146fdd6 100644
--- a/installsrv_wizard/Installsrv.pm
+++ b/installsrv_wizard/Installsrv.pm
@@ -39,8 +39,8 @@ my $WWWDIR = "/var/www/html";
my $o = {
name => 'MDK Install Server Wizard',
var => {
- DESTDIR => '/var/install/i',
- SOURCEDIR => '/tmp/i/',
+ DESTDIR => '/var/install/cooker',
+ SOURCEDIR => '/mnt/nfs/cooker',
},
needed_rpm => [ 'nfs-utils', 'apache' ],
defaultimage => "/usr/share/wizards/dns_wizard/images/Install.png"
@@ -48,12 +48,12 @@ my $o = {
$o->{pages} = {
welcome => {
- name => N("Configure a MDK install server (via NFS and http)") . "\n\n" . N("Easily configure a Mandrake server installation directory, with nfs export and http access."),
+ name => N("Configure a MDK install server (via NFS and http)") . "\n\n" . N("Easily configure a Mandrake 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 an Mandrake installation.") . "\n\n" . N("Destination directory: copy file in wich directory ?"),
+ name => N("Install server configuration") . "\n\n" . N("Path to data: specify your source directory, should be base of an Mandrake installation.") . "\n\n" . N("Destination directory: copy file in wich directory ?"),
pre => sub {
$o->{var}{wiz_nfs} ||= 1;
$o->{var}{wiz_http} ||= 1;
@@ -61,8 +61,8 @@ $o->{pages} = {
data => [
{ label => "Path to data:", val => \$o->{var}{SOURCEDIR} },
{ label => "Destination directory:", val => \$o->{var}{DESTDIR} },
- { 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} },
+# { 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} },
],
post => \&test_data,
next => 'summary_srv',
@@ -108,7 +108,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");
+ system("service nfs reload");
}
}
@@ -128,6 +128,7 @@ sub add_http_link {
if (! -f $LINK) {
symlink $PATH, $LINK;
}
+ system("service httpd restart");
}
sub cp_data {
@@ -139,7 +140,7 @@ sub cp_data {
sub do_it {
return if $::testing;
my $in = 'interactive'->vnew('su', 'Install server');
- my $w = $in->wait_message(N("Install Server"), N("Copying data to destination directory..."));
+ my $w = $in->wait_message(N("Install Server"), N("Copying data to destination directory, can take a while...."));
cp_data($o->{var}{SOURCEDIR}, $o->{var}{DESTDIR});
add_install_dir();
add_http_link($o->{var}{DESTDIR});