diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/smbnfs_gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index d16bba988..031e9ed8c 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -176,7 +176,7 @@ sub import_ctree { _("Please enter your username, password and domain name to access this host."), [ { label => _("Username"), val => \$server->{username} }, - { label => _("Password"), val => \$server->{password} }, + { label => _("Password"), val => \$server->{password}, hidden => 1 }, { label => _("Domain"), val => \$server->{domain} }, ])) { goto $find_exports; diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index e20e1cdf7..c61cc0ff9 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -501,6 +501,7 @@ 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 |