X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=web%2Flogin.cgi;h=243c4273fb928ed7a21249ba9304ae895e6afea7;hb=91ce4ae2f194d2fa00716d0bfab5b77be74e0f6e;hp=cf5a138923547525c69599d39517801f6c00a93d;hpb=3b0b777cbb6450e191d34f3919e184c6af62cfad;p=mirror%2Fuserdir-ldap.git diff --git a/web/login.cgi b/web/login.cgi index cf5a138..243c427 100755 --- a/web/login.cgi +++ b/web/login.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Id: login.cgi,v 1.3 1999/12/09 02:18:14 tausq Exp $ +# $Id: login.cgi,v 1.5 1999/12/13 05:03:47 tausq Exp $ # (c) 1999 Randolph Chung. Licensed under the GPL. use lib '.'; @@ -43,7 +43,8 @@ if ($mesg->code == LDAP_SUCCESS) { $url .= uri_escape("uid=$username,$config{basedn}", "\x00-\x40\x7f-\xff"); print "Location: $url\n\n"; } else { - print "Location: $proto://$ENV{SERVER_NAME}/$config{websearchurl}?id=$username&authtoken=$cryptid,$hrkey\n\n"; + my $url = "$proto://$ENV{SERVER_NAME}/$config{websearchurl}?id=$username&authtoken=$cryptid,$hrkey"; + print "Location: $url\n\n"; } $ldap->unbind; @@ -51,3 +52,4 @@ if ($mesg->code == LDAP_SUCCESS) { print "Content-type: text/html\n\n"; print "

Not authenticated

\n"; } +