PerlAccessHandler for POST access

pengyh <[email protected]> Wed, 3 Aug 2022 19:11:48 +0800
Newsgroups gmane.comp.apache.mod-perl
Message-ID <[email protected]>
do you know for my this simple PerlAccessHandler, why HTTP GET works, 
but POST doesn't?

use strict;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Connection ();
use APR::Table ();
use Apache2::Const -compile => qw(OK FORBIDDEN);
use Apache2::Request;
use Digest::MD5 qw(md5_hex);


sub handler {

     my $r = shift;
     my $req = Apache2::Request->new($r);
     my $ts = $req->param("timestamp");
     my $key = $req->param("authkey");
     my $digest = md5_hex($ts);

     return $key eq $digest ? Apache2::Const::OK : 
Apache2::Const::FORBIDDEN;
}


1;


Thanks.