- my $self = shift;
- $self->{path} = $self->{cgi}->url(-absolute=>1, -path_info=>1);
- my $loc = $self->{cgi}->url(-absolute=>1);
- no warnings 'uninitialized';
- $self->{path} =~ s/^($loc)?\///;
- $self->parse_path;
- $self->parse_args;
+ my $self = shift;
+ my $cgi = $self->{cgi};
+
+ # Reconstruct the request headers (as far as this is possible)
+ $self->headers_in(Maypole::Headers->new);
+ for my $http_header ($cgi->http) {
+ (my $field_name = $http_header) =~ s/^HTTPS?_//;
+ $self->headers_in->set($field_name => $cgi->http($http_header));
+ }
+
+ $self->{path} = $cgi->url( -absolute => 1, -path_info => 1 );
+ my $loc = $cgi->url( -absolute => 1 );
+ no warnings 'uninitialized';
+ $self->{path} .= '/' if $self->{path} eq $loc;
+ $self->{path} =~ s/^($loc)?\///;
+ $self->parse_path;
+ $self->parse_args;