Différences
Ci-dessous, les différences entre deux révisions de la page.
Les deux révisions précédentes Révision précédente | Prochaine révision Les deux révisions suivantes | ||
tuto:ipasserelle:telephonie:generer_contacts_polycom [24/07/2012 15:16] dani |
tuto:ipasserelle:telephonie:generer_contacts_polycom [24/07/2012 15:24] dani |
||
---|---|---|---|
Ligne 14: | Ligne 14: | ||
use Encode; | use Encode; | ||
- | my $a = esmith:: | + | my $acc = esmith:: |
my $pos = 5; | my $pos = 5; | ||
Ligne 28: | Ligne 28: | ||
my %fn; | my %fn; | ||
- | foreach my $u ($a-> | + | # Get user info (name, phone number) from the account DB |
+ | foreach my $u ($acc-> | ||
my $login = $u->key; | my $login = $u->key; | ||
- | next unless ($a-> | + | next unless ($acc-> |
my $pass = $u-> | my $pass = $u-> | ||
next unless ($pass eq ' | next unless ($pass eq ' | ||
Ligne 39: | Ligne 40: | ||
} | } | ||
- | foreach (sort {$ln{$a} | + | # Sort by lastname |
+ | foreach (sort { lc($ln{$a}) cmp lc($ln{$b}) } keys %ln){ | ||
print " | print " | ||
< | < |