ldap/html/find.cgi

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

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

$host = "ldap.pliva.hr";

$ldap = Net::LDAP->new($host,port=>389) || die "$@";

$ldap->bind;    # anonymous

%labels = ('givenname'=>'imenu',
        'sn'=>'prezimenu',
        'cn'=>'imenu i prezimenu');


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=>'*'),
        submit(-value=>"Poèni"),p
        end_form;

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

        print begin_ul;
        my $max = $mesg->count;
        print "Broj osoba koje odgovaraju upitu: ",$mesg->count,p; 
        for($i = 0 ; $i < $max ; $i++) {
                my $entry = $mesg->entry($i);
                my ($mail) = $entry->get('mail'); # array, take first
                my ($cn)=$entry->get('cn');
                print li($cn,a({href=>"mailto:$mail"},"$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	dpavlin	1.5	$host = "ldap.pliva.hr";
8
9			$ldap = Net::LDAP->new($host,port=>389) \|\| die "$@";
10	dpavlin	1.1
11			$ldap->bind; # anonymous
12
13	dpavlin	1.2	%labels = ('givenname'=>'imenu',
14			'sn'=>'prezimenu',
15			'cn'=>'imenu i prezimenu');
16	dpavlin	1.1
17
18			print header,
19			start_html('LDAP pretra¾ivanje'),
20			start_form,
21	dpavlin	1.2	"Pretra¾ujte prema ",popup_menu(-name=>'what',
22	dpavlin	1.1	-values=>['givenname','sn','cn'],
23			-default=>'cn',
24			-labels=>\%labels),
25	dpavlin	1.2	textfield(-name=>'search',-default=>'*'),
26			submit(-value=>"Poèni"),p
27	dpavlin	1.1	end_form;
28
29			if(param()) {
30			$mesg = $ldap->search (
31			base => 'o=pliva.hr',
32			filter => param('what').'='.param('search')
33			);
34
35			print begin_ul;
36			my $max = $mesg->count;
37	dpavlin	1.2	print "Broj osoba koje odgovaraju upitu: ",$mesg->count,p;
38	dpavlin	1.1	for($i = 0 ; $i < $max ; $i++) {
39			my $entry = $mesg->entry($i);
40	dpavlin	1.2	my ($mail) = $entry->get('mail'); # array, take first
41	dpavlin	1.5	my ($cn)=$entry->get('cn');
42			print li($cn,a({href=>"mailto:$mail"},"$mail"));
43	dpavlin	1.1	}
44			print end_ul;
45
46			}