loncom/auth/londatecheck.pm - diff

Return to londatecheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2004/08/23 18:57:16	version 1.7, 2004/08/23 19:34:00
Line 49 sub content_date_check {	Line 49 sub content_date_check {

sub handler {	sub handler {
my ($r)=@_;	my ($r)=@_;
if (&Apache::lonnet::allowed('bre',$ENV{'request.filename'}) eq 'F') {	if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {
return OK;	return OK;
}	}
my ($status,$open,$close,$msg)=&content_date_check();	my ($status,$open,$close,$msg)=&content_date_check();
Line 58 sub handler {	Line 58 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
$r->print('<html><head><title>Go Away!</title>');	$r->print('<html><head><title>'.&mt("Not Open").'</title>');
my $addentries=' onLoad="'.&Apache::lonmenu::loadevents().	my $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
'" onUnload="'.&Apache::lonmenu::unloadevents().'"';	'" onUnload="'.&Apache::lonmenu::unloadevents().'"';
$r->print(&Apache::lonmenu::registerurl(1));	$r->print(&Apache::lonmenu::registerurl(1));