/[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.4 by dpavlin, Fri May 26 10:12:02 2000 UTC revision 1.5 by dpavlin, Tue Mar 27 13:44:55 2001 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/;
 use CGI::Carp qw(fatalsToBrowser);  
6    
7  $ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) || die "$@";  $host = "ldap.pliva.hr";
8    
9    $ldap = Net::LDAP->new($host,port=>389) || die "$@";
10    
11  $ldap->bind;    # anonymous  $ldap->bind;    # anonymous
12    
# Line 28  print header, Line 29  print header,
29  if(param()) {  if(param()) {
30          $mesg = $ldap->search (          $mesg = $ldap->search (
31                  base    => 'o=pliva.hr',                  base    => 'o=pliva.hr',
         #       filter  => 'sn=Pavlinusic'  
32                  filter  => param('what').'='.param('search')                  filter  => param('what').'='.param('search')
33                  );                  );
34    
# Line 38  if(param()) { Line 38  if(param()) {
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                  my ($mail) = $entry->get('mail'); # array, take first                  my ($mail) = $entry->get('mail'); # array, take first
41                  print li($entry->get('cn')," <tt><a href=\"mailto: $mail\">$mail</a></tt>");                  my ($cn)=$entry->get('cn');
42                    print li($cn,a({href=>"mailto:$mail"},"$mail"));
43          }          }
44          print end_ul;          print end_ul;
45                    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.26