Return to simpleauthen.pm CVS log | Up to [LON-CAPA] / loncom / auth |
1.2 ! bisitz 1: # $Id: simpleauthen.pm,v 1.2 2009/02/13 16:45:00 bisitz Exp $ ! 2: 1.1 albertel 3: package Apache::simpleauthen; 4: 5: use strict; 6: use Apache::Constants qw(:common); 7: use Apache::lonnet; 8: 9: sub handler { 10: my ($r) = @_; 11: return FORBIDDEN; 12: } 13: 14: 1;