loncom/auth/londatecheck.pm - diff

Return to londatecheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2004/08/23 19:16:53	version 1.8, 2005/04/07 06:56:21
Line 26	Line 26

use strict;	use strict;
package Apache::londatecheck;	package Apache::londatecheck;
use Apache::lonnet();	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);

sub content_date_check {	sub content_date_check {
my $symb=$ENV{'request.symb'};	my $symb=$env{'request.symb'};
my $open=&Apache::lonnet::EXT('resource.0.contentopen',$symb);	my $open=&Apache::lonnet::EXT('resource.0.contentopen',$symb);
my $close=&Apache::lonnet::EXT('resource.0.contentclose',$symb);	my $close=&Apache::lonnet::EXT('resource.0.contentclose',$symb);
if ( (defined($open) && $open ne '' && time < $open) ) {	if ( (defined($open) && $open ne '' && time < $open) ) {
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();