From 01b7299cb135f99ab84fbec612f65d04832ab2d7 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 12 Jun 2008 18:22:31 +0000 Subject: more space fixes --- perl-install/authentication.pm | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) (limited to 'perl-install/authentication.pm') diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index bc979ce5e..eb534c4da 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -163,9 +163,9 @@ my %level = ( { val => N("Fecth base Dn "), type => button , clicked_may_quit => sub { $authentication->{LDAPDOMAIN} = fetch_dn($authentication->{LDAP_server}); 0 }, disabled => sub { $authentication->{nsskrb} eq "1" } }, {}, { text => N("Use encrypt connection with TLS "), val => \$authentication->{cafile}, type => 'bool',, disabled => sub { $authentication->{nsskrb} eq "1" } }, - { val => N("Download CA Certificate "), type => button , disabled => sub { !$authentication->{cafile} }, clicked_may_quit => sub { $authentication->{file} = add_cafile(); 0} }, + { val => N("Download CA Certificate "), type => button , disabled => sub { !$authentication->{cafile} }, clicked_may_quit => sub { $authentication->{file} = add_cafile(); 0 } }, { text => N("Use anonymous BIND "), val => \$authentication->{anonymous}, type => 'bool', disabled => sub { $authentication->{nsskrb} eq "1" } }, - { label => N("Bind DN "), val => \$authentication->{LDAP_binddn}, disabled => sub { !$authentication->{anonymous}} }, + { label => N("Bind DN "), val => \$authentication->{LDAP_binddn}, disabled => sub { !$authentication->{anonymous} } }, { label => N("Bind Password "), val => \$authentication->{LDAP_bindpwd}, disabled => sub { !$authentication->{anonymous} } }, {}, ]) or return; @@ -178,8 +178,8 @@ my %level = ( } elsif ($kind eq 'NIS') { $authentication->{NIS_server} ||= 'broadcast'; $net->{network}{NISDOMAIN} ||= $net->{resolv}{DOMAINNAME}; - $in->ask_from('',N(" "), - [ { label => N("Welcome to the Authentication Wizard"), title => 1}, + $in->ask_from('', N(" "), + [ { label => N("Welcome to the Authentication Wizard"), title => 1 }, {}, { label => N("You have selected NIS authentication. Please review the configuration options below "), }, {}, @@ -202,8 +202,8 @@ my %level = ( $in->do_pkgs->ensure_are_installed([ 'samba-client' ], 1) or return; my @domains=list_domains(); - $in->ask_from('',N(" "), - [ { label => N("Welcome to the Authentication Wizard"), title => 1}, + $in->ask_from('', N(" "), + [ { label => N("Welcome to the Authentication Wizard"), title => 1 }, {}, { label => N("You have selected Windows Domain authentication. Please review the configuration options below "), }, {}, @@ -211,7 +211,7 @@ my %level = ( {}, { label => N("Domain Model "), val => \$authentication->{model}, list => \@sec_domain , not_edit => 1 }, {}, - { label => N("Active Directory Realm "), val => \$authentication->{AD_domain} , disabled => sub { $authentication->{model} eq "Windows NT4 Domain" }}, + { label => N("Active Directory Realm "), val => \$authentication->{AD_domain} , disabled => sub { $authentication->{model} eq "Windows NT4 Domain" } }, {}, {}, {}, @@ -405,7 +405,7 @@ EOF $when_network_is_up->(sub { run_program::raw({ root => $::prefix, sensitive_arguments => 1 }, #'net', 'join', $domain, '-U', $authentication->{winuser} . '%' . $authentication->{winpass}); - 'echo','"','net', 'join', $domain, '-U', $authentication->{winuser} . '%' . $authentication->{winpass},'"'); + 'echo', '"', 'net', 'join', $domain, '-U', $authentication->{winuser} . '%' . $authentication->{winpass}, '"'); }); output($conf_file, < ( default_realm => $uc_domain, dns_lookup_realm => $authentication->{KRB_dns_lookup} ? 'true' : 'false', - dns_lookup_kdc => $authentication->{KRB_host_lookup}? 'true' : 'false', + dns_lookup_kdc => $authentication->{KRB_host_lookup} ? 'true' : 'false', default_tgs_enctypes => undef, default_tkt_enctypes => undef, permitted_enctypes => undef, @@ -871,13 +871,13 @@ sub add_cafile { sub auth { my $in = interactive->vnew; - $file = $in->ask_from('',N(" "),[ - { label => N("Domain Windows for authentication : " , $authentication->{WINDOMAIN} )}, + $file = $in->ask_from('', N(" "), [ + { label => N("Domain Windows for authentication : " , $authentication->{WINDOMAIN}) }, {}, { label => N("Domain Admin User Name"), val => \$authentication->{winuser} }, { label => N("Domain Admin Password"), val => \$authentication->{winpass}, hidden => 1 }, ]); - return ($authentication->{winuser},$authentication->{winpass}); + return ($authentication->{winuser}, $authentication->{winpass}); } require fs::remote::smb; @@ -916,7 +916,7 @@ sub configure_nss_ldap { base => $authentication->{LDAPDOMAIN}, ); - if ( $authentication->{nssgrp} eq '1' ) { + if ($authentication->{nssgrp} eq '1') { update_ldap_conf( nss_base_shadow => $authentication->{nss_shadow} . "?sub", @@ -931,14 +931,14 @@ sub configure_nss_ldap { nss_base_group => $authentication->{LDAPDOMAIN} . "?sub", ); }; - if ( $authentication->{anonymous} eq '1') { + if ($authentication->{anonymous} eq '1') { update_ldap_conf( binddn => $authentication->{LDAP_binddn}, bindpw => $authentication->{LDAP_bindpwd}, ); }; - if ( $authentication->{cafile} eq '1' ) { + if ($authentication->{cafile} eq '1') { update_ldap_conf( ssl => "on", tls_checkpeer => "yes", -- cgit v1.2.1