![[BACK]](/icons/back.gif){kind=icon}
Return to checkauthen.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
Return to checkauthen.pm CVS log | Up to [LON-CAPA] / loncom / auth |
| version 1.6, 2006/08/30 21:35:08 | version 1.7, 2006/09/07 17:07:26 |
|---|---|
| Line 36 use Apache::lonnet; | Line 36 use Apache::lonnet; |
| sub handler { | sub handler { |
| my ($r) = @_; | my ($r) = @_; |
| if ($r->auth_type() eq 'Basic') { | if ($r->auth_type() ne 'LONCAPA') { |
| return DECLINED; | return DECLINED; |
| } | } |
| my $fail = FORBIDDEN; | my $fail = FORBIDDEN; |