From 47e52fab60db8fef9a9ade1e8c5caab90b5fe4d9 Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Wed, 2 Oct 2002 15:01:01 +0000 Subject: obsolet --- samba_wizard/scripts/smbconfig.pl | 232 -------------------------------------- 1 file changed, 232 deletions(-) delete mode 100755 samba_wizard/scripts/smbconfig.pl (limited to 'samba_wizard') diff --git a/samba_wizard/scripts/smbconfig.pl b/samba_wizard/scripts/smbconfig.pl deleted file mode 100755 index bee6d7a8..00000000 --- a/samba_wizard/scripts/smbconfig.pl +++ /dev/null @@ -1,232 +0,0 @@ -#!/usr/bin/perl -w -# -# smbconfig by Guillaume Cottenceau -# -# 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=", "setup workgroup name", \&set_workgroup ], - [ "--set-banner=", "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 = 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 -- cgit v1.2.1