1: # The LearningOnline Network
2: # checks for a cokkie to authenticate a user
3: #
4: # $Id: checkauthen.pm,v 1.1 2005/11/29 21:02:50 albertel Exp $
5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
28: ###
29:
30: package Apache::checkauthen;
31:
32: use strict;
33: use Apache::Constants qw(:common);
34: use Apache::lonnet;
35:
36: sub handler {
37: my ($r) = @_;
38:
39: my $fail = FORBIDDEN;
40: if ($r->dir_config('lonOtherAuthen') eq 'yes') {
41: &Apache::lonnet::logthis("other authen");
42: $fail = DECLINED;
43: }
44:
45: if ($env{'user.name'} eq 'public'
46: && $env{'user.domain'} eq 'public') {
47: if ($env{'request.publicaccess'} ) {
48: return OK;
49: } else {
50: return $fail;
51: }
52: }
53:
54: my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
55: my $lonid=$cookies{'lonID'};
56: my $cookie;
57: if ($lonid) {
58: my $handle=$lonid->value;
59: $handle=~s/\W//g;
60: my $lonidsdir=$r->dir_config('lonIDsDir');
61: if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
62: return OK;
63: }
64: }
65:
66: return $fail;
67: }
68:
69: 1;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>