ldap/html/find.cgi

#!/usr/local/bin/perl -w

use Net::LDAP;
use Net::LDAP::LDIF;
use CGI qw/:standard/;

$ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) || die "$@";

$ldap->bind;    # anonymous

%labels = ('givenname'=>'ime',
        'sn'=>'prezime',
        'cn'=>'ime i prezime');


print header,
        start_html('LDAP pretraÂ¾ivanje'),
        start_form,
        "PretraÂ¾ujte prema",popup_menu(-name=>'what',
                -values=>['givenname','sn','cn'],
                -default=>'cn',
                -labels=>\%labels),
        textfield(-name=>'search',-default=>'*'),p,
        submit,
        end_form;

if(param()) {
        $mesg = $ldap->search (
                base    => 'o=pliva.hr',
        #       filter  => 'sn=Pavlinusic'
                filter  => param('what').'='.param('search')
                );

        print begin_ul;
        my $max = $mesg->count;
        for($i = 0 ; $i < $max ; $i++) {
                my $entry = $mesg->entry($i);
                print li($entry->get('cn')," e-mail: ",$entry->get('mail'));
        }
        print end_ul;
        
}
1	dpavlin	1.1	#!/usr/local/bin/perl -w
2
3			use Net::LDAP;
4			use Net::LDAP::LDIF;
5			use CGI qw/:standard/;
6
7			$ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) \|\| die "$@";
8
9			$ldap->bind; # anonymous
10
11			%labels = ('givenname'=>'ime',
12			'sn'=>'prezime',
13			'cn'=>'ime i prezime');
14
15
16			print header,
17			start_html('LDAP pretraÂ¾ivanje'),
18			start_form,
19			"PretraÂ¾ujte prema",popup_menu(-name=>'what',
20			-values=>['givenname','sn','cn'],
21			-default=>'cn',
22			-labels=>\%labels),
23			textfield(-name=>'search',-default=>'*'),p,
24			submit,
25			end_form;
26
27			if(param()) {
28			$mesg = $ldap->search (
29			base => 'o=pliva.hr',
30			# filter => 'sn=Pavlinusic'
31			filter => param('what').'='.param('search')
32			);
33
34			print begin_ul;
35			my $max = $mesg->count;
36			for($i = 0 ; $i < $max ; $i++) {
37			my $entry = $mesg->entry($i);
38			print li($entry->get('cn')," e-mail: ",$entry->get('mail'));
39			}
40			print end_ul;
41
42			}