3 # (c) 1999 Debian and Randolph Chung. Licensed under the GPL. <tausq@debian.org>
10 use Net::LDAP qw(:all);
12 my %config = &Util::ReadConfigFile;
13 my $proto = ($ENV{HTTPS} ? "https" : "http");
16 my $id = $query->param('id');
17 my $authtoken = $query->param('authtoken');
18 &Util::ClearAuthToken($authtoken);
19 my $doneurl = $query->param('done') || "$config{websearchurl}";
21 &Util::ClearAuthToken($authtoken);
23 print "Location: $proto://$ENV{SERVER_NAME}/$doneurl\n\n";