--- /dev/null
+--- 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
--- /dev/null
+#!/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
+}
+
git.samba.org / nivanova / samba-autobuild / .git / commitdiff