1 files changed, 0 insertions, 154 deletions
diff --git a/examples/misc/modify_samba_config.pl b/examples/misc/modify_samba_config.pl
deleted file mode 100755
index ad958625d6..0000000000
--- a/examples/misc/modify_samba_config.pl
+++ /dev/null
@@ -1,154 +0,0 @@
-#!/usr/bin/perl
-
-##
-## Simple example of how to implement a '[add|delete] share command' for
-## use with the Windows NT Server Manager. See smb.conf(5) for details
-## on the '[add|delete] share command'
-##
-## Author : Gerald (Jerry) Carter <jerry@samba.org>
-##
-
-use POSIX qw(tmpnam);
-
-##
-## local variables
-##
-my $delete_mode = undef;
-my $add_mode = undef;
-my $tmp_file_name = undef;
-
-
-## check for correct parameters
-if ($#ARGV == 1) {
-	$delete_mode = 1;
-}
-elsif ($#ARGV == 3) {
-	$add_mode = 1;
-}
-else {
-	print "Usage: $0 configfile share [path] [comment]\n"; 
-	exit -1;
-}
-
-## first param is always the config file
-open (CONFIGFILE, "$ARGV[0]") || die "Unable to open $ARGV[0] for reading!\n";
-
-## FIXME!!  Right now we throw away all comments in the file.
-while (<CONFIGFILE>) {
-
-	chomp($_);
-	
-	## eat leading whitespace
-	$_ =~ s/^\s*//;
-	
-	## eat trailing whitespace
-	$_ =~ s/\s*$//;
-	
-
-	## throw away comments
-	next if (($_ =~ /^#/) || ($_ =~ /^;/));
-
-	## set the current section name for storing the hash
-	if ($_ =~ /^\[.*\]$/) {
-	
-		$_ = substr($_, 1, length($_)-2);
-		
-		if ( length($_) ) {
-			$section = $_;
-		}
-		else {
-			print "Bad Section Name - no closing ]\n";
-			exit -1;
-		}
-
-		next;
-	}	
-	
-	## check for a param = value
-	if ($_ =~ /=/) {
-		($param, $value) = split (/=/, $_,2);
-		$param =~ s/./\l$&/g;
-		$param =~ s/\s+//g;
-		$value =~ s/^\s+//;
-		
-		$config{$section}{$param} = $value;
-		
-		next;
-	}
-
-	## should have a hash of hashes indexed by section name
-}
-close (CONFIGFILE);
-
-##
-## We have the smb.conf in our hash of hashes now.
-## Add or delete 
-##
-if ($add_mode) {
-	$config{$ARGV[1]}{'path'} = $ARGV[2];
-	$config{$ARGV[1]}{'comment'} = $ARGV[3];
-}
-elsif ($delete_mode) {
-	delete $config{$ARGV[1]};
-}
-
-##
-## Print the resulting configuration
-##
-#do {
-#	$tmp_file_name = tmpnam();
-#	print "Using temporary file - $tmp_file_name\n";
-#} while (!sysopen(TMP, $tmp_file_name, O_RDWR|O_CREAT|O_EXCL));
-$tmp_file_name = tmpnam();
-open (TMP, ">$tmp_file_name") || die "Unable to open temporary file for writing!\n";
-
-PrintConfigFile(TMP);
-
-## now overwrite the original config file
-close (TMP);
-system ("cp -pf $ARGV[0] $ARGV[0].bak");
-system ("cp -pf $tmp_file_name $ARGV[0]");
-unlink $tmp_file_name; 
-
-
-exit 0;
-
-
-
-
-
-#######################################################################################
-## PrintConfigFile()
-##
-sub PrintConfigFile {
-	my ($output) = @_;
-
-	## print the file back out, beginning with the global section
-	print $output "#\n# Generated by $0\n#\n";
-
-	PrintSection ($output, 'global', $config{'global'});
-
-	foreach $section (keys %config) {
-
-		if ("$section" ne "global") {
-			print $output "## Section - [$section]\n";
-			PrintSection ($output, $section, $config{$section});
-		}
-	}
-
-	print $output "#\n# end of generated smb.conf\n#\n";
-}
-
-#######################################################################################
-## PrintSection()
-##
-sub PrintSection {
-	my ($outfile, $name, $section) = @_;
-
-	print $outfile "[$name]\n";
-	foreach $param (keys %$section) {
-		print $outfile "\t$param".' 'x(25-length($param)). " = $$section{$param}\n";
-	}
-	print $outfile "\n";
-
-}