1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
|
#!/usr/bin/perl -w
#
# smbconfig by Guillaume Cottenceau <gc@mandrakesoft.com>
#
# Copyright (c) 2000 by Mandrakesoft
#
# Permission to use, copy, modify, and distribute this software and its
# documentation under the terms of the GNU General Public License is hereby
# granted. No representations are made about the suitability of this software
# for any purpose. It is provided "as is" without express or implied warranty.
# See the GNU General Public License for more details.
$program_name = "smbconfig";
$version = "0.1.3";
$debug_printings = 0;
sub debug_print
{
$debug_printings && print "[DEBUG] ".$_[0];
}
sub debug_print2
{
$debug_printings && print $_[0];
}
sub fail
{
die "Exiting on failure.\n";
}
sub fail_with_message
{
print $_[0];
fail();
}
@options = ( [ "--debug", "\t\tadditional debug printings", \$debug_printings ] );
@modes = ( [ "--help", "\t\tthis help screen", \&show_options ],
[ "--set-security-share", "setup security = share, very useful because we would need otherwise smbpasswd", \&set_security_share ],
[ "--set-hosts-allow=<..>", "setup which hosts are allowed to access; for example \"192.168.1. 127.\"", \&set_hosts_allow ],
[ "--set-workgroup=<name>", "setup workgroup name", \&set_workgroup ],
[ "--set-banner=<name>", "setup the \"server string\" banner of this smb server", \&set_banner ],
[ "--remove-homes", "\tremove the default [homes] share (which needs the security=user)", \&remove_homes ],
[ "--enable-public", "\tenable read-write share \"public\" at /home/local/samba-public", \&enable_corpo_public ],
[ "--enable-printer-access", "setup access to printers of this machine", \&set_printer_access ] );
sub read_conf
{
open(FH, "+< /etc/samba/smb.conf") or fail_with_message("Could not open /etc/samba/smb.conf\n");
@conf = <FH> or fail_with_message("Could not read /etc/samba/smb.conf\n");
debug_print("/etc/samba/smb.conf read, #lines=".$#conf."\n");
}
sub write_conf
{
debug_print("Will write /etc/samba/smb.conf, #lines=".$#conf."\n");
seek(FH, 0, 0) or fail_with_message("Could not seek in /etc/samba/smb.conf\n");
print FH @conf or fail_with_message("Could not write /etc/samba/smb.conf\n");
truncate(FH, tell(FH)) or fail_with_message("Could not truncate /etc/samba/smb.conf\n");
close(FH) or fail_with_message("Could not close /etc/samba/smb.conf\n");
}
# set_parameter: section param value
sub set_parameter
{
my $section = $_[0]; my $param = $_[1]; my $value = $_[2];
debug_print("Attempt to find section \"$section\", parameter \"$param\", and setup to \"$value\"\n");
my $i = 0;
($i++ && (lc($_) =~ /^\s*\[$section\]/) && last) foreach (@conf);
while (1)
{
($i < $#conf) or ($conf[$i] = "$conf[$i]\n\n\t$param = $value") and last;
($conf[$i] =~ /^\s*\[\S+\]/) && ($conf[$i] = "\t$param = $value\n\n$conf[$i]") && last;
($conf[$i] =~ /^\s*$param\s*=/) && ($conf[$i] = "\t$param = $value\n") && last;
$i++;
}
}
sub enable_corpo_public
{
system("mkdir -p /home/local/samba-public") && fail_with_message("Could not create public dir. Probably run as non-root..\n");
system("chown nobody /home/local/samba-public") && fail_with_message("Could not chown public dir to nobody. Requests admin help.\n");
my $i = 0;
($i++ && (lc($_) =~ /^\s*\[public\]/) && fail_with_message("An active [public] section has been found in /etc/samba/smb.conf at line $i\n")) foreach (@conf);
push(@conf, ( "$banner"."[public]\n\tcomment = Public space with read-write access\n\tpath = /home/local/samba-public\n\tguest ok = yes\n\twriteable = yes\n" ));
$did_something = 1;
}
sub set_workgroup
{
set_parameter("global", "workgroup", $_[0]);
$did_something = 1;
}
sub set_banner
{
set_parameter("global", "server string", $_[0]);
$did_something = 1;
}
sub set_security_share
{
set_parameter("global", "security", "share");
$did_something = 1;
}
sub set_hosts_allow
{
set_parameter("global", "hosts allow", $_[0]);
$did_something = 1;
}
sub set_printer_access
{
my $i = 0; my $found = 0;
# look for default section "printers"
($i++ && (lc($_) =~ /^\s*\[printers\]/) && ($found = 1) && last) foreach (@conf);
($found) && debug_print("Printer section found at line $i\n");
if ($found == 1)
{
$conf[$i-1] = ";".$conf[$i-1];
while ($i <= $#conf)
{
(($conf[$i] =~ /^\s*\[\S+\]/) && last) || ($conf[$i] = ";".$conf[$i]);
$i++;
}
debug_print("End of printer section at line $i\n");
}
push(@conf, ( "$banner"."[printers]\n\tcomment = All Printers\n\tpath = /var/spool/samba\n\tbrowseable = no\n\tguest ok = yes\n\twritable = no\n\tprintable = yes\n" ));
$did_something = 1;
}
sub remove_homes
{
my $i = 0; my $found = 0;
# look for default section "printers"
($i++ && (lc($_) =~ /^\s*\[homes\]/) && ($found = 1) && last) foreach (@conf);
($found) && debug_print("[homes] section found at line $i\n");
if ($found == 1)
{
$conf[$i-1] = ";".$conf[$i-1];
while ($i <= $#conf)
{
(($conf[$i] =~ /^\s*\[\S+\]/) && last) || ($conf[$i] = ";".$conf[$i]);
$i++;
}
debug_print("End of [homes] section at line $i\n");
}
$did_something = 1;
}
sub show_options
{
print "$program_name v$version helps auto-config of Samba.\n\n";
print "mode:\n";
print "\t".$_->[0]."\t\t".$_->[1]."\n" foreach (@modes);
print "options:\n";
print "\t".$_->[0]."\t\t".$_->[1]."\n" foreach (@options);
print "\n";
$did_something = 1;
}
sub arg_without_value
{
$_[0] =~ /([^=]*)/;
return $1;
}
sub arg_value
{
$_[0] =~ /([^=]*)=(.*)/;
return $2;
}
# Disable file buffering [to display strings on the tty even when no trailing \n is added]
$| = 1;
$date = `date`; chop $date;
$host = `hostname`; chop $host;
$banner = "\n### Autogenerated by $program_name at $date on host $host\n";
$did_something = 0;
foreach $arg (@ARGV)
{
(($arg eq $_->[0]) && (${$_->[2]} = 1)) foreach (@options)
}
read_conf();
foreach $arg (@ARGV)
{
((arg_without_value($arg) eq arg_without_value($_->[0])) && &{$_->[2]}(arg_value($arg))) foreach (@modes)
}
($did_something && write_conf()) || show_options();
# Changelog
#
# 0.1.3
# remove smb.conf end of file bug
#
# 0.1.2
# added parameter support: hosts allow
#
# 0.1.1
# added parameter support: server string
# support multiple parameter sets at same time
# added parameter support: security = share
# added remove homes
#
# 0.1.0
# first version with configure for printers, public, workgroup
|
