r58418 - in /trunk/libplack-perl: ./ debian/ lib/ lib/Plack/ lib/Plack/App/ lib/Plack/Middleware/ lib/Plack/Middleware/Auth/ lib/Plack/Server/ t/Plack-Middleware/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon May 24 16:19:00 UTC 2010
Author: gregoa
Date: Mon May 24 16:18:37 2010
New Revision: 58418
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58418
Log:
New upstream release.
Modified:
trunk/libplack-perl/Changes
trunk/libplack-perl/META.yml
trunk/libplack-perl/debian/changelog
trunk/libplack-perl/lib/Plack.pm
trunk/libplack-perl/lib/Plack/App/File.pm
trunk/libplack-perl/lib/Plack/Builder.pm
trunk/libplack-perl/lib/Plack/Middleware/Auth/Basic.pm
trunk/libplack-perl/lib/Plack/Middleware/Conditional.pm
trunk/libplack-perl/lib/Plack/Middleware/XSendfile.pm
trunk/libplack-perl/lib/Plack/Request.pm
trunk/libplack-perl/lib/Plack/Response.pm
trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm
trunk/libplack-perl/t/Plack-Middleware/cgibin.t
Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Mon May 24 16:18:37 2010
@@ -1,6 +1,12 @@
Revision history for Perl extension Plack
Take a look at http://github.com/miyagawa/Plack/issues for the planned changes before 1.0 release.
+
+0.9938 Sun May 23 17:13:05 PDT 2010
+ - ErrorDocument: Added Content-Length to error responses (hachi)
+ - Improved docs about conditional middleware loading
+ - XSendfile: Updated (undocumented) environment key to switch frontend
+ - Auth::Basic: Added notes about how to use it with Apache (mod_perl and CGI) [RT #57436]
0.9937 Fri May 14 23:11:27 PDT 2010
- Fixed -I broken in 0.9936 (juster) #114
Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Mon May 24 16:18:37 2010
@@ -41,4 +41,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/miyagawa/Plack.git
-version: 0.9937
+version: 0.9938
Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Mon May 24 16:18:37 2010
@@ -1,3 +1,9 @@
+libplack-perl (0.9938-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Mon, 24 May 2010 18:17:42 +0200
+
libplack-perl (0.9937-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libplack-perl/lib/Plack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Mon May 24 16:18:37 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
use 5.008_001;
-our $VERSION = '0.9937';
+our $VERSION = '0.9938';
$VERSION = eval $VERSION;
1;
Modified: trunk/libplack-perl/lib/Plack/App/File.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/App/File.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/App/File.pm (original)
+++ trunk/libplack-perl/lib/Plack/App/File.pm Mon May 24 16:18:37 2010
@@ -106,13 +106,13 @@
sub return_403 {
my $self = shift;
- return [403, ['Content-Type' => 'text/plain'], ['forbidden']];
+ return [403, ['Content-Type' => 'text/plain', 'Content-Length' => 9], ['forbidden']];
}
# Hint: subclasses can override this to return undef to pass through 404
sub return_404 {
my $self = shift;
- return [404, ['Content-Type' => 'text/plain'], ['not found']];
+ return [404, ['Content-Type' => 'text/plain', 'Content-Length' => 9], ['not found']];
}
1;
Modified: trunk/libplack-perl/lib/Plack/Builder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Builder.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Builder.pm (original)
+++ trunk/libplack-perl/lib/Plack/Builder.pm Mon May 24 16:18:37 2010
@@ -199,9 +199,15 @@
ignored. Instead you should use C<< mount "/" => ... >> in the last
line to set the default fallback app.
+=head1 CONDITIONAL MIDDLEWARE SUPPORT
+
+You can use C<enable_if> to conditionally enable middleware based on
+the runtime environment. See L<Plack::Middleware::Conditional> for
+details.
+
=head1 SEE ALSO
-L<Plack::Middleware> L<Plack::App::URLMap>
+L<Plack::Middleware> L<Plack::App::URLMap> L<Plack::Middleware::Conditional>
=cut
Modified: trunk/libplack-perl/lib/Plack/Middleware/Auth/Basic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/Auth/Basic.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/Auth/Basic.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/Auth/Basic.pm Mon May 24 16:18:37 2010
@@ -95,6 +95,25 @@
=back
+=head1 LIMITATIONS
+
+This middleware expects that the application has a full access to the
+headers sent by clients in PSGI environment. That is normally the case
+with standalone Perl PSGI web servers such as L<Starman> or
+L<HTTP::Server::Simple::PSGI>.
+
+However, in a web server configuration where you can't achieve this
+(i.e. using your application via mod_perl, CGI or FastCGI), this
+middleware does not work since your application can't know the value
+of C<Authorization:> header.
+
+If you use Apache as a web server and CGI or mod_perl to run your PSGI
+application, you can use mod_rewrite to pass the Authorization header
+to the application with the rewrite rule like following.
+
+ RewriteEngine on
+ RewriteRule .* - [E=HTTP_AUTHORIZATION:%{HTTP:Authorization},L]
+
=head1 AUTHOR
Tatsuhiko Miyagawa
Modified: trunk/libplack-perl/lib/Plack/Middleware/Conditional.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/Conditional.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/Conditional.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/Conditional.pm Mon May 24 16:18:37 2010
@@ -66,7 +66,7 @@
# Transcode Jpeg on the fly for mobile clients
builder {
enable 'MobileDetector';
- enable_if { $_[0]->{'psgix.mobile_detected'} }
+ enable_if { $_[0]->{'plack.mobile_detected'} }
'TranscodeJpeg', max_size => 30_000;
$app;
};
Modified: trunk/libplack-perl/lib/Plack/Middleware/XSendfile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/XSendfile.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/XSendfile.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/XSendfile.pm Mon May 24 16:18:37 2010
@@ -53,7 +53,7 @@
sub _variation {
my($self, $env) = @_;
- $self->variation || $env->{'psgix.sendfile.type'} || $env->{HTTP_X_SENDFILE_TYPE};
+ $self->variation || $env->{'plack.xsendfile.type'} || $env->{HTTP_X_SENDFILE_TYPE};
}
1;
Modified: trunk/libplack-perl/lib/Plack/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Request.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Mon May 24 16:18:37 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use 5.008_001;
-our $VERSION = '0.9937';
+our $VERSION = '0.9938';
$VERSION = eval $VERSION;
use HTTP::Headers;
Modified: trunk/libplack-perl/lib/Plack/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Response.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Mon May 24 16:18:37 2010
@@ -1,7 +1,7 @@
package Plack::Response;
use strict;
use warnings;
-our $VERSION = '0.9937';
+our $VERSION = '0.9938';
$VERSION = eval $VERSION;
use Plack::Util::Accessor qw(body status);
Modified: trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Mon May 24 16:18:37 2010
@@ -1,6 +1,6 @@
package Plack::Server::ServerSimple;
use strict;
-our $VERSION = '0.9937';
+our $VERSION = '0.9938';
$VERSION = eval $VERSION;
use parent qw(Plack::Handler::HTTP::Server::Simple);
Modified: trunk/libplack-perl/t/Plack-Middleware/cgibin.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/cgibin.t?rev=58418&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/cgibin.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/cgibin.t Mon May 24 16:18:37 2010
@@ -1,6 +1,6 @@
use strict;
use Test::More;
-use Test::Requires { 'CGI::Emulate::PSGI' => 0.07, 'CGI::Compile' => 0.03 };
+use Test::Requires { 'CGI::Emulate::PSGI' => 0.10, 'CGI::Compile' => 0.03 };
use Plack::Test;
use HTTP::Request::Common;
use Plack::App::CGIBin;
More information about the Pkg-perl-cvs-commits
mailing list