# check to make sure the time is positive, and that the auth token
# has not expired
my $tdiff = (time - $time);
- &HTMLError("Your authentication token has expired. Please <a href=\"$config{webloginhtml}\">relogin</a>") if (($tdiff < 0) || ($tdiff > $config{authexpires}));
+ &HTMLError("Your authentication token has expired. Please <a href=\"https://$ENV{SERVER_NAME}/$config{webloginhtml}\">relogin</a>") if (($tdiff < 0) || ($tdiff > $config{authexpires}));
return Decrypt($cipher, $passwd);
}
#!/usr/bin/perl
-# $Id: login.cgi,v 1.7 2000/05/10 05:01:55 tausq Exp $
+# $Id: login.cgi,v 1.8 2003/03/13 04:25:56 rmurray Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
use lib '.';
my $query = new CGI;
my $proto = ($ENV{HTTPS} ? "https" : "http");
-if (!($query->param('username')) || !($query->param('password'))) {
- print "Location: $proto://$ENV{SERVER_NAME}/$config{webloginurl}\n\n";
+if ($proto eq "http" || !($query->param('username')) || !($query->param('password'))) {
+ print "Location: https://$ENV{SERVER_NAME}/$config{webloginurl}\n\n";
exit;
}
#use wml::db.d.o title="debian.org Developers LDAP Login"
<br><br><center>
-<form method=post action="login.cgi">
+<form method=post action="https://db.debian.org/login.cgi">
<table border=5 cellspacing=0 cellpadding=3 width="70%" bgcolor=#DDDDDD>
<tr><th colspan=2 bgcolor="#44CCCC" align=center><font size="+2">Authentication Required</font></th></tr>
<tr><td colspan=2 align=center><br><br>If you are not a developer, please <a href="search.cgi">return to the main search page</a>, otherwise, enter your Debian user ID and password below<br>
<tr><td colspan=2 align="center">
<input type=submit name=dosearch value="Search...">
</td></tr></table>
-<p>Debian developers can <a href="http://db.debian.org/login.html">login</a>
-(<a href="https://db.debian.org/login.html">securely</a>) to update their
+<p>Debian developers can <a href="https://db.debian.org/login.html">login</a>
+to update their
settings</p>
</center>
</form>
<p align=center>
<?ifauth <a href="logout.cgi">Logout</a> | ?>
-<?ifnoauth <a href="http://db.debian.org/login.html">Login</a> (<a href="https://db.debian.org/login.html">SSL version</a>) | ?>
+<?ifnoauth <a href="https://db.debian.org/login.html">Login</a> | ?>
<a href="search.cgi?id=~id~&authtoken=~authtoken~">Search again</a></p><br><br>
<p align=center>Number of entries matched: <b>~count~</b></p>
<center>
<br><br>
<p align=center>
<?ifauth <a href="logout.cgi">Logout</a> | ?>
-<?ifnoauth <a href="http://db.debian.org/login.html">Login</a> (<a href="https://db.debian.org/login.html">SSL version</a>) | ?>
+<?ifnoauth <a href="https://db.debian.org/login.html">Login</a> | ?>
<a href="search.cgi?id=~id~&authtoken=~authtoken~">Search again</a></p><br><br>
</p>
#!/usr/bin/perl
-# $Id: update.cgi,v 1.8 2000/05/13 18:39:05 tausq Exp $
+# $Id: update.cgi,v 1.9 2003/03/13 04:25:56 rmurray Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
use lib '.';
if (!$auth) {
$ldap->unbind;
- &Util::HTMLError("You have not been authenticated. Please <a href=\"$proto://$ENV{SERVER_NAME}/$config{webloginurl}\">Login</a>");
+ &Util::HTMLError("You have not been authenticated. Please <a href=\"https://$ENV{SERVER_NAME}/$config{webloginurl}\">Login</a>");
}
# Authenticated....