From 038175ba788b43cb2656bd670fb062ff6f7b15c4 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Mon, 30 Sep 2002 15:47:00 +0000
Subject: added user mod

---
 web_wizard/scripts/Webconf.pm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

(limited to 'web_wizard/scripts/Webconf.pm')

diff --git a/web_wizard/scripts/Webconf.pm b/web_wizard/scripts/Webconf.pm
index cf9d9b55..4ea60b7d 100644
--- a/web_wizard/scripts/Webconf.pm
+++ b/web_wizard/scripts/Webconf.pm
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 package Webconf;
-require "__WIZ_HOME__/common/scripts/Vareqval.pm";
+require "__WIZ_HOME__/common/scripts/Varspaceval.pm";
 require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm";
 use MDK::Common;
 
@@ -45,6 +45,31 @@ sub	chg_docroot {
     } "/etc/httpd/conf/commonhttpd.conf";
 }
 
+sub	is_user_mod {
+    $ENV{wiz_user_mod};
+}
+
+sub     get_user_dir {
+    my %conf = Varspaceval->get("/etc/httpd/conf/commonhttpd.conf");
+    $conf{UserDir};
+}
+
+sub     chg_user_dir {
+    my  $root = get_user_dir();
+        substInFile {
+            s|(\s*)UserDir\s*$root(/?)|$1UserDir $ENV{wiz_user_dir}$2|g;
+        } "/etc/httpd/conf/commonhttpd.conf";
+    if ($ENV{wiz_user_dir} !~ /\s*disabled\s*/) {
+        substInFile {
+            s|(/home/\*/)$root(/?)|$1$ENV{wiz_user_dir}$2|g;
+        } "/etc/httpd/conf/httpd.conf";
+        substInFile {
+            s|(/home/\*/)$root(/?)|$1$ENV{wiz_user_dir}$2|g;
+        } "/etc/httpd/conf/commonhttpd.conf";
+    }
+    10;
+}
+
 sub	do_it {
     my	$file = "/etc/httpd/conf/commonhttpd.conf";
     my	$that = "localhost";
-- 
cgit v1.2.1