From 61ab0df24705d679a32d2f738c59d2e85d7ab437 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 27 Jul 2004 10:40:40 +0000 Subject: perl_checker cleanups --- ldap_wizard/ldap.pm | 53 ++++++++++++++++++++++++++--------------------------- 1 file changed, 26 insertions(+), 27 deletions(-) (limited to 'ldap_wizard/ldap.pm') diff --git a/ldap_wizard/ldap.pm b/ldap_wizard/ldap.pm index ccf1a88a..624124db 100644 --- a/ldap_wizard/ldap.pm +++ b/ldap_wizard/ldap.pm @@ -54,8 +54,8 @@ name => N("Add POSIX account"), -my $ldap_suffix=join(',dc=',split(/\./,`hostname -f`)); -$ldap_suffix=~ s/[^,]*,//; +my $ldap_suffix=join(',dc=', split(/\./, `hostname -f`)); +$ldap_suffix =~ s/[^,]*,//; my $conf_file = "/etc/sysconfig/ldapconf"; my $LDAPCONF = "/etc/openldap/slapd.conf"; @@ -67,11 +67,11 @@ $o->{var}{srv} = $hostname; if (-f $conf_file) { my %conf = getVarsFromSh($conf_file); - $o->{var}{suffix}= "$conf{suffix}"; - $o->{var}{rootdn}= "$conf{rootdn}"; - $o->{var}{rootpass}= "$conf{rootpass}"; - $o->{var}{srv}= "$conf{srv}"; - $o->{var}{defou}= "$conf{users}"; + $o->{var}{suffix} = $conf{suffix}; + $o->{var}{rootdn} = $conf{rootdn}; + $o->{var}{rootpass} = $conf{rootpass}; + $o->{var}{srv} = $conf{srv}; + $o->{var}{defou} = $conf{users}; } else { @@ -87,8 +87,6 @@ my %level = ( 2 => N("Add - Add user in LDAP server"), ); -my $cn; - $o->{pages} = { welcome => { name => N("LDAP configuration wizard") . "\n\n" . N("Setup a LDAP server."), @@ -103,7 +101,7 @@ $o->{pages} = { }, data => [ { - label => N("Your choice:"). "\n\n" , val => \$o->{var}{wiz_level}, type => 'list', list => [ keys %level ], format => sub { $level{$_[0]} } }, + label => N("Your choice:") . "\n\n", val => \$o->{var}{wiz_level}, type => 'list', list => [ keys %level ], format => sub { $level{$_[0]} } }, ], next => 'set_srv', }, @@ -123,12 +121,12 @@ $o->{pages} = { { label => N("Password (again):"), val => \$o->{var}{uidpass2}, hidden => 1 }, ], complete => sub { - if (not ($o->{var}{uidpass})) + if (!$o->{var}{uidpass}) { $::in->ask_warn(N("Error"), N("You must enter a password for LDAP.")); return 1; } - if (not ($o->{var}{uidpass} eq $o->{var}{uidpass2})) + if (!($o->{var}{uidpass} eq $o->{var}{uidpass2})) { $::in->ask_warn(N("Error"), N("The passwords do not match")); return 1; @@ -147,17 +145,17 @@ $o->{pages} = { { label => N("LDAP Password (again):"), hidden => 1, val => \$o->{var}{rootpass2} }, ], complete => sub { - if (not ($o->{var}{suffix})) + if (!$o->{var}{suffix}) { $::in->ask_warn(N("Error"), N("You must enter a suffix for LDAP.")); return 1; } - if (not ($o->{var}{rootpass})) + if (!$o->{var}{rootpass}) { $::in->ask_warn(N("Error"), N("You must enter a password for LDAP.")); return 1; } - if (not ($o->{var}{rootpass} eq $o->{var}{rootpass2})) + if (!($o->{var}{rootpass} eq $o->{var}{rootpass2})) { $::in->ask_warn(N("Error"), N("The passwords do not match")); return 1; @@ -202,7 +200,7 @@ $o->{pages} = { }; sub do_it_setldap { - if (!-f $LDAPCONF) { die "no $LDAPCONF found"}; + if (!-f $LDAPCONF) { die "no $LDAPCONF found" }; cp_af($LDAPCONF, $LDAPCONF . '.save'); if (!-f "$LDAPCONF.example") { cp_af($LDAPCONF, $LDAPCONF . '.example') }; cp_af($LDAPCONF . '.example', $LDAPCONF); @@ -210,10 +208,10 @@ sub do_it_setldap { # set suffix if (any { /^suffix/ } cat_($LDAPCONF)) { substInFile { - s/suffix.*/suffix\t\"$o->{var}{suffix}\"/; + s/suffix.*/suffix\t"$o->{var}{suffix}"/; } $LDAPCONF; } else { - append_to_file($LDAPCONF, "suffix\t\"$o->{var}{suffix}\""); + append_to_file($LDAPCONF, qq(suffix\t"$o->{var}{suffix}")); } # s/example/$dcall @@ -224,10 +222,10 @@ sub do_it_setldap { # set rootdn if (any { /^rootdn/ } cat_($LDAPCONF)) { substInFile { - s/rootdn.*/rootdn\t\"cn=$o->{var}{rootdn},$o->{var}{suffix}\"/; + s/rootdn.*/rootdn\t"cn=$o->{var}{rootdn},$o->{var}{suffix}"/; } $LDAPCONF; } else { - append_to_file($LDAPCONF, "rootdn\t\"$o->{var}{rootdn},$o->{var}{suffix}\""); + append_to_file($LDAPCONF, qq(rootdn\t"$o->{var}{rootdn},$o->{var}{suffix}")); } # set rootpass @@ -237,7 +235,7 @@ sub do_it_setldap { #s/rootpw.*/rootpw $cryptpass/; s/rootpw.*/rootpw $o->{var}{rootpass}/; } $LDAPCONF; - }else { + } else { #append_to_file($LDAPCONF, "rootpw {CRYPT}$cryptpass"); append_to_file($LDAPCONF, "rootpw $o->{var}{rootpass}"); } @@ -262,12 +260,13 @@ EOF sub init_ldap { -my $root_cn=(split(/\=/,(split(/,/,$o->{var}{rootdn}))[0]))[1]; -my $ldap_dc=(split(/\=/,(split(/,/,$o->{var}{suffix}))[0]))[1]; +my $root_cn = (split('=', (split(/,/, $o->{var}{rootdn}))[0]))[1]; +my $ldap_dc = (split('=', (split(/,/, $o->{var}{suffix}))[0]))[1]; -open(LDAP,"| ldapadd -x -D 'cn=$o->{var}{rootdn},$o->{var}{suffix}' -w $o->{var}{rootpass}"); + my $LDAP; + open($LDAP, "| ldapadd -x -D 'cn=$o->{var}{rootdn},$o->{var}{suffix}' -w $o->{var}{rootpass}"); -print LDAP << "RootLdif"; + print $LDAP <{var}{suffix} dc: $ldap_dc objectClass: dcObject @@ -299,7 +298,7 @@ objectClass: organizationalUnit RootLdif -close(LDAP) + close($LDAP) } @@ -312,7 +311,7 @@ sub do_it_user_add { } sub new { - my ($class, $conf) = @_; + my ($class) = @_; bless { o => $o, }, $class; -- cgit v1.2.1