| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork2/lib/WeBWorK/Authen.pm,v 1.47 2005/11/07 21:17:41 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/Authen.pm,v 1.48 2005/12/06 21:11:07 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 107 | #warn __PACKAGE__, ": verify: cookieUser=$cookieUser cookieKey=$cookieKey\n"; |
107 | #warn __PACKAGE__, ": verify: cookieUser=$cookieUser cookieKey=$cookieKey\n"; |
| 108 | |
108 | |
| 109 | VERIFY: { |
109 | VERIFY: { |
| 110 | # This block is here so we can "last" out of it when we've |
110 | # This block is here so we can "last" out of it when we've |
| 111 | # decided whether we're going to succeed or fail. |
111 | # decided whether we're going to succeed or fail. |
|
|
112 | |
|
|
113 | # no database means no user/password/permission records |
|
|
114 | unless ($db) { |
|
|
115 | $failWithoutError = 1; |
|
|
116 | last VERIFY; |
|
|
117 | } |
| 112 | |
118 | |
| 113 | if ($login_practice_user) { |
119 | if ($login_practice_user) { |
| 114 | # ignore everything else, find an unused practice user |
120 | # ignore everything else, find an unused practice user |
| 115 | my $found = 0; |
121 | my $found = 0; |
| 116 | |
122 | |
| … | |
… | |
| 296 | } |
302 | } |
| 297 | } |
303 | } |
| 298 | |
304 | |
| 299 | # neither a key or a password were supplied. |
305 | # neither a key or a password were supplied. |
| 300 | $error = "You must enter a password." |
306 | $error = "You must enter a password." |
| 301 | } |
307 | } # /* VERIFY */ |
| 302 | |
308 | |
| 303 | # check for multiply defined users |
309 | # check for multiply defined users |
| 304 | my @test_users = $r->param("user"); |
310 | my @test_users = $r->param("user"); |
| 305 | if (@test_users>1) { |
311 | if (@test_users>1) { |
| 306 | warn "User has been multiply defined in Authen.pm ", join(" ", @test_users) ; |
312 | warn "User has been multiply defined in Authen.pm ", join(" ", @test_users) ; |
Parent Directory
| 
Revision Log
| 
Patch