From e35aa1faad8fe2e5e683665ff429c0f8ed1dbc5d Mon Sep 17 00:00:00 2001
From: Gerald Carter <jerry@samba.org>
Date: Thu, 19 Aug 2004 14:25:28 +0000
Subject: r1924: missed adding a few files (This used to be commit
 fc6bab3efdfc0d506d2487bc9cc948e03b8e6cf0)

---
 .../Mandrake/samba-3.0.2a-smbldap-config.patch     |  84 +++++++++
 packaging/Mandrake/smb-migrate                     | 197 +++++++++++++++++++++
 2 files changed, 281 insertions(+)
 create mode 100644 packaging/Mandrake/samba-3.0.2a-smbldap-config.patch
 create mode 100644 packaging/Mandrake/smb-migrate

(limited to 'packaging/Mandrake')

diff --git a/packaging/Mandrake/samba-3.0.2a-smbldap-config.patch b/packaging/Mandrake/samba-3.0.2a-smbldap-config.patch
new file mode 100644
index 0000000000..73abe817fd
--- /dev/null
+++ b/packaging/Mandrake/samba-3.0.2a-smbldap-config.patch
@@ -0,0 +1,84 @@
+--- samba-3.0.2a/examples/LDAP/smbldap-tools/smbldap_conf.pm.orig	2003-12-10 22:59:17.000000000 +0100
++++ samba-3.0.2a/examples/LDAP/smbldap-tools/smbldap_conf.pm	2004-03-01 22:59:01.535482375 +0100
+@@ -101,22 +101,22 @@
+ 
+ # LDAP Suffix
+ # Ex: $suffix = "dc=IDEALX,dc=ORG";
+-$suffix = "dc=IDEALX,dc=COM";
++$suffix = "dc=example,dc=com";
+ 
+ 
+ # Where are stored Users
+ # Ex: $usersdn = "ou=Users,$suffix"; for ou=Users,dc=IDEALX,dc=ORG
+-$usersou = q(_USERS_);
++$usersou = q(People);
+ $usersdn = "ou=$usersou,$suffix";
+ 
+ # Where are stored Computers
+ # Ex: $computersdn = "ou=Computers,$suffix"; for ou=Computers,dc=IDEALX,dc=ORG
+-$computersou = q(_COMPUTERS_);
++$computersou = q(Hosts);
+ $computersdn = "ou=$computersou,$suffix";
+ 
+ # Where are stored Groups
+ # Ex $groupsdn = "ou=Groups,$suffix"; for ou=Groups,dc=IDEALX,dc=ORG
+-$groupsou = q(_GROUPS_);
++$groupsou = q(Group);
+ $groupsdn = "ou=$groupsou,$suffix";
+ 
+ # Default scope Used
+@@ -130,7 +130,7 @@
+ ############################
+ # Bind DN used 
+ # Ex: $binddn = "cn=Manager,$suffix"; for cn=Manager,dc=IDEALX,dc=org
+-$binddn = "cn=Manager,$suffix";
++$binddn = "cn=root,$suffix";
+ 
+ # Bind DN passwd used
+ # Ex: $bindpasswd = 'secret'; for 'secret'
+@@ -153,11 +153,11 @@
+ # Login defs
+ # Default Login Shell
+ # Ex: $_userLoginShell = q(/bin/bash);
+-$_userLoginShell = q(_LOGINSHELL_);
++$_userLoginShell = q(/bin/bash);
+ 
+ # Home directory prefix (without username)
+ # Ex: $_userHomePrefix = q(/home/);
+-$_userHomePrefix = q(_HOMEPREFIX_);
++$_userHomePrefix = q(/home);
+ 
+ # Gecos
+ $_userGecos = q(System User);
+@@ -187,19 +187,19 @@
+ # Ex: q(\\\\My-PDC-netbios-name\\homes) for \\My-PDC-netbios-name\homes
+ # Just comment this if you want to use the smb.conf 'logon home' directive
+ # and/or desabling roaming profiles
+-$_userSmbHome = q(\\\\_PDCNAME_\\homes);
++#$_userSmbHome = q(\\\\_PDCNAME_\\homes);
+ 
+ # The UNC path to profiles locations without the username last extension
+ # (will be dynamically prepended)
+ # Ex: q(\\\\My-PDC-netbios-name\\profiles\\) for \\My-PDC-netbios-name\profiles
+ # Just comment this if you want to use the smb.conf 'logon path' directive
+ # and/or desabling roaming profiles
+-$_userProfile = q(\\\\_PDCNAME_\\profiles\\);
++#$_userProfile = q(\\\\_PDCNAME_\\profiles\\);
+ 
+ # The default Home Drive Letter mapping
+ # (will be automatically mapped at logon time if home directory exist)
+ # Ex: q(U:) for U:
+-$_userHomeDrive = q(_HOMEDRIVE_);
++#$_userHomeDrive = q(_HOMEDRIVE_);
+ 
+ # The default user netlogon script name
+ # if not used, will be automatically username.cmd
+@@ -216,7 +216,7 @@
+ # prefer mkntpwd... most of the time, it's a wise choice :-) 
+ $with_smbpasswd = 0;
+ $smbpasswd = "/usr/bin/smbpasswd";
+-$mk_ntpasswd = "/usr/local/sbin/mkntpwd";
++$mk_ntpasswd = "/usr/sbin/mkntpwd";
+ 
+ # those next externals commands are kept fot the migration scripts and
+ # for the populate script: this will be updated as soon as possible
diff --git a/packaging/Mandrake/smb-migrate b/packaging/Mandrake/smb-migrate
new file mode 100644
index 0000000000..08a5023c13
--- /dev/null
+++ b/packaging/Mandrake/smb-migrate
@@ -0,0 +1,197 @@
+#!/usr/bin/perl
+
+# migrate old samba2 smb.conf settings to new samba3 setup
+# as well as merge local configuration settings
+# Dec 3 2003 Stew Benedict <sbenedict@mandrakesoft.com>
+# revised Jan 6 2004 - dropping some parameters
+# revised Feb 11 2004 - don't try to process a config a second time
+
+# check command line arguments
+my $numargs = @ARGV;
+if ($numargs lt 1) {
+	print "useage: smb-migrate test|test-commit|commit\n";
+	exit(1);
+}
+
+# define some variables
+my $user_parms = 0;
+my $new_conf_file = "/etc/samba/smb.conf";
+my @new_conf;
+my $merged_conf_file = "/etc/samba/smb.conf";
+my $merge_comment = "# *** merged from original smb.conf: ***\n";
+my $uncomment_comment = "# *** uncommented from original smb.conf: ***\n";
+my $unique_comment = "# *** unique added from original smb.conf: ***\n";
+my @merge_log;
+my $log_file = "/var/log/samba/smb-migrate.log";
+my $to_merge = "/etc/samba/smb.conf.tomerge";
+
+if ($ARGV[0] eq "test" || $ARGV[0] eq "test-commit") {
+	$to_merge = "smb.conf"; 
+	$log_file = "smb-migrate.log";
+	$merged_conf_file = "smb.conf.merged";
+}
+
+# if the file has already been processed, don't do it again
+my $processed = `grep -c 'original smb.conf: ***' $to_merge`;
+if ($processed > 0) {
+	`cp $to_merge $new_conf_file`;
+	print "Already processed, aborting.\n";	
+	exit 0;
+}
+	
+# get the stripped, uncommented data from old smb.conf
+my @old_conf = `grep -v "^#" $to_merge | grep -v "^;" | grep -v "^\$"` or die;
+
+# use a clean config file as a starting point
+`cp /usr/share/samba/smb.conf.clean $new_conf_file` if $ARGV[0] !~ /test/;
+
+# and the whole new conf file we're going to merge with
+my @new_conf_org = `cat $new_conf_file` or die;
+
+mlog("Data to change/add in standard sections of smb.conf:\n\n");
+
+sub mlog {
+	my (@dstring) = @_;
+	if ($ARGV[0] eq "test") {
+		print "@dstring";
+	} else {
+		push @merge_log, @dstring;
+	}
+}
+
+sub merge_conf {
+	my ($header, $new_value) = @_;
+	my @parmlist = split " = ", $new_value;
+	my $match = 0;
+	my $comment = '';
+	$comment = $unique_comment if $continuation = 0;
+	$continuation = 1;
+	
+	# find the header in question
+	$index = 0;
+	foreach (@new_conf_org) {
+ 		if (/^\[$header\]|;\[$header\]|^; \[$header\]|^\[$header\$\]|;\[$header\$\]|^; \[$header\$\]/) {
+			# restore print$
+			$header = "print" . '$' if $header eq "print";
+			# if the header is commented, remove the comment
+			if (/^;\[|^#\[|^; \[/) {
+				my $entry = $_;
+				@new_conf_org[$index] =~ s/^;|^; |^#//g;
+				mlog("uncomment: $header line $index: $entry -> @new_conf_org[$index]");
+				splice(@new_conf_org, $index, 0, $uncomment_comment);
+				$index++
+			}
+			$start_loc = $index;
+#			print "[$header]: $start_loc\n";
+			last;
+		}
+		$index++
+	}
+	
+	my $elements = @new_conf_org;
+
+	# walk through this header's entries, update as needed
+	for ($i = $start_loc + 1; $i < $elements; $i++) {
+		# if we hit a new header, may be commented - bail out
+		my $is_header = @new_conf_org[$i];
+		$is_header =~ s/^ |\t|\n//;
+		if ($is_header =~ /^\[|;\[|#\[/) { 
+#			print "new header: $is_header at $i\n";
+			if ($match == 0) {
+				# it's possible the parameter is continued across multiple lines
+				$continuation = 0 if  $new_value !~ /\\$/;
+				# completely new entry, try to place it under the correct header
+#				print "new entry for [$header]: $new_value\n";
+				mlog("unique: $header line $last_index: $new_value");
+				splice(@new_conf_org, $last_index + 1, 0, $comment, $new_value);
+				$last_index++;$last_index++;
+			}
+			return;
+		}
+
+		# some syntax changes
+		if ($new_value =~ /winbind/) {
+			$old_value = $new_value; 
+			$new_value =~ s/winbind/idmap/;
+			mlog("syntax: $header: $old_value -> $new_value");
+		}
+
+		# partial match, decide whether to add or replace
+		if (@new_conf_org[$i] =~ /@parmlist[0]/) {
+			if (@new_conf_org[$i] !~ /^;|^#/) {
+				if (@new_conf_org[$i] ne $_) { 
+					mlog("update: $header line $i: @new_conf_org[$i] -> $new_value");
+					@new_conf_org[$i] = ";" . $new_conf_org[$i];
+					splice(@new_conf_org, $i + 1, 0, $merge_comment, $new_value);
+#					$match = 1;
+				}
+				$match = 1;
+			} else {
+				# is it really a definition or just a comment?
+				if (@new_conf_org[$i] =~ / = /) {
+					# commented in new config, add the old entry
+					mlog("add: $header line $i: @new_conf_org[$i] -> $new_value");
+					splice(@new_conf_org, $i + 1, 0, $merge_comment, $new_value);
+					$i++;$i++;
+					$match = 1;
+				}
+			}
+#			$match = 1 if $new_value eq @new_conf_org[$i];
+			$last_index = $i;
+			return if ($match eq 1);
+			$match = 0;
+		}	
+	}
+	return;
+}
+
+foreach (@old_conf) {
+	# check for section headers
+	if (/^\[/) {
+		# standard headers?
+		if (!/^\[global\]|^\[homes\]|^\[netlogon\]|^\[Profiles\]|^\[printers\]|^\[print\$\]|^\[pdf-generator\]/) {
+			# non-standard - add to new config
+			$user_parms = 1;
+			push (@new_conf, $_);
+		} else {
+			$user_parms = 0;
+			chop;
+			$header = $_;
+			s/\[|\]|\$//g;
+			$bare_header = $_;
+		}
+	} else {
+		# non-standard - add to new config
+		if ($user_parms == 1) {
+			push (@new_conf, $_);
+		} else {
+			# now we're working with standard settings
+			# update new config with values if they differ or are commented out
+			# translate any old nomenclature to the new style
+			# may still be some commented lines buried
+			# throw those out and try to merge into new config
+			if (!/^[ ]+#|^[ ]+;|^#|^;/) {
+#				print "$header: $_\n";
+				merge_conf($bare_header, $_);
+			}
+		}
+	}
+}
+
+# write the user config data to new smb.conf
+
+mlog("\nNew data for smb.conf:\n\n");
+mlog("@new_conf");
+
+if ($ARGV[0] eq "commit" || $ARGV[0] eq "test-commit") {
+	local *NEWCONF;
+	open(NEWCONF, "> $merged_conf_file");
+	print NEWCONF @new_conf_org;
+	print NEWCONF @new_conf;
+	close NEWCONF;
+	local *LOGFILE;
+	open(LOGFILE, "> $log_file");
+	print LOGFILE @merge_log;
+	close LOGFILE
+}
+
-- 
cgit