/[ldap]/html/find.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /html/find.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Wed May 3 08:28:04 2000 UTC revision 1.4 by dpavlin, Fri May 26 10:12:02 2000 UTC
# Line 3  Line 3 
3  use Net::LDAP;  use Net::LDAP;
4  use Net::LDAP::LDIF;  use Net::LDAP::LDIF;
5  use CGI qw/:standard/;  use CGI qw/:standard/;
6    use CGI::Carp qw(fatalsToBrowser);
7    
8  $ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) || die "$@";  $ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) || die "$@";
9    
10  $ldap->bind;    # anonymous  $ldap->bind;    # anonymous
11    
12  %labels = ('givenname'=>'ime',  %labels = ('givenname'=>'imenu',
13          'sn'=>'prezime',          'sn'=>'prezimenu',
14          'cn'=>'ime i prezime');          'cn'=>'imenu i prezimenu');
15    
16    
17  print header,  print header,
18          start_html('LDAP pretraživanje'),          start_html('LDAP pretraživanje'),
19          start_form,          start_form,
20          "Pretražujte prema",popup_menu(-name=>'what',          "Pretražujte prema ",popup_menu(-name=>'what',
21                  -values=>['givenname','sn','cn'],                  -values=>['givenname','sn','cn'],
22                  -default=>'cn',                  -default=>'cn',
23                  -labels=>\%labels),                  -labels=>\%labels),
24          textfield(-name=>'search',-default=>'*'),p,          textfield(-name=>'search',-default=>'*'),
25          submit,          submit(-value=>"Počni"),p
26          end_form;          end_form;
27    
28  if(param()) {  if(param()) {
# Line 33  if(param()) { Line 34  if(param()) {
34    
35          print begin_ul;          print begin_ul;
36          my $max = $mesg->count;          my $max = $mesg->count;
37            print "Broj osoba koje odgovaraju upitu: ",$mesg->count,p;
38          for($i = 0 ; $i < $max ; $i++) {          for($i = 0 ; $i < $max ; $i++) {
39                  my $entry = $mesg->entry($i);                  my $entry = $mesg->entry($i);
40                  print li($entry->get('cn')," e-mail: ",$entry->get('mail'));                  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;          print end_ul;
44                    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26