Différences

Ci-dessous, les différences entre deux révisions de la page.

--- tuto:ipasserelle:telephonie:generer_contacts_polycom [19/07/2012 16:58]
dani créée
+++ tuto:ipasserelle:telephonie:generer_contacts_polycom [24/07/2012 15:24]
dani
@@ Ligne 14: / Ligne 14: @@
 use Encode;
-my $a = esmith::AccountsDB->open_ro();
+my $acc = esmith::AccountsDB->open_ro();
 my $pos = 5;
@@ Ligne 24: / Ligne 24: @@
 ';
-foreach my $u ($a->users){
+my %ext;
+my %ln;
+my %fn;
+# Get user info (name, phone number) from the account DB
+foreach my $u ($acc->users){
     my $login = $u->key;
-    next unless ($a->is_user_in_group($login, 'agence'));
+    next unless ($acc->is_user_in_group($login, 'agence'));
     my $pass = $u->prop('PasswordSet') || 'no';
-    next unless $pass eq 'yes';
+    next unless ($pass eq 'yes');
-    my $ext = $u->prop('Extension') || '';
+    $ext{$login} = $u->prop('Extension') || '';
-    next unless ($ext =~ m/^\d+$/);
+    next unless ($ext{$login} =~ m/^\d+$/);
-    my $ln = unac_string(decode('utf-8',($u->prop('LastName') || '')));
+    $ln{$login} = unac_string(decode('utf-8',($u->prop('LastName') || '')));
-    my $fn = unac_string(decode('utf-8',($u->prop('FirstName') || $login)));
+    $fn{$login} = unac_string(decode('utf-8',($u->prop('FirstName') || $login)));
+}
+# Sort by lastname
+foreach (sort { lc($ln{$a}) cmp lc($ln{$b}) } keys %ln){
     print "        <item>
-            <ln>$ln</ln>
+            <ln>$ln{$_}</ln>
-            <fn>$fn</fn>
+            <fn>$fn{$_}</fn>
-            <lb>$ln $fn</lb>
+            <lb>$ln{$_} $fn{$_}</lb>
-            <ct>$ext</ct>
+            <ct>$ext{$_}</ct>
             <sd>$pos</sd>
             <bw>1</bw>