1649 		print "Sorry, password changes not supported by LDAP server.\n";

  1649 		print "Sorry, password changes not supported by LDAP server.\n";

  1650 		return;

  1650 		return;

  1651 	}

  1651 	}

  1652 

  1652 

  1653 	# convert given path to DN

  1653 	# convert given path to DN

  1655 

  1655 

  1656 	my $s = $self->search( { base => $dn, scope => 'base' } );

  1656 	my $s = $self->search( { base => $dn, scope => 'base' } );

  1657 	if ( $s->{'code'} ) {

  1657 	if ( $s->{'code'} ) {

  1658 		print $s->{'message'}, "\n";

  1658 		print $s->{'message'}, "\n";

  1659 		return;

  1659 		return;