Plack

 view release on metacpan or  search on metacpan

eg/dot-psgi/image.psgi  view on Meta::CPAN

use File::Basename;
my $path = $ENV{PSGI_IMAGE_FILE} || dirname(__FILE__) . "/../../share/baybridge.jpg";
my $handler = sub {
    open my $fh, "<:raw", $path or die $!;
    return [ 200, [ "Content-Type" => "image/jpeg", "X-Sendfile" => $path, "Content-Length" => -s $fh ], $fh ];
};

eg/dot-psgi/static.psgi  view on Meta::CPAN

use Plack::Builder;
use File::Basename qw(dirname);

my $handler = sub {
    return [ 404, [ "Content-Type" => "text/plain" ], [ "Not Found" ] ];
};

builder {
    enable "Plack::Middleware::ConditionalGET";
    enable "Plack::Middleware::Static",
        path => qr/./, root => dirname(__FILE__) . '/static';
    $handler;

lib/Plack/App/WrapCGI.pm  view on Meta::CPAN

                close $stdoutr;
                close $stdinw;

                local %ENV = (%ENV, CGI::Emulate::PSGI->emulate_environment($env));

                open( STDOUT, ">&=" . fileno($stdoutw) )
                  or Carp::croak "Cannot dup STDOUT: $!";
                open( STDIN, "<&=" . fileno($stdinr) )
                  or Carp::croak "Cannot dup STDIN: $!";

                chdir(File::Basename::dirname($script));
                exec($script) or Carp::croak("cannot exec: $!");

                exit(2);
            }

            close $stdoutw;
            close $stdinr;

            syswrite($stdinw, slurp_fh($env->{'psgi.input'}));
            # close STDIN so child will stop waiting

lib/Plack/Runner.pm  view on Meta::CPAN

            no warnings;
            my $eval = "builder { $self->{eval};";
            $eval .= "Plack::Util::load_psgi(\$psgi);" if $psgi;
            $eval .= "}";
            eval $eval or die $@;
        };
    }

    $psgi ||= "app.psgi";

    require File::Basename;
    my $lib = File::Basename::dirname($psgi) . "/lib";
    $self->loader->watch($lib) if -e $lib;
    $self->loader->watch($psgi);
    build { Plack::Util::load_psgi $psgi };
}

sub watch {
    my($self, @dir) = @_;

    push @{$self->{watch}}, @dir
        if $self->{loader} eq 'Restarter';

t/Plack-Middleware/cgi-bin/cgi_dir.cgi  view on Meta::CPAN

#!/usr/bin/env perl
use File::Basename qw/dirname/;
use Cwd;

my $cgi_dir  = Cwd::abs_path( dirname( __FILE__ ) );
my $exec_dir = Cwd::abs_path( Cwd::getcwd );
my $result = $cgi_dir eq $exec_dir ? "MATCH" : "DIFFERENT";
if ($result ne "MATCH") {
    $result .= "\nCGI_DIR: $cgi_dir\nEXEC_DIR: $exec_dir\n";
}

print "Content-Type: text/plain\n\n", $result;

t/Plack-Middleware/cgibin_exec.t  view on Meta::CPAN

    my $cb = shift;

    my $res = $cb->(GET "http://localhost/hello.sh?name=foo");
    is $res->code, 200;
    like $res->content, qr/Hello foo/;
    like $res->content, qr/QUERY_STRING is name=foo/;
};

# test that current directory is same the script directory
{
    use File::Basename qw/basename dirname/;
    my $tmp = File::Temp->new(CLEANUP => 1);
    print $tmp <<"...";
#!$^X
use CGI;
use File::Basename qw/dirname/;
use Cwd;

my \$cgi_dir  = Cwd::abs_path( dirname( __FILE__ ) );
my \$exec_dir = Cwd::abs_path( Cwd::getcwd );
my \$result = \$cgi_dir eq \$exec_dir ? "MATCH" : "DIFFERENT";
if (\$result ne "MATCH") {
    \$result .= "\nCGI_DIR: \$cgi_dir\nEXEC_DIR: \$exec_dir\n";
}

my \$q = CGI->new;

t/Plack-Middleware/wrapcgi_exec.t  view on Meta::CPAN

    undef $tmp;
};

# test that current directory is same the script directory
{
    my $tmp = File::Temp->new(CLEANUP => 1);
    print $tmp <<"...";
#!$^X
use CGI;
use File::Basename qw/dirname/;
use Cwd;

my \$cgi_dir  = Cwd::abs_path( dirname( __FILE__ ) );
my \$exec_dir = Cwd::abs_path( Cwd::getcwd );
my \$result = \$cgi_dir eq \$exec_dir ? "MATCH" : "DIFFERENT";
if (\$result ne "MATCH") {
    \$result .= "\nCGI_DIR: \$cgi_dir\nEXEC_DIR: \$exec_dir\n";
}

my \$q = CGI->new;

 view all matches for this distribution
 view release on metacpan -  search on metacpan