# $Id: simpleauthen.pm,v 1.2 2009/02/13 17:20:26 bisitz Exp $ package Apache::simpleauthen; use strict; use Apache::Constants qw(:common); use Apache::lonnet; sub handler { my ($r) = @_; return FORBIDDEN; } 1;