#!/bin/ch 

#include <cgi.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <lber.h>
#include <ldap.h>

int main() 
{
	class CRequest Request;
	class CResponse Response;
	LDAP *ld;
	chchar *x;
	chchar *y;
	x = Request.getForm("x");
	y = Request.getForm("y");
	int  result;
	int  auth_method = LDAP_AUTH_SIMPLE;
	int desired_version = LDAP_VERSION3;
	char *ldap_host = "localhost";
	char *root_dn = "cn=Manager, dc=example, dc=com";
	char *root_pw = "secret";

	BerElement* ber;
	LDAPMessage* msg;
	LDAPMessage* entry;

	char* base = x;
	char* filter=y;
	char* errstring;
	char* dn = NULL;
	char* attr;
	char** vals;
	int i;
	
	Response.begin();
	Response.title("OpenLDAP");
	if ((ld = ldap_init(ldap_host, LDAP_PORT)) == NULL ) 
	{
		perror( "ldap_init failed" );
		exit( EXIT_FAILURE );
	}

	if (ldap_set_option(ld, LDAP_OPT_PROTOCOL_VERSION, &desired_version) != LDAP_OPT_SUCCESS)
	{
		ldap_perror(ld, "ldap_set_option");
		exit(EXIT_FAILURE);
	}

	if (ldap_bind_s(ld, root_dn, root_pw, auth_method) != LDAP_SUCCESS ) 
	{
		ldap_perror( ld, "ldap_bind" );
		exit( EXIT_FAILURE );
	}

	if (ldap_search_s(ld, base, LDAP_SCOPE_SUBTREE, filter, NULL, 0, &msg) != LDAP_SUCCESS) 
	{
		ldap_perror( ld, "ldap_search_s" );
		exit(EXIT_FAILURE);
	}
   
	printf("Search results");
	printf("<BR>");
	
	for(entry = ldap_first_entry(ld, msg); entry != NULL; entry = ldap_next_entry(ld, entry)) 
	{
		if((dn = ldap_get_dn(ld, entry)) != NULL) 
		{		
			printf("<BR>");
			printf("Returned dn: %s\n", dn);
			printf("<BR>");
			ldap_memfree(dn);
		}

		for( attr = ldap_first_attribute(ld, entry, &ber);attr != NULL;attr = ldap_next_attribute(ld, entry, ber)) 
		{
			if ((vals = ldap_get_values(ld, entry, attr)) != NULL)  
			{
				for(i = 0; vals[i] != NULL; i++) 
				{
					printf("%s: %s\n", attr, vals[i]);
					printf("<BR>");
				}
			ldap_value_free(vals);
			}
			ldap_memfree(attr);
		}

		if (ber != NULL) 
		{
			ber_free(ber,0);
		}
		printf("\n");
	}
	Response.end();

	ldap_msgfree(msg);
	result = ldap_unbind_s(ld);

	if (result != 0) 
	{
		fprintf(stderr, "ldap_unbind_s: %s\n", ldap_err2string(result));
		exit( EXIT_FAILURE );
	}

	return EXIT_SUCCESS;
}