added a wbtest program that shows how to access winbindd extended nss
[bbaumbach/samba-autobuild/.git] / examples / misc / modify_samba_config.pl
1 #!/usr/bin/perl
2
3 ##
4 ## Simple example of how to implement a '[add|delete] share command' for
5 ## use with the Windows NT Server Manager. See smb.conf(5) for details
6 ## on the '[add|delete] share command'
7 ##
8 ## Author : Gerald (Jerry) Carter <jerry@samba.org>
9 ##
10
11 use POSIX qw(tmpnam);
12
13 ##
14 ## local variables
15 ##
16 my $delete_mode = undef;
17 my $add_mode = undef;
18 my $tmp_file_name = undef;
19
20
21 ## check for correct parameters
22 if ($#ARGV == 1) {
23         $delete_mode = 1;
24 }
25 elsif ($#ARGV == 3) {
26         $add_mode = 1;
27 }
28 else {
29         print "Usage: $0 configfile share [path] [comment]\n"; 
30         exit -1;
31 }
32
33 ## first param is always the config file
34 open (CONFIGFILE, "$ARGV[0]") || die "Unable to open $ARGV[0] for reading!\n";
35
36 ## FIXME!!  Right now we throw away all comments in the file.
37 while (<CONFIGFILE>) {
38
39         chomp($_);
40         
41         ## eat leading whitespace
42         $_ =~ s/^\s*//;
43         
44         ## eat trailing whitespace
45         $_ =~ s/\s*$//;
46         
47
48         ## throw away comments
49         next if (($_ =~ /^#/) || ($_ =~ /^;/));
50
51         ## set the current section name for storing the hash
52         if ($_ =~ /^\[.*\]$/) {
53         
54                 $_ = substr($_, 1, length($_)-2);
55                 
56                 if ( length($_) ) {
57                         $section = $_;
58                 }
59                 else {
60                         print "Bad Section Name - no closing ]\n";
61                         exit -1;
62                 }
63
64                 next;
65         }       
66         
67         ## check for a param = value
68         if ($_ =~ /=/) {
69                 ($param, $value) = split (/=/, $_);
70                 $param =~ s/./\l$&/g;
71                 $param =~ s/\s+//g;
72                 $value =~ s/^\s+//;
73                 
74                 $config{$section}{$param} = $value;
75                 
76                 next;
77         }
78
79         ## should have a hash of hashes indexed by section name
80 }
81 close (CONFIGFILE);
82
83 ##
84 ## We have the smb.conf in our hash of hashes now.
85 ## Add or delete 
86 ##
87 if ($add_mode) {
88         $config{$ARGV[1]}{'path'} = $ARGV[2];
89         $config{$ARGV[1]}{'comment'} = $ARGV[3];
90 }
91 elsif ($delete_mode) {
92         delete $config{$ARGV[1]};
93 }
94
95 ##
96 ## Print the resulting configuration
97 ##
98 #do {
99 #       $tmp_file_name = tmpnam();
100 #       print "Using temporary file - $tmp_file_name\n";
101 #} while (!sysopen(TMP, $tmp_file_name, O_RDWR|O_CREAT|O_EXCL));
102 $tmp_file_name = tmpnam();
103 open (TMP, ">$tmp_file_name") || die "Unable to open temporary file for writing!\n";
104
105 PrintConfigFile(TMP);
106
107 ## now overwrite the original config file
108 close (TMP);
109 system ("cp -pf $ARGV[0] $ARGV[0].bak");
110 system ("cp -pf $tmp_file_name $ARGV[0]");
111 unlink $tmp_file_name; 
112
113
114 exit 0;
115
116
117
118
119
120 #######################################################################################
121 ## PrintConfigFile()
122 ##
123 sub PrintConfigFile {
124         my ($output) = @_;
125
126         ## print the file back out, beginning with the global section
127         print $output "#\n# Generated by $0\n#\n";
128
129         PrintSection ($output, 'global', $config{'global'});
130
131         foreach $section (keys %config) {
132
133                 if ("$section" ne "global") {
134                         print $output "## Section - [$section]\n";
135                         PrintSection ($output, $section, $config{$section});
136                 }
137         }
138
139         print $output "#\n# end of generated smb.conf\n#\n";
140 }
141
142 #######################################################################################
143 ## PrintSection()
144 ##
145 sub PrintSection {
146         my ($outfile, $name, $section) = @_;
147
148         print $outfile "[$name]\n";
149         foreach $param (keys %$section) {
150                 print $outfile "\t$param".' 'x(25-length($param)). " = $$section{$param}\n";
151         }
152         print $outfile "\n";
153
154 }