Revision history for Perl extension Catalyst::Plugin::RequireSSL
+0.05 2005-09-15 12:15:00
+ - Updated skipped tests to run if Catalyst >= 5.5.
+
0.04 2005-09-14 13:30:00
- Fixed bug in redirect code that ignored duplicate key names.
- Strip all output content when doing a redirect from HTTP -> HTTPS
---
name: Catalyst-Plugin-RequireSSL
-version: 0.04
+version: 0.05
author:
- 'Andy Grundman, <andy@hybridized.org>'
abstract: Force SSL mode on select pages
provides:
Catalyst::Plugin::RequireSSL:
file: lib/Catalyst/Plugin/RequireSSL.pm
- version: 0.04
+ version: 0.05
generated_by: Module::Build version 0.2611
use base qw/Class::Accessor::Fast/;
use NEXT;
-our $VERSION = '0.04';
+our $VERSION = '0.05';
__PACKAGE__->mk_accessors( qw/_require_ssl _ssl_strip_output/ );
# do not allow any output to be displayed on the insecure page
if ( $c->_ssl_strip_output ) {
- $c->res->body( undef );
+ $c->res->body( '' );
}
return $c->NEXT::finalize(@_);
# test that it doesn't redirect if already in SSL mode\r
SKIP:\r
{\r
- skip "These tests require a patch to Catalyst", 7;\r
- # patch is to Catalyst::Engine::HTTP::Base in 5.3x\r
- # Catalyst::Engine::Test in 5.5\r
+ if ( Catalyst->VERSION < 5.5 ) {\r
+ skip "These tests require Catalyst >= 5.5", 7;\r
+ }\r
ok( $res = request('https://localhost/ssl/secured'), 'request ok' );\r
is( $res->code, 200, 'SSL request, ok' );\r
\r
# test redirect back to HTTP
SKIP:
{
- skip "These tests require a patch to Catalyst", 2;
- # patch is to Catalyst::Engine::HTTP::Base in 5.3x
- # Catalyst::Engine::Test in 5.5
+ if ( Catalyst->VERSION < 5.5 ) {
+ skip "These tests require Catalyst >= 5.5", 2;
+ }
ok( $res = request('https://secure.mydomain.com/ssl/unsecured'), 'request ok' );
is( $res->header('location'), 'http://www.mydomain.com/ssl/unsecured', 'other domain redirect uri ok' );
}
# test redirect back to HTTP, should not redirect
SKIP:
{
- skip "These tests require a patch to Catalyst", 2;
- # patch is to Catalyst::Engine::HTTP::Base in 5.3x
- # Catalyst::Engine::Test in 5.5
+ if ( Catalyst->VERSION < 5.5 ) {
+ skip "These tests require Catalyst >= 5.5", 2;
+ }
ok( $res = request('https://localhost/ssl/unsecured'), 'request ok' );
is( $res->code, 200, 'remain in SSL ok' );
}