view release on metacpan or  search on metacpan

lib/Apache/Voodoo/Soap.pm  view on Meta::CPAN

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
                        $params->{$k} = $v;
                }
        }
        $params->{'ARGV'}->[$c] = $_;
        $c++;
}
 
my $uri      = $self->{'mp'}->uri();
my $filename = $self->{'mp'}->filename();
 
# if the SOAP endpoint happens to overlap with a directory name
# libapr "helpfully" appends a / to the end of the uri and filenames.
$uri      =~ s/\/$//;
$filename =~ s/\/$//;
 
$filename =~ s/\.tmpl$//;
unless ($self->{'run'}->{'method'} eq 'handle') {
        $filename =~ s/([\w_]+)$/$self->{'run'}->{'method'}_$1/i;
        $uri      =~ s/([\w_]+)$/$self->{'run'}->{'method'}_$1/i;
}