projects
/
mirror
/
userdir-ldap-cgi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed html tags
[mirror/userdir-ldap-cgi.git]
/
login.cgi
diff --git
a/login.cgi
b/login.cgi
index
cf5a138
..
243c427
100755
(executable)
--- a/
login.cgi
+++ b/
login.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl
#!/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. <tausq@debian.org>
use lib '.';
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
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 {
$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;
}
$ldap->unbind;
@@
-51,3
+52,4
@@
if ($mesg->code == LDAP_SUCCESS) {
print "Content-type: text/html\n\n";
print "<html><body><h1>Not authenticated</h1></body></html>\n";
}
print "Content-type: text/html\n\n";
print "<html><body><h1>Not authenticated</h1></body></html>\n";
}
+