[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /auth londatecheck.pm
From: albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2005-04-25 21:21:17
Message-ID: cvsalbertel1114464077 () cvsserver
[Download RAW message or body]
albertel Mon Apr 25 17:21:17 2005 EDT
Modified files:
/loncom/auth londatecheck.pm
Log:
- this works on both mod_perl 1.X and mod_perl 2.X
Index: loncom/auth/londatecheck.pm
diff -u loncom/auth/londatecheck.pm:1.8 loncom/auth/londatecheck.pm:1.9
--- loncom/auth/londatecheck.pm:1.8 Thu Apr 7 02:56:21 2005
+++ loncom/auth/londatecheck.pm Mon Apr 25 17:21:17 2005
@@ -1,5 +1,5 @@
# Checks contentopen/close settings disable subsequent PerlHandlers if not open
-# $Id: londatecheck.pm,v 1.8 2005/04/07 06:56:21 albertel Exp $
+# $Id: londatecheck.pm,v 1.9 2005/04/25 21:21:17 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,7 +50,7 @@
sub handler {
my ($r)=@_;
if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {
- return OK;
+ return DECLINED;
}
my ($status,$open,$close,$msg)=&content_date_check();
if ($status ne 'OPEN') {
@@ -68,7 +68,8 @@
$r->print($msg);
$r->print('</body></html>');
+ return OK;
}
- return OK;
+ return DECLINED;
}
1;
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic