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.

---
 fripost-searchalias | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'fripost-searchalias')

diff --git a/fripost-searchalias b/fripost-searchalias
index 0775942..2e5d35f 100755
--- a/fripost-searchalias
+++ b/fripost-searchalias
@@ -118,6 +118,13 @@ my %alias;
 $alias{goto}    = $ARGV[0] if defined $ARGV[0];
 $alias{address} = $ARGV[1] if defined $ARGV[1];
 
+if (defined $alias{address}) {
+    my ($u,$d) = split /\@/, $alias{address}, 2;
+    $d = $u if (defined $u) and not (defined $d);
+    $ldap->domain->search({ domain => $d })->count
+        or die "Error: Unknown domain `$d'.\n";
+}
+
 foreach my $alias ($ldap->alias->search( \%alias )->entries) {
     say "From:     " . (join ', ', @{$alias->{address}});
     say "Goto:     " . $alias->{goto};
-- 
cgit v1.2.3