--- html/find.cgi	2000/05/03 09:14:39	1.3
+++ html/find.cgi	2001/03/27 13:44:55	1.5
@@ -4,7 +4,9 @@
 use Net::LDAP::LDIF;
 use CGI qw/:standard/;
 
-$ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) || die "$@";
+$host = "ldap.pliva.hr";
+
+$ldap = Net::LDAP->new($host,port=>389) || die "$@";
 
 $ldap->bind;	# anonymous
 
@@ -27,7 +29,6 @@
 if(param()) {
 	$mesg = $ldap->search (
 		base	=> 'o=pliva.hr',
-	#	filter	=> 'sn=Pavlinusic'
 		filter	=> param('what').'='.param('search')
 		);
 
@@ -37,7 +38,8 @@
 	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>");
+		my ($cn)=$entry->get('cn');
+		print li($cn,a({href=>"mailto:$mail"},"$mail"));
 	}
 	print end_ul;