Author: rhafer Date: Thu May 5 15:55:07 2011 New Revision: 63909 URL: http://svn.opensuse.org/viewcvs/yast?rev=63909&view=rev Log: silence perl error message when creating db without rootpw Modified: branches/SuSE-Code-11-SP2-Branch/ldap-server/src/LdapServer.pm Modified: branches/SuSE-Code-11-SP2-Branch/ldap-server/src/LdapServer.pm URL: http://svn.opensuse.org/viewcvs/yast/branches/SuSE-Code-11-SP2-Branch/ldap-server/src/LdapServer.pm?rev=63909&r1=63908&r2=63909&view=diff ============================================================================== --- branches/SuSE-Code-11-SP2-Branch/ldap-server/src/LdapServer.pm (original) +++ branches/SuSE-Code-11-SP2-Branch/ldap-server/src/LdapServer.pm Thu May 5 15:55:07 2011 @@ -1690,8 +1690,10 @@ $self->WriteServiceEnabled( $dbDefaults{'serviceEnabled'} ); $self->WriteSLPEnabled( $dbDefaults{'slpRegister'} ); - - my $pwHash = $self->HashPassword($dbDefaults{'pwenctype'}, $dbDefaults{'rootpw_clear'} ); + my $pwHash = ""; + if ( $dbDefaults{'pwenctype'} && $dbDefaults{'rootpw_clear'} ) { + $pwHash = $self->HashPassword($dbDefaults{'pwenctype'}, $dbDefaults{'rootpw_clear'} ); + } my $database = { 'type' => $dbDefaults{'type'}, 'suffix' => $dbDefaults{'suffix'}, 'rootdn' => $dbDefaults{'rootdn'}, -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org