package Apache::DayLimit;

use strict;
use Apache::Constants qw(:common);
use Time::localtime;

my @wday = qw(sunday monday tuesday wednesday thursday friday saturday);

sub handler {
    my $r = shift;
    my $requires = $r->dir_config("ReqDay");
    return DECLINED unless $requires;

    my $day = $wday[localtime->wday];
    return OK if $requires =~ /$day([,\s]+|$)/i;

    $r->log_reason(qq{Access forbidden on weekday "$day"}, $r->uri);
    return FORBIDDEN;
}

1; 
__END__