projects
/
licom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changed the year `LiCoM' was written in to `2005-2006'.
[licom.git]
/
mutt-licom.pl
diff --git
a/mutt-licom.pl
b/mutt-licom.pl
index
08c2502
..
e7fbcbd
100755
(executable)
--- a/
mutt-licom.pl
+++ b/
mutt-licom.pl
@@
-24,6
+24,12
@@
else
$Config = get_config ();
}
$Config = get_config ();
}
+if ($ENV{'DEBUG'})
+{
+ require Data::Dumper;
+ print STDERR Data::Dumper->Dump ([$Config], ['Config']);
+}
+
unless (defined ($Config->{'uri'}) and defined ($Config->{'bind_dn'})
and defined ($Config->{'password'}))
{
unless (defined ($Config->{'uri'}) and defined ($Config->{'bind_dn'})
and defined ($Config->{'password'}))
{
@@
-61,15
+67,19
@@
our @Matches = LiCoM::Person->search (@Patterns, [[mail => '*']]);
print STDOUT scalar (@Matches), ' ', (scalar (@Matches) == 1 ? 'entry' : 'entries'), " found.\n";
print STDOUT scalar (@Matches), ' ', (scalar (@Matches) == 1 ? 'entry' : 'entries'), " found.\n";
-for (
@Matches
)
+for (
sort { $a->name () cmp $b->name () } (@Matches)
)
{
my $person = $_;
my $cn = $person->name ();
my @mail = $person->get ('mail');
{
my $person = $_;
my $cn = $person->name ();
my @mail = $person->get ('mail');
+ my @groups = $person->get ('group');
+ my $info = join (', ', sort (@groups));
+
+ $info = "($info)" if ($info);
- for (
@mail
)
+ for (
sort (@mail)
)
{
{
- print "$_\t$cn\t
Found by LiCoM
\n";
+ print "$_\t$cn\t
$info
\n";
}
}
}
}