r4855: add some smb.conf script for add/delete/change share and addprinter hooks

(This used to be commit 073592b7ad539138763c457fe58c1d82b2daa9c1)

2 files changed, 195 insertions, 0 deletions

diff --git a/examples/scripts/perl/modify_samba_config.pl b/examples/scripts/perl/modify_samba_config.pl
new file mode 100755
index 0000000000..ad958625d6
--- /dev/null
+++ b/examples/scripts/perl/modify_samba_config.pl
@@ -0,0 +1,154 @@
+#!/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";
+
+}
diff --git a/examples/scripts/perl/smbaddprinter.pl b/examples/scripts/perl/smbaddprinter.pl
new file mode 100755
index 0000000000..557183140e
--- /dev/null
+++ b/examples/scripts/perl/smbaddprinter.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+##   Add printer script for samba, APW, and cups
+##   Copyright (C) Jeff Hardy <hardyjm@potsdam.edu> 2004
+##
+##   This program is free software; you can redistribute it
+##   and/or modify it under the terms of the GNU General
+##   Public License as published by the Free Software Foundation;
+##   ither version 2 of the License, or (at your option) any
+##   later version.
+##
+##   This program is distributed in the hope that it will be useful,
+##   but WITHOUT ANY WARRANTY; without even the implied warranty of
+##   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+##   GNU General Public License for more details.
+##
+##   You should have received a copy of the GNU General Public
+##   License along with this program; if not, write to the Free
+##   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
+##   USA.
+
+@argv = @ARGV;
+
+# take in args
+my $lpname=shift(@argv);	# printer name
+my $shname=shift(@argv);	# share name	-> used for CUPS queue name
+my $portname=shift(@argv);	# port name
+my $drivername=shift(@argv);	# driver name	-> used for CUPS description
+my $location=shift(@argv);	# location	-> used for CUPS device URI
+my $win9x=shift(@argv);		# win9x location
+
+#check for location syntax
+#if no protocol specified...
+if ($location !~ m#:/#){
+	#assume an lpd printer
+	$location = "lpd://".$location;
+}
+#else, simply pass the URI on to the lpadmin command
+
+#run the cups lpadmin command to add the printer
+system("/usr/sbin/lpadmin -p $shname -D \"$drivername\" -E -v $location");
+