[system] / branches / rel-2-4-dev / webwork-modperl / lib / WeBWorK.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-4-dev/webwork-modperl/lib/WeBWorK.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3705 Revision 3743
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.pm,v 1.76 2005/09/30 19:31:35 sh002i Exp $ 4# $CVSHeader: webwork2/lib/WeBWorK.pm,v 1.77 2005/10/11 20:44:59 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.
… …
221 debug("(here's the authz object: $authz)\n"); 221 debug("(here's the authz object: $authz)\n");
222 $r->authz($authz); 222 $r->authz($authz);
223 223
224 debug("...and now we can authenticate the remote user...\n"); 224 debug("...and now we can authenticate the remote user...\n");
225 my $authen = new WeBWorK::Authen($r); 225 my $authen = new WeBWorK::Authen($r);
226 $r->authen($authen);
226 my $authenOK = $authen->verify; 227 my $authenOK = $authen->verify;
227 if ($authenOK) { 228 if ($authenOK) {
228 my $userID = $r->param("user"); 229 my $userID = $r->param("user");
229 debug("Hi, $userID, glad you made it.\n"); 230 debug("Hi, $userID, glad you made it.\n");
230 231
Legend:
Removed from v.3705  
changed lines
  Added in v.3743
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9