File Coverage

blib/lib/Apache/TimedRedirect.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Apache::TimedRedirect;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader);
@EXPORT = qw(
);
$VERSION = '0.13';


# Preloads.

use Time::Period;
use Apache::Constants qw(OK DECLINED REDIRECT);
sub handler {
  # the request object
  my $r = shift;
  # get the uri requested
  my $uri = $r->uri;
  # get the url to redirect too
  my $rurl = $r->dir_config('redirecturl');
  # get the time window in Time::Period format
  # Note READ Time::Period carefully hr{4am-5am}
  # is 4:00am - 5:59:59am
  my $tw = $r->dir_config('timewindow');
  my $uriregex = $r->dir_config('uriregex');
  my $log = $r->dir_config('log') or 0;
  # this allows weebbymaster to bypass redirect
  my $xip = $r->dir_config('excludeip') or 'NONE';
  # get the host ip and see if its 'special'
  my $rh = $r->connection()->remote_ip();
  # allow a host IP through
  return DECLINED if $rh eq $xip;
  # check if timewindow and URI request match
  if (inPeriod(time(), $tw) == 1 && $uri =~ /$uriregex/) {
    print STDERR "TimedRedirect: $rh requesting $uri matched $uriregex  during time period: $tw redirected: $rurl\n" if $log;
    $r->header_out(Location=>$rurl);
    return REDIRECT;
  } else {
    return DECLINED;
  }

}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__