From ea06aa8c41d103ff161630fd85d083b9ed6f0b41 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Mon, 28 May 2012 14:27:08 +0200
Subject: More flexible use of wildcards on usernames.

---
 lib/Fripost/Schema/Type/User.pm | 45 +++++++++++++++++++++++++++--------------
 1 file changed, 30 insertions(+), 15 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 794f5e5..a9eb293 100644
--- a/lib/Fripost/Schema/Type/User.pm
+++ b/lib/Fripost/Schema/Type/User.pm
@@ -6,6 +6,7 @@ use strict;
 
 use base qw/Net::LDAP/;
 use Fripost::Schema::Utils;
+use Fripost::Schema::Type::Domain;
 
 our $VERSION = '0.01';
 
@@ -15,7 +16,9 @@ our $VERSION = '0.01';
 # Search a user, and return the corresponding entries if found. If no
 # user is given, returns all users.
 # If the user has no domain part, returns matching users for any
-# domains.
+# domains. Otherwise, we first search for matching domains (we may
+# have multiple matches as wildcards are allowed), and then for each of
+# them, search for the matching users.
 sub search {
     my $self = shift;
     my $user = shift;
@@ -25,26 +28,38 @@ sub search {
         if defined $user->{username};
 
     my $base  = $self->{_options}->{base_dn};
-    $base  = join ',', ( 'dc='.$domain, $base )
-        if defined $domain;
+    my @bases;
+    if (defined $domain) {
+        my $dres = Fripost::Schema::Type::Domain::search ( $self, {domain => $domain} );
+        foreach ($dres->entries) {
+            push @bases, join ',', ( 'dc='.$_->get_value('dc'), $base );
+        }
+    }
+    else {
+        push @bases, $base;
+    }
 
     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;
+    foreach my $b (@bases) {
+        if ($self->{_options}->{debug}) {
+            say STDERR "DEBUG: Search base: " .$b;
+            say STDERR "DEBUG: Search filter: " .$filter;
+        }
+    
+        my $res = $self->{_ldap}->search(
+                    base   => $b,
+                    scope  => 'sub',
+                    attrs  => [ 'uid', 'gn' , 'sn', 'isActive' ],
+                    filter => $filter
+               );
+        die "Error: " .$res->error. "\n" if $res->code;
+        push @res, $res;
     }
-
-    my $res = $self->{_ldap}->search(
-                  base   => $base,
-                  scope  => 'sub',
-                  attrs  => [ 'uid', 'gn' , 'sn', 'isActive' ],
-                  filter => $filter
-            );
-    die "Error: " .$res->error. "\n" if $res->code;
-    return $res;
+    return \@res;
 }
 
 
-- 
cgit v1.2.3