X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=search.cgi;h=9a38e3e93d9af5e62a7c94a9142b4d662de38c45;hb=784c4020017d260775339c1231052ca4eb387f02;hp=dcab35b22325036ee9ecd7c444a3e4f80cbd2b7b;hpb=80ed561a914ae1af6948747933e260c4623df222;p=mirror%2Fuserdir-ldap-cgi.git diff --git a/search.cgi b/search.cgi index dcab35b..9a38e3e 100755 --- a/search.cgi +++ b/search.cgi @@ -11,7 +11,7 @@ use strict vars; use CGI; use Util; use URI::Escape; -use Net::LDAP qw(:all); +use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR); # Global settings... my %config = &Util::ReadConfigFile; @@ -30,7 +30,7 @@ sub DieHandler { $ldap->unbind if (defined($ldap)); } -$SIG{__DIE__} = \&DieHandler; +#$SIG{__DIE__} = \&DieHandler; if (!$dosearch) { # No action yet, send back the search form... @@ -191,7 +191,7 @@ if (!$dosearch) { $vacation = $data->{onvacation}->[0] if ($authtoken && $id); # OK, now generate output... (i.e. put the output into the buffer ) - $outsub{searchresults} .= ''; + $outsub{searchresults} .= '
'; $outsub{searchresults} .= '\n"; @@ -236,7 +236,7 @@ if (!$dosearch) { # If this is ourselves, present a link to do mods if ($auth && ($id eq $data->{uid}->[0])) { #TODO: extract this string into a url for translation... - $outsub{searchresults} .= "Edit my settings\n"; + $outsub{searchresults} .= "Edit my settings\n"; } $outsub{searchresults} .= "


\n";
'."$name "; $outsub{searchresults} .= "($ufdn)