From a6bd894f302df904588df739f79f1b17b329a0e4 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 3 May 2012 19:47:20 +0200
Subject: Adding debug messages.

---
 lib/Fripost/Schema/Type/User.pm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to 'lib/Fripost/Schema/Type/User.pm')

diff --git a/lib/Fripost/Schema/Type/User.pm b/lib/Fripost/Schema/Type/User.pm
index c3075a8..794f5e5 100644
--- a/lib/Fripost/Schema/Type/User.pm
+++ b/lib/Fripost/Schema/Type/User.pm
@@ -5,7 +5,7 @@ use warnings;
 use strict;
 
 use base qw/Net::LDAP/;
-use Fripost::Schema::Utils; 
+use Fripost::Schema::Utils;
 
 our $VERSION = '0.01';
 
@@ -27,11 +27,16 @@ sub search {
     my $base  = $self->{_options}->{base_dn};
     $base  = join ',', ( 'dc='.$domain, $base )
         if defined $domain;
-    
+
     my $filter = "(ObjectClass=virtualMailbox)";
     $filter = "(&" .$filter. "(uid=" .$username. ")" .")"
         if defined $username;
 
+    if ($self->{_options}->{debug}) {
+        say STDERR "DEBUG: Search base: " .$base;
+        say STDERR "DEBUG: Search filter: " .$filter;
+    }
+
     my $res = $self->{_ldap}->search(
                   base   => $base,
                   scope  => 'sub',
@@ -50,6 +55,9 @@ sub add {
 
     my $base = Fripost::Schema::Utils::mkDN ( $self->{_options}
                                             , $user->{username} );
+    if ($self->{_options}->{debug}) {
+        say STDERR "DEBUG: Add base: " .$base;
+    }
 
     my $res = $self->{_ldap}->add( $base,
                 attrs => [ objectClass  => 'virtualMailbox',
@@ -69,6 +77,9 @@ sub passwd {
 
     my $base = Fripost::Schema::Utils::mkDN ( $self->{_options}
                                             , $user->{username} );
+    if ($self->{_options}->{debug}) {
+        say STDERR "DEBUG: Modify base: " .$base;
+    }
 
     my $res = $self->{_ldap}->modify( $base,
                   replace => [ userPassword => $user->{userPassword} ]
@@ -84,7 +95,7 @@ sub passwd {
 
 =head1 NAME
 
-Fripost::Schema::Type::User - 
+Fripost::Schema::Type::User -
 
 =head1 AUTHOR
 
-- 
cgit v1.2.3