Changeset 516

Timestamp:

10/21/09 18:34:38 (15 years ago)

Author:

nanardon

Message:

• add aliases form pages

Location:

LATMOS-Accounts-Web

Files:

• lib/LATMOS/Accounts/Web/Controller.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Controller/Aliases.pm (added)
• lib/LATMOS/Accounts/Web/Model/Accounts.pm (modified) (1 diff)
• root/html/aliases (added)
• t/controller_Aliases.t (added)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller.pm

@@ -35 +35 @@
             : ()),
         [ 'sites' => 'Sites' ],
+        [ 'aliases' => 'Alias Mail' ],
     );
     foreach(@menus) {

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

@@ -44 +44 @@
 }
 
+# Such function must not be here, but in LATMOS::Accounts
+# But code does not allow this at time
+sub list_unowned_aliases {
+    my ($self, $filter) = @_;
+    my $db = $self->db;
+    my $sth = $db->db->prepare_cached(q{
+        select name, forward from aliases where
+        name not in (select name from "user")
+            and
+        forward not in (select array[name] from "user")
+    } . 
+    ($filter 
+        ? q{
+            and (lower(name) ILIKE $1 or
+            lower(array_to_string(forward, ',')) ILIKE $1)
+          }
+        : '')
+    );
+
+    $sth->execute($filter ? ('%' . $filter . '%') : ());
+    my %aliases;
+    while (my $res = $sth->fetchrow_hashref) {
+        $aliases{$res->{name}} = $res->{forward};
+    }
+    return \%aliases
+}
+
 sub sync_access {
     my ($self) = @_;