view release on metacpan or  search on metacpan

lib/Apache2/LogNotify.pm  view on Meta::CPAN

use Apache2::RequestUtil qw(dir_config);
use Apache2::RequestRec ();
use Apache2::ServerRec;
use Apache2::ServerUtil qw(server get_server_version);
use Apache2::Log;
use Apache2::Process;
use APR::Table;
use APR::Finfo ();
use Mail::Mailer;
use IPC::Cache;
use Data::Dumper;

our $VERSION = 0.10;
my $cache = new IPC::Cache( { namespace  => 'LogNotify',
			      expires_in => 86400 } );
$cache->purge();

sub handler {
    my $r = shift;
    my $s = $r->server();
    my $args = $r->args;