Gecko [ paroquia-rio-de-mouro.pt ]

Linux anchor 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64
Apache/2.4.18 (Ubuntu)
Server IP : 10.10.100.4 & Your IP : 216.73.217.150
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
debian-ldap-query	1.39 KB	-rwxr-xr-x	2010-05-31 11:27
mailspell	1.74 KB	-rwxr-xr-x	2010-05-31 11:27
mailto-mutt	280 B	-rwxr-xr-x	2014-03-21 14:31
pgpewrap	6.2 KB	-rwxr-xr-x	2021-01-22 14:44
pgpring	42.74 KB	-rwxr-xr-x	2021-01-22 14:44
source-muttrc.d	108 B	-rwxr-xr-x	2010-05-31 11:27

Rename

#!/usr/bin/perl -w
# by Ben Collins <bcollins@debian.org>, butchered by Marco d'Itri <md@linux.it>
# to use, add to ~/.muttrc:
#  set query_command="/usr/lib/mutt/debian-ldap-query %s"

use strict;

my @attrs = qw(sn mn cn ircnick uid);
my $base = 'ou=users, dc=debian, dc=org';
my $server = 'db.debian.org';
my $port = 389;

die "Usage: $0 <name> [<name>...]\n" if not $ARGV[0];

eval 'require Net::LDAP;';
if ($@) {
	$@ =~ s/ in \@INC.*/./;
	die "Could not load Net::LDAP: $@\n" .
	"(Warning: this script depends on the libnet-ldap-perl (>=0.22-1) package.)\n"
}

my $ldap = Net::LDAP->new($server, port => $port) or
	die "Could not contact LDAP server $server:$port";
$ldap->bind or die 'Could not bind';

my @results;

foreach my $search (@ARGV) {
	my $query = join '', map { "($_=*$search*)" } @attrs;
    my $mesg = $ldap->search(
		base => $base, filter => "(|$query)", attrs => [ @attrs ]
	) or die 'Failed search';
    foreach my $entry ($mesg->entries) {
		my $uid   = $entry->get_value('uid')	|| next;
		my $fname = $entry->get_value('cn')	|| '';
		my $mname = $entry->get_value('mn')	|| '';
		$mname .= ' ' if $mname;
		my $lname = $entry->get_value('sn')	|| '';
		my $nick  = $entry->get_value('ircnick')|| '';
		push @results, "<$uid\@debian.org>\t$fname $mname$lname\t($nick)\n";
    }
}

$ldap->unbind;

print 'Debian Developer query: found ', scalar @results, "\n", @results;
exit 1 if not @results;
exit 0;