Adding debug messages.

1 files changed, 14 insertions, 3 deletions

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