Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Plack/Middleware

Name	Size	Perms	Modified	Actions
[ .. / .. ]
AccessLog	-	drwxr-xr-x	2022-02-23 11:30:22	Del
AccessLog.pm	6.02 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Auth	-	drwxr-xr-x	2022-02-23 11:30:50	Del
BufferedStreaming.pm	1.72 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Chunked.pm	1.44 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Conditional.pm	2.1 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
ConditionalGET.pm	2.3 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
ContentLength.pm	1.37 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
ContentMD5.pm	1.13 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
ErrorDocument.pm	3.77 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
HTTPExceptions.pm	3.91 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Head.pm	745 B	-rw-r--r--	2018-02-10 09:23:44	Edit Del
IIS6ScriptNameFix.pm	1.18 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
IIS7KeepAliveFix.pm	1.13 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
JSONP.pm	1.79 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
LighttpdScriptNameFix.pm	2.24 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Lint.pm	7.07 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Log4perl.pm	2.05 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
LogDispatch.pm	1.54 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
NullLogger.pm	535 B	-rw-r--r--	2018-02-10 09:23:44	Edit Del
RearrangeHeaders.pm	1.39 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Recursive.pm	3.47 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Refresh.pm	1.54 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
ReverseProxy.pm	3.28 KB	-rw-r--r--	2019-02-19 16:42:46	Edit Del
Runtime.pm	1.01 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
SimpleContentFilter.pm	1.41 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
SimpleLogger.pm	1.75 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
StackTrace.pm	6.55 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
Static.pm	4.25 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del
XFramework.pm	891 B	-rw-r--r--	2018-02-10 09:23:44	Edit Del
XSendfile.pm	2.91 KB	-rw-r--r--	2018-02-10 09:23:44	Edit Del

Editing: ErrorDocument.pm (3.77 KB)

package Plack::Middleware::ErrorDocument;
use strict;
use warnings;
use parent qw(Plack::Middleware);
use Plack::MIME;
use Plack::Util;
use Plack::Util::Accessor qw( subrequest );

use HTTP::Status qw(is_error);

sub call {
    my $self = shift;
    my $env  = shift;

    my $r = $self->app->($env);

    $self->response_cb($r, sub {
        my $r = shift;
        unless (is_error($r->[0]) && exists $self->{$r->[0]}) {
            return;
        }

        my $path = $self->{$r->[0]};
        if ($self->subrequest) {
            for my $key (keys %$env) {
                unless ($key =~ /^psgi/) {
                    $env->{'psgix.errordocument.' . $key} = $env->{$key};
                }
            }

            # TODO: What if SCRIPT_NAME is not empty?
            $env->{REQUEST_METHOD} = 'GET';
            $env->{REQUEST_URI}    = $path;
            $env->{PATH_INFO}      = $path;
            $env->{QUERY_STRING}   = '';
            delete $env->{CONTENT_LENGTH};

            my $sub_r = $self->app->($env);
            if ($sub_r->[0] == 200) {
                $r->[1] = $sub_r->[1];
                if (@$r == 3) {
                    $r->[2] = $sub_r->[2];
                }
                else {
                    my $full_sub_response = '';
                    Plack::Util::foreach($sub_r->[2], sub {
                        $full_sub_response .= $_[0];
                    });

                    my $returned;
                    return sub {
                        if ($returned) {
                            return defined($_[0]) ? '' : undef;
                        }
                        $returned = 1;
                        return $full_sub_response;
                    }
                }
            }
            # TODO: allow 302 here?
        } else {
            my $h = Plack::Util::headers($r->[1]);
            $h->remove('Content-Length');
            $h->remove('Content-Encoding');
            $h->remove('Transfer-Encoding');
            $h->set('Content-Type', Plack::MIME->mime_type($path));

            open my $fh, "<", $path or die "$path: $!";
            if ($r->[2]) {
                $r->[2] = $fh;
            } else {
                my $done;
                return sub {
                    unless ($done) {
                        $done = 1;
                        return join '', <$fh>;
                    }
                    return defined $_[0] ? '' : undef;
                };
            };
        }
    });
}

1;

__END__

=head1 NAME

Plack::Middleware::ErrorDocument - Set Error Document based on HTTP status code

=head1 SYNOPSIS

  # in app.psgi
  use Plack::Builder;

  builder {
      enable "Plack::Middleware::ErrorDocument",
          500 => '/uri/errors/500.html', 404 => '/uri/errors/404.html',
          subrequest => 1;
      $app;
  };

=head1 DESCRIPTION

Plack::Middleware::ErrorDocument allows you to customize error screen
by setting paths (file system path or URI path) of error pages per
status code.

=head1 CONFIGURATIONS

=over 4

=item subrequest

A boolean flag to serve error pages using a new GET sub request.
Defaults to false, which means it serves error pages using file
system path.

  builder {
      enable "Plack::Middleware::ErrorDocument",
          502 => '/home/www/htdocs/errors/maint.html';
      enable "Plack::Middleware::ErrorDocument",
          404 => '/static/404.html', 403 => '/static/403.html', subrequest => 1;
      $app;
  };

This configuration serves 502 error pages from file system directly
assuming that's when you probably maintain database etc. but serves
404 and 403 pages using a sub request so your application can do some
logic there like logging or doing suggestions.

When using a subrequest, the subrequest should return a regular '200' response.

=back

=head1 AUTHOR

Tatsuhiko Miyagawa

=head1 SEE ALSO

=cut