[Catalyst] Catalyst::Model::LDAP ?

[Salih Gönüllü]

Hello,

I am interested in  Catalyst::Model::LDAP, to build an LDAP browser
using Catalyst  I have looked a little bit in Catalyst::Model::CDBI and
Catalyst::Model::Tangram, but I think that I still need some help.

Thanks in advance,


package Catalyst::Model::LDAP;

use strict;
use Net::LDAP;
use base qw /Catalyst::Base/;
use NEXT;

__PACKAGE__->mk_accessors(ldap_client);

sub new {
   my ( $self, $c ) = @_;
    $self = $self->NEXT::new($c);
    my %config = (
        options => {},
        %{ $self->config () },
        );
    my $ldap_client = Net::LDAP->new($config{ldap_server};
    $ldap_client->bind($config{ldap_user}, $config{ldap_bindpw};
    $self->{ldap_client} = $ldap_client;
    return $self;
}



    -salih