diff options
Diffstat (limited to 'packaging/Mandrake/smb-migrate')
| -rw-r--r-- | packaging/Mandrake/smb-migrate | 197 |
1 files changed, 0 insertions, 197 deletions
diff --git a/packaging/Mandrake/smb-migrate b/packaging/Mandrake/smb-migrate deleted file mode 100644 index 08a5023c13..0000000000 --- a/packaging/Mandrake/smb-migrate +++ /dev/null @@ -1,197 +0,0 @@ -#!/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 -} - |