[BACK]Return to londatecheck.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth
File:  [LON-CAPA] / loncom / auth / londatecheck.pm
Revision 1.1: download - view: text, annotated - select for diffs
Mon May 31 20:24:11 2004 UTC (20 years, 1 month ago) by albertel
Branches: MAIN
CVS tags: HEAD
-n adding in functionality so that contentopne/close date settings are respected for html ish pages.

    1: use strict;
    2: package Apache::londatecheck;
    3: use Apache::lonnet();
    4: use Apache::Constants qw(:common :http :methods);
    5: 
    6: sub content_date_check {
    7:     my $symb=$ENV{'request.symb'};
    8:     my $open=&Apache::lonnet::EXT('resource.0.contentopen',$symb);
    9:     &Apache::lonnet::logthis("Hrrm got an open of $open");
   10:     my $close=&Apache::lonnet::EXT('resource.0.contentclose',$symb);
   11:     if ( (defined($open)  && time < $open) ||
   12: 	 (defined($close) && time > $close)) {
   13: 	return ('CLOSED',$open,$close);
   14:     }
   15:     return ('OPEN',$open,$close);
   16: }
   17: 
   18: sub handler {
   19:     my ($r)=@_;
   20:     my ($status)=&content_date_check();
   21:     if ($status ne 'OPEN') {
   22: 	$r->set_handlers('PerlHandler'=>undef);
   23: 	&Apache::loncommon::content_type($r,'text/html');
   24: 	$r->send_http_header;
   25: 	return OK if $r->header_only;
   26: 	$r->print('<html><head><title>Go Away!</title>');
   27: 	my $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
   28: 	    '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
   29: 	$r->print(&Apache::lonmenu::registerurl(1));
   30: 	$r->print('</head>'.
   31: 		  &Apache::loncommon::bodytag('Go Away!','',$addentries,'','',
   32: 					      undef));
   33: 	$r->print('</body></html>');
   34: 	$r->print("Go Away!");
   35:     }
   36:     return OK;
   37: }
   38: 1;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>