From 257bfbaa67756a959c936238f2c2f7fc3726af2d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 11 Jan 2003 17:18:00 +0000
Subject: capitalise win $domain ASAP so that directory /home/$domain is
 created capitalised (thanks to Buchan Milne)

---
 perl-install/install_any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 352de196a..ad759d52b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -478,6 +478,8 @@ sub setAuthentication {
 	network::write_conf("$p/etc/sysconfig/network", $o->{netc});
     } elsif ($winbind) {
 	my $domain = $o->{netc}{WINDOMAIN};
+	$domain =~ tr/a-z/A-Z/;
+
 	$o->pkg_install(qw(samba-winbind samba-common));
 	{   #- setup pam
 	    my $f = "$o->{prefix}/etc/pam.d/system-auth";
@@ -500,7 +502,6 @@ sub setAuthentication {
 
 sub write_smb_conf {
     my ($domain) = @_;
-    $domain =~ tr/a-z/A-Z/;
 
     #- was going to just have a canned config in samba-winbind
     #- and replace the domain, but sylvestre/buchan didn't bless it yet
-- 
cgit v1.2.1