Author: rhafer Date: Thu May 5 15:59:01 2011 New Revision: 63910 URL: http://svn.opensuse.org/viewcvs/yast?rev=63910&view=rev Log: silence perl error message when creating db without rootpw (merged r63909 from SuSE-Code-11-SP2-Branch) Modified: trunk/ldap-server/ (props changed) trunk/ldap-server/src/LdapServer.pm Modified: trunk/ldap-server/src/LdapServer.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/LdapServer.pm?rev=63910&r1=63909&r2=63910&view=diff ============================================================================== --- trunk/ldap-server/src/LdapServer.pm (original) +++ trunk/ldap-server/src/LdapServer.pm Thu May 5 15:59:01 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