package Apache::StripSession;
# file: Apache/StripSession.pm
use strict;
use Apache::Constants qw(:common);

sub handler {
    my $r = shift;
    my($junk, $session, @rest) = split '/', $r->uri;
    return DECLINED unless $session =~ /^[0-9a-h]{8}$/;
    $r->subprocess_env('SESSION_ID' => $session);
    my $new_uri = join "/", "", @rest;
    $r->uri($new_uri);
    return DECLINED;
}

1;
__END__