DSML-LDAP - Make LDAP operation using DSML-RPC module
use HTTP::Daemon; use HTTP::Status; use DSML-LDAP;
my $httpd = HTTP::Daemon->new || die; print "Please contact me at: <URL:", $httpd->url, ">\n"; while (my $c = $httpd->accept) { while (my $r = $c->get_request) { if ($r->method eq 'POST') { my $req = $r->content; $xml = DSML-LDAP::handle($req); .... # Build HTTP response .... $httpd->send_response($response); } else { $httpd->send_error(RC_FORBIDDEN); } } } =head1 DESCRIPTION This module use DSML-RPC to parse XML and Net::LDAP to perform operation on a LDAP Server. In the example below I use HTTP protocol to transport DSML request and response. =head1 METHODS
Receive DSML request, parse it using DSML-RPC, perform operation and return DSML result.
=item doBind
Perform bind operation on LDAP server specified in the request.
Perform search operation on a LDAP server using information contained in DSML::Request object
Perform modify operation on a LDAP server using information contained in DSML::Request object
Perform add operation on a LDAP server using information contained in DSML::Request object
=item doDelete
Perform delete operation on a LDAP server using information contained in DSML::Request object
=item doModifyDN
Perform modifyDN operation on a LDAP server using information contained in DSML::Request object
=item doCompare
Perform compare operation on a LDAP server using information contained in DSML::Request object
=head1 SEE ALSO
the Net::LDAP manpage, DSML-RPC
Sevastian Foglia <sf@yacme.com> YACME s.r.l. <http://www.yacme.com>
Copyright (c) 2004 YACME s.r.l. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.