diff options
author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-05-03 19:47:20 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-05-03 19:47:20 +0200 |
commit | a6bd894f302df904588df739f79f1b17b329a0e4 (patch) | |
tree | 482330ebaed111143282737863fe1db8395465a0 /lib/Fripost/Schema.pm | |
parent | b0460b1b8fb61569d20cbd4ac75ae6976bd34a92 (diff) |
Adding debug messages.
Diffstat (limited to 'lib/Fripost/Schema.pm')
-rwxr-xr-x | lib/Fripost/Schema.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Fripost/Schema.pm b/lib/Fripost/Schema.pm index 6a92be7..f8649b7 100755 --- a/lib/Fripost/Schema.pm +++ b/lib/Fripost/Schema.pm @@ -35,10 +35,10 @@ sub new { my $self = {_options => $h}; bless $self, $class; - + my $ldap = Net::LDAP->new ( $h->{server_host} ) or die "Error: Cannot initialize connection to LDAP server at `" - .$h->{server_host}. "'.\n"; + .$h->{server_host}. "'.\n"; my $mesg; if ( (defined $h->{bind_dn}) and $h->{bind_dn} ne '' ) { @@ -61,7 +61,7 @@ sub new { $mesg = $ldap->bind(); } die "Error: " .$mesg->error. "\n" if $mesg->code; - + $self->{_ldap} = $ldap; return $self; } @@ -146,7 +146,7 @@ sub _dsay { =head1 NAME -Fripost::Schema - +Fripost::Schema - =head1 AUTHOR |