File Coverage

blib/lib/Plack/Middleware/IIS6ScriptNameFix.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition	3	6	50.0
subroutine	4	4	100.0
pod	1	1	100.0
total	30	34	88.2

package Plack::Middleware::IIS6ScriptNameFix;

use strict;
use parent 'Plack::Middleware';
use Plack::Util::Accessor qw(force);

sub call {
    my($self, $env) = @_;

    if ($self->force || ($env->{SERVER_SOFTWARE} && $env->{SERVER_SOFTWARE} =~ /IIS\/[6-9]\.[0-9]/)) {
        my @script_name = split(m!/!, $env->{PATH_INFO});
        my @path_translated = split(m!/|\\\\?!, $env->{PATH_TRANSLATED});
        my @path_info;

        while ($script_name[$#script_name] eq $path_translated[$#path_translated]) {
            pop(@path_translated);
            unshift(@path_info, pop(@script_name));
        }

        unshift(@path_info, '', '');

        $env->{PATH_INFO} = join('/', @path_info);
        $env->{SCRIPT_NAME} = join('/', @script_name);
    }

    return $self->app->($env);
}

1;

__END__