1 files changed, 32 insertions, 0 deletions
diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index 6215e3150..d8c3024fd 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -146,4 +146,36 @@ sub read_credentials {
     put_in_hash($server, read_credentials_raw(to_credentials($server->{name}, $username)));
 }
 
+
+sub write_smb_conf {
+    my ($domain) = @_;
+
+    #- was going to just have a canned config in samba-winbind
+    #- and replace the domain, but sylvestre/buchan didn't bless it yet
+
+    my $f = "$::prefix/etc/samba/smb.conf";
+    rename $f, "$f.orig";
+    output($f, "
+[global]
+	workgroup = $domain  
+	server string = Samba Server %v
+	security = domain  
+	encrypt passwords = Yes
+	password server = *
+	log file = /var/log/samba/log.%m
+	max log size = 50
+	socket options = TCP_NODELAY SO_RCVBUF=8192 SO_SNDBUF=8192
+	character set = ISO8859-15
+	os level = 18
+	local master = No
+	dns proxy = No
+	winbind uid = 10000-20000
+	winbind gid = 10000-20000
+	winbind separator = +
+	template homedir = /home/%D/%U
+	template shell = /bin/bash
+	winbind use default domain = yes
+");
+}
+
 1;