use drakconnect db

2 files changed, 32 insertions, 114 deletions

diff --git a/web_wizard/scripts/Webconf.pm b/web_wizard/scripts/Webconf.pm
index 69f99194..9be3a75e 100644
--- a/web_wizard/scripts/Webconf.pm
+++ b/web_wizard/scripts/Webconf.pm
@@ -2,61 +2,41 @@
 
 package Webconf;
 require "__WIZ_HOME__/common/scripts/Vareqval.pm";
+require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm";
+use MDK::Common;
 
 use strict;
 
-my	$that;
-my	%mdk;
-my	$device;
-my	$s;
+my $o = DrakconnectConf->new();
 
-sub	finish {
-    my	$old = "/etc/httpd/conf/commonhttpd.conf";
-    my	$new = "/tmp/commonhttpd.conf";
-    my	$bak = "/etc/httpd/conf/commonhttpd.conf.orig";
+sub	check {
+    $> and return 1;
+    $o->is_dhcp() and return 2;
+    0;
+}
 
-    open(OLD, "< $old")		or die "can't open $old: $!";
-    open(NEW, "> $new")		or die "can't open $new: $!";
+sub	do_it {
+    my	$file = "/etc/httpd/conf/commonhttpd.conf";
+    my	$that = "localhost";
 
     if ($ENV{wiz_web_external} eq "1") {
 	$that = "all";
     }
     elsif ($ENV{wiz_web_internal} eq "1") {
-	$device = $mdk{wiz_device};
-	%mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$device);
-	$that = "$mdk{IPADDR}";
-    }
-    else {
-	$that = "localhost";
-    }
-
-    if ($ENV{wiz_web_external} eq "1") {
-	my $that = "all";
-    }
-    elsif ($ENV{wiz_web_internal} eq "1") {
-	%mdk = Vareqval->get("/etc/sysconfig/mdk_serv");
-	defined $mdk{wiz_device} and $device = $mdk{wiz_device} or die "wiz_device not found in mdk_serv\n";
-	%mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$device);
-	defined $mdk{IPADDR} and $that = $mdk{IPADDR} or die "IPADDR not found in /etc/sysconfig/network-scripts/ifcfg-xxx\n";
-    }
-    else {
-	$that = "localhost";
-	print "hello\n"
+	($that) = $o->get_from_known_dev("IP") =~ qr/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)\d{1,3}$/;
+	$that .= " localhost";
     }
-    while (<OLD>) {
-	if( m /^[[:space:]]*<Directory \/home/s...m/^[[:space:]]*<\/Directory>/s ) {
-	    { s /^[[:space:]]*Allow .*$/    Allow from $that\n/s;}
+    cp_af($file, $file.".orig");
+    substInFile {    
+	if( m /^\s*<Directory \/home/s...m/^\s*<\/Directory>/s ) {
+	    { s /^\s*Allow .*$/    Allow from $that\n/s;}
 	    ;}
-	if( m /^[[:space:]]*<Directory \/var\/www/s...m/^[[:space:]]*<\/Directory>/s ) {
-	    { s /^[[:space:]]*Allow .*$/    Allow from $that\n/s;}
+	if( m /^\s*<Directory \/var\/www/s...m/^\s*<\/Directory>/s ) {
+	    { s /^\s*Allow .*$/    Allow from $that\n/s;}
 	    ;}
-	print NEW $_		or die "can't write to $new: $!";
-    }
-    close(OLD)			or die "can't close $old: $!";
-    close(NEW)			or die "can't close $new: $!";
-
-    rename($old, $bak)		or die "can't rename $old to $bak: $!";
-    rename($new, $old)		or die "can't rename $new to $old: $!";
+    } $file;
+    system("/etc/rc.d/init.d/httpd restart");
+    10;
 }
 
 1;
diff --git a/web_wizard/web.wiz b/web_wizard/web.wiz
index 431e5597..995b7aaa 100644
--- a/web_wizard/web.wiz
+++ b/web_wizard/web.wiz
@@ -14,6 +14,7 @@
 	referenceLength="425"
 	referenceHeight="13"
 	perlModule="__WIZ_HOME__/web_wizard/scripts/Webconf.pm"
+	rpm="apache-conf"
 >
 
 	<Variable
@@ -33,7 +34,7 @@
 	<Page
 		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz-web.html"
 		name="welcome"
-		jumpScript="__WIZ_HOME__/common/scripts/check.sh root wiz_ip_net"
+		func="check"
 		executionLevel="NORMAL"
 		nextFinish="false"
 		canBack="true"
@@ -53,7 +54,7 @@
 		</Target>
 
 		<Target
-			targetName="error_need_net"
+			targetName="error_dhcp"
 			jumpIndex="2"
 		>
 		</Target>
@@ -126,82 +127,19 @@
 
 	<Page
 		helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz-web.html"
-		name="error_need_net"
-		subWizard="__WIZ_HOME__/server_wizard/server.wiz"
+		name="error_dhcp"
+		jumpPage="web connections"
 		executionLevel="NORMAL"
 		nextFinish="false"
-		canBack="false"
+		canBack="true"
 		canCancel="true"
 	>
 
 		<Info
 			name="errorLabel"
 			alignement="Center"
-			helpText="Network not configured yet"
-			guiType="label"
-			fontName="Default"
-			fontStyle="bold"
-			fontSize="14"
-		>
-		</Info>
-
-		<Info
-			name="info23"
-			alignement="Center"
-			guiType="label"
-			fontName="Default"
-			fontStyle="bold"
-			fontSize="14"
-		>
-		</Info>
-
-		<Info
-			name="info22"
-			alignement="Center"
-			helpText="You have to configure the basic network parameters before launch this wizard."
-			guiType="label"
-			fontName="Default"
-			fontStyle="plain"
-			fontSize="11"
-		>
-		</Info>
-
-		<Info
-			name="info25"
-			alignement="Center"
-			helpText="Press next to configure these parameters now, or Cancel to exit this wizard."
-			guiType="label"
-			fontName="Default"
-			fontStyle="plain"
-			fontSize="11"
-		>
-		</Info>
-
-		<Info
-			name="info26"
-			alignement="Center"
-			guiType="label"
-			fontName="Default"
-			fontStyle="plain"
-			fontSize="11"
-		>
-		</Info>
-
-		<Info
-			name="info24"
-			alignement="Center"
-			helpText="If you choose to configure now, you will automatically continue"
-			guiType="label"
-			fontName="Default"
-			fontStyle="plain"
-			fontSize="11"
-		>
-		</Info>
-
-		<Info
-			name="info27"
-			alignement="Center"
-			helpText="with the WEB configuration"
+			helpText="Warning\nYou are in dhcp, server may doesn't
+			work with your configuration."
 			guiType="label"
 			fontName="Default"
 			fontStyle="plain"
@@ -434,7 +372,7 @@
 		<Freetext
 			name="freetext1"
 			alignement="Fill"
-			fillScript="[  \( ${wiz_web_internal} -eq 1 \) -o \( ${wiz_web_external} -eq 1 \)  ] \a\a echo \qenabled\q || echo \qdisabled\q"
+			variableName="wiz_web_internal"
 			helpText="Intranet Web Server:"
 			guiType="textfield"
 			editable="false"
@@ -450,7 +388,7 @@
 		<Freetext
 			name="freetext2"
 			alignement="Fill"
-			fillScript="[ ${wiz_web_external} -eq 0 ] \a\a echo \qdisabled\q || echo \qenabled\q"
+			variableName="wiz_web_external"
 			helpText="Internet Web Server:"
 			guiType="textfield"
 			editable="false"