Changeset 822

Timestamp:

03/16/10 11:52:25 (14 years ago)

Author:

nanardon

Message:

• improve la-web-directory

Location:

LATMOS-Accounts

Files:

• Makefile.PL (modified) (1 diff)
• bin/la-web-directory (modified) (4 diffs)

LATMOS-Accounts/Makefile.PL

@@ -5 +5 @@
 WriteMakefile(
     NAME              => 'LATMOS::Accounts',
-    VERSION           => '0.0.21', # finds $VERSION
+    VERSION           => '0.0.22', # finds $VERSION
     PREREQ_PM         => {
         'Net::LDAP' => undef,

LATMOS-Accounts/bin/la-web-directory

@@ -29 +29 @@
     'noexp'      => \my $noexp,
     'exp'        => \my $exp,
+    'filter=s'   => \my @filters,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
@@ -60 +61 @@
 
 $labase->wexported($exp ? 1 : 0);
+my %users;
 
-foreach my $user (sort $labase->search_objects('user')) {
+foreach my $user (sort $labase->search_objects('user',
+            @filters ? @filters : 'sn=*')) {
     my $ouser = $labase->get_object('user', $user);
+    $ouser->get_attributes('sn') or next;
     my @oaddress;
 
@@ -69 +73 @@
             grep { $_ } (
             map { $labase->get_object('address', $_) }
-            #$ouser->get_attributes('mainaddress'),
                 $ouser->get_attributes('otheraddress'),
             );
@@ -95 +98 @@
             $ouser->get_attributes('contratType'),
         ));
-    print "$line\n";
+    $users{$ouser->get_attributes('sn')}{$ouser->get_attributes('givenName')} = $line;
 }
+
+foreach my $sn (sort keys %users) {
+    foreach my $givenName (sort keys %{$users{$sn}}) {
+        print "$users{$sn}{$givenName}\n";
+    }
+}