[LDAPsh-cvs] ldapsh ldapsh,1.30,1.31

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv16782

Modified Files:
	ldapsh 
Log Message:
Call Net::LDAP::Constant::* as subroutines (for v0.29 compatibility).


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** ldapsh	6 Nov 2003 03:46:52 -0000	1.30
--- ldapsh	6 Nov 2003 04:14:20 -0000	1.31
***************
*** 397,401 ****
  sub _isReallyLDAPError ($) {
  	my $code = shift;
! 	return 1 if $code and $code != Net::LDAP::Constant::LDAP_PARTIAL_RESULTS and $code != Net::LDAP::Constant::LDAP_REFERRAL;
  	return 0;
  }
--- 397,401 ----
  sub _isReallyLDAPError ($) {
  	my $code = shift;
! 	return 1 if $code and $code != Net::LDAP::Constant::LDAP_PARTIAL_RESULTS() and $code != Net::LDAP::Constant::LDAP_REFERRAL();
  	return 0;
  }
***************
*** 790,794 ****
  
  	if (_isReallyLDAPError($result->code)) {
! 		if ($result->code == Net::LDAP::Constant::LDAP_NO_SUCH_OBJECT) {
  			return undef;
  		} else {
--- 790,794 ----
  
  	if (_isReallyLDAPError($result->code)) {
! 		if ($result->code == Net::LDAP::Constant::LDAP_NO_SUCH_OBJECT()) {
  			return undef;
  		} else {
***************
*** 836,840 ****
  
  	if (_isReallyLDAPError($result->code)) {
! 		if ($result->code == Net::LDAP::Constant::LDAP_NO_SUCH_OBJECT) {
  			return undef;
  		}
--- 836,840 ----
  
  	if (_isReallyLDAPError($result->code)) {
! 		if ($result->code == Net::LDAP::Constant::LDAP_NO_SUCH_OBJECT()) {
  			return undef;
  		}
***************
*** 1339,1343 ****
  
  	if (_isReallyLDAPError($result->code)) {
! 		if ($result->code == Net::LDAP::Constant::LDAP_NO_SUCH_OBJECT) {
  			print STDERR "Cannot change BaseDN. No such subpath.\n";
  			return 0;
--- 1339,1343 ----
  
  	if (_isReallyLDAPError($result->code)) {
! 		if ($result->code == Net::LDAP::Constant::LDAP_NO_SUCH_OBJECT()) {
  			print STDERR "Cannot change BaseDN. No such subpath.\n";
  			return 0;
***************
*** 2155,2159 ****
  		$result = $_->update($Globals->{LDAPCONN}{VALUE});
  		if ($result->is_error) {
! 			unless ($result->code == Net::LDAP::Constant::LDAP_LOCAL_ERROR
  				and $result->error eq 'No attributes to update') {
  				printf STDERR qq{LDAP Error updating entry '%s'. Code:%s. Message:%s\n},
--- 2155,2159 ----
  		$result = $_->update($Globals->{LDAPCONN}{VALUE});
  		if ($result->is_error) {
! 			unless ($result->code == Net::LDAP::Constant::LDAP_LOCAL_ERROR()
  				and $result->error eq 'No attributes to update') {
  				printf STDERR qq{LDAP Error updating entry '%s'. Code:%s. Message:%s\n},