X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=logout.cgi;h=19c7c37a6500e0d340fce782893eb78bb027ff91;hp=585fd691a17665c107da21796987b2c8dd961121;hb=HEAD;hpb=3bce39d94939aaf999189e4aaed805858a996153 diff --git a/logout.cgi b/logout.cgi index 585fd69..19c7c37 100755 --- a/logout.cgi +++ b/logout.cgi @@ -2,6 +2,7 @@ # $Id: logout.cgi,v 1.2 1999/09/26 01:20:39 tausq Exp $ # (c) 1999 Randolph Chung. Licensed under the GPL. +# Copyright (c) 2011, 2015 Peter Palfrader use lib '.'; use strict vars; @@ -14,11 +15,8 @@ my %config = &Util::ReadConfigFile; my $proto = ($ENV{HTTPS} ? "https" : "http"); my $query = new CGI; -my $id = $query->param('id'); my $authtoken = $query->param('authtoken'); -&Util::ClearAuthToken($authtoken); -my $doneurl = $query->param('done') || "$config{websearchurl}"; - &Util::ClearAuthToken($authtoken); +my $doneurl = $config{websearchurl}; print "Location: $proto://$ENV{SERVER_NAME}/$doneurl\n\n";