From c72131926d5eea9bd3b6aac0089aecb01285221c Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Thu, 27 Jan 2005 22:32:44 +0000
Subject: [PATCH 1/1] r5048: made the provision.pl script much less error prone
 (you don't need to rename a bunch of files) (This used to be commit
 9aa5b076962c08cd54050526ecb41b2f613172e8)

---
 source4/script/provision.pl | 124 ++++++++++++------------------------
 1 file changed, 40 insertions(+), 84 deletions(-)

diff --git a/source4/script/provision.pl b/source4/script/provision.pl
index d6c4cd68fea..1730f0859a7 100755
--- a/source4/script/provision.pl
+++ b/source4/script/provision.pl
@@ -186,6 +186,23 @@ sub substitute($)
 	die "ERROR: Uknown substitution variable $var\n";
 }
 
+
+####################################################################
+# substitute all variables in a string
+sub apply_substitutions($)
+{
+	my $data = shift;
+	my $res = "";
+	while ($data =~ /(.*?)\$\{(\w*)\}(.*)/s) {
+		my $sub = substitute($2);
+		$res .= "$1$sub";
+		$data = $3;
+	}
+	$res .= $data;
+	return $res;
+}
+
+
 #####################################################################
 # write a string into a file
 sub FileSave($$)
@@ -365,123 +382,62 @@ if (!$opt_adminpass) {
 	print "chose random Administrator password '$opt_adminpass'\n";
 }
 
-my $res = "";
-
-print "applying substitutions ...\n";
-
-while ($data =~ /(.*?)\$\{(\w*)\}(.*)/s) {
-	my $sub = substitute($2);
-	$res .= "$1$sub";
-	$data = $3;
-}
-$res .= $data;
-
-print "saving ldif to newsam.ldif ...\n";
-
-FileSave("newsam.ldif", $res);
-
-unlink("newsam.ldb");
-
-print "creating newsam.ldb ...\n";
-
 # allow provisioning to be run from the source directory
 $ENV{"PATH"} .= ":bin";
 
-system("ldbadd -H newsam.ldb newsam.ldif");
 
-print "done\n";
+my $res = apply_substitutions($data);
 
-$data = FileLoad("rootdse.ldif") || die "Unable to load rootdse.ldif\n";
+my $newdb = "newdb." . int(rand(1000));
 
-$res = "";
+print "Putting new database files in $newdb\n";
 
-print "applying substitutions ...\n";
+mkdir($newdb) || die "Unable to create temporary directory $newdb\n";
 
-while ($data =~ /(.*?)\$\{(\w*)\}(.*)/s) {
-	my $sub = substitute($2);
-	$res .= "$1$sub";
-	$data = $3;
-}
-$res .= $data;
+FileSave("$newdb/sam.ldif", $res);
 
-print "saving ldif to newrootdse.ldif ...\n";
+print "creating $newdb/sam.ldb ...\n";
 
-FileSave("newrootdse.ldif", $res);
+system("ldbadd -H $newdb/sam.ldb $newdb/sam.ldif") == 0 || die "Failed to create sam.ldb\n";
 
-unlink("newrootdse.ldb");
-
-print "creating newrootdse.ldb ...\n";
-
-system("ldbadd -H newrootdse.ldb newrootdse.ldif");
-
-print "done\n";
-
-$data = FileLoad("secrets.ldif") || die "Unable to load secrets.ldif\n";
-
-$res = "";
+$data = FileLoad("rootdse.ldif") || die "Unable to load rootdse.ldif\n";
 
-print "applying substitutions ...\n";
+$res = apply_substitutions($data);
 
-while ($data =~ /(.*?)\$\{(\w*)\}(.*)/s) {
-	my $sub = substitute($2);
-	$res .= "$1$sub";
-	$data = $3;
-}
-$res .= $data;
+FileSave("$newdb/rootdse.ldif", $res);
 
-print "saving ldif to newsecrets.ldif ...\n";
+print "creating $newdb/rootdse.ldb ...\n";
 
-FileSave("newsecrets.ldif", $res);
+system("ldbadd -H $newdb/rootdse.ldb $newdb/rootdse.ldif") == 0 || die "Failed to create rootdse.ldb\n";
 
-unlink("newsecrets.ldb");
+$data = FileLoad("secrets.ldif") || die "Unable to load secrets.ldif\n";
 
-print "creating newsecrets.ldb ...\n";
+$res = apply_substitutions($data);
 
-system("ldbadd -H newsecrets.ldb newsecrets.ldif");
+FileSave("$newdb/secrets.ldif", $res);
 
-print "done\n";
+print "creating $newdb/secrets.ldb ...\n";
 
-print "generating dns zone file ...\n";
+system("ldbadd -H $newdb/secrets.ldb $newdb/secrets.ldif") == 0 || die "Failed to create secrets.ldb\n";
 
 $data = FileLoad("provision.zone") || die "Unable to load provision.zone\n";
 
-$res = "";
-
-print "applying substitutions ...\n";
-
-while ($data =~ /(.*?)\$\{(\w*)\}(.*)/s) {
-	my $sub = substitute($2);
-	$res .= "$1$sub";
-	$data = $3;
-}
-$res .= $data;
+$res = apply_substitutions($data);
 
-print "saving dns zone to newdns.zone ...\n";
+print "saving dns zone to $newdb/dns.zone ...\n";
 
 FileSave("$dnsdomain.zone", $res);
 
-print "done\n";
-
-unlink("newhklm.ldb");
-
-print "creating newhklm.ldb ... \n";
-
-system("ldbadd -H newhklm.ldb hklm.ldif");
+print "creating $newdb/hklm.ldb ... \n";
 
-print "done\n";
+system("ldbadd -H $newdb/hklm.ldb hklm.ldif") == 0 || die "Failed to create hklm.ldb\n";
 
 print "
 
 Installation:
-- Please move newsam.ldb to sam.ldb in the private/ directory of your
+- Please move $newdb/*.ldb to the private/ directory of your
   Samba4 installation
-- Please move newrootdse.ldb to rootdse.ldb in the private/ directory
-  of your Samba4 installation
-- Please move newsecrets.ldb to secrets.ldb in the private/ directory
-  of your Samba4 installation
-- Please move newhklm.ldb to hklm.ldb in the private/ directory
-  of your Samba4 installation
-- Please use $dnsdomain.zone to in BIND dns server
+- Please use $newdb/dnsdomain.zone in BIND on your dns server
 ";
 
 
-- 
2.34.1