package TransHandler; use warnings; use strict; use Apache::Constants qw(DECLINED); sub handler { my $r = shift; my $standardUri = "/pboard/PBoard.pm"; my $uri = $r->uri(); if ($uri =~ m|^/download/([^/]+)/(.+)|) { $r->uri($standardUri); $r->args("action=download2;file=$1"); return DECLINED; } # elsif return DECLINED; } # handler