view release on metacpan or  search on metacpan

lib/Apache/AxKit/Plugin/QueryStringCacheRegexp.pm  view on Meta::CPAN

our $VERSION = '0.04';

sub handler {
    my $r = shift;
    my $cache_extra;

    # An extra bend to correctly make multiple-valued CGI-Parameters
    # significant by concatenating them. (The whole exercise is to
    # create a "axkit_cache_extra"-string that depends as little as
    # possible on how the QueryString "looks"; i.e. the order of the
    # parameters should not be significant unless there are multiple
    # occurences of the same key)
    my @args = $r->args();
    my %args;
    while (@args) {$args{ shift(@args) } .= shift(@args);}
    
    my $use = $r->dir_config('AxQueryStringCacheRegexpUse') || '^\w+$';             #'
    my $ignore = $r->dir_config('AxQueryStringCacheRegexpIgnore') || undef;

    foreach (sort keys %args) {