X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=web%2Flogin.cgi;h=243c4273fb928ed7a21249ba9304ae895e6afea7;hb=37b0b5875ff83d8e9a9e8ca918d42fc32b720f06;hp=351495367d926727077b5e0a0173097df6591882;hpb=c50d88536a4feb3087d1aa802e110250cb2861fc;p=mirror%2Fuserdir-ldap.git diff --git a/web/login.cgi b/web/login.cgi index 3514953..243c427 100755 --- a/web/login.cgi +++ b/web/login.cgi @@ -1,6 +1,7 @@ #!/usr/bin/perl -# (c) 1999 Debian and Randolph Chung. Licensed under the GPL. +# $Id: login.cgi,v 1.5 1999/12/13 05:03:47 tausq Exp $ +# (c) 1999 Randolph Chung. Licensed under the GPL. use lib '.'; use strict; @@ -38,11 +39,12 @@ if ($mesg->code == LDAP_SUCCESS) { my $cryptid = &Util::SavePasswordToFile($username, $password, $cipher); if ($query->param('update')) { - my $url = "$proto://$ENV{SERVER_NAME}/$config{webupdateurl}?id=$username&authtoken=$cryptid:$hrkey&editdn="; + my $url = "$proto://$ENV{SERVER_NAME}/$config{webupdateurl}?id=$username&authtoken=$cryptid,$hrkey&editdn="; $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; @@ -50,3 +52,4 @@ if ($mesg->code == LDAP_SUCCESS) { print "Content-type: text/html\n\n"; print "

Not authenticated

\n"; } +