ldap/html/find.cgi

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

use Net::LDAP;
use Net::LDAP::LDIF;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

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