1 package Catalyst::Plugin::RequireSSL;
4 use base qw/Class::Accessor::Fast/;
9 __PACKAGE__->mk_accessors( qw/_require_ssl _allow_ssl _ssl_strip_output/ );
16 if ( !$c->req->secure && $c->req->method ne "POST" ) {
17 my $redir = $c->_redirect_uri('https');
18 if ( $c->config->{require_ssl}->{disabled} ) {
19 $c->log->warn( "RequireSSL: Would have redirected to $redir" );
22 $c->_ssl_strip_output(1);
23 $c->res->redirect( $redir );
37 # Do not redirect static files (only works with Static::Simple)
38 if ( $c->isa( "Catalyst::Plugin::Static::Simple" ) ) {
39 return $c->NEXT::finalize(@_) if $c->_static_file;
42 # redirect back to non-SSL mode
46 # we're not in SSL mode
47 last REDIRECT if !$c->req->secure;
49 last REDIRECT if $c->req->method eq "POST";
50 # we're already required to be in SSL for this request
51 last REDIRECT if $c->_require_ssl;
52 # or the user doesn't want us to redirect
53 last REDIRECT if $c->config->{require_ssl}->{remain_in_ssl} || $c->_allow_ssl;
55 $c->res->redirect( $c->_redirect_uri('http') );
58 # do not allow any output to be displayed on the insecure page
59 if ( $c->_ssl_strip_output ) {
63 return $c->NEXT::finalize(@_);
71 # disable the plugin when running under certain engines which don't
73 if ( $c->engine =~ /Catalyst::Engine::HTTP/ ) {
74 $c->config->{require_ssl}->{disabled} = 1;
75 $c->log->warn( "RequireSSL: Disabling SSL redirection while running "
76 . "under " . $c->engine );
81 my ( $c, $type ) = @_;
83 # XXX: Cat needs a $c->req->host method...
84 # until then, strip off the leading protocol from base
85 if ( !$c->config->{require_ssl}->{$type} ) {
86 my $host = $c->req->base;
87 $host =~ s/^http(s?):\/\///;
88 $c->config->{require_ssl}->{$type} = $host;
91 if ( $c->config->{require_ssl}->{$type} !~ /\/$/xms ) {
92 $c->config->{require_ssl}->{$type} .= '/';
96 = $type . '://' . $c->config->{require_ssl}->{$type} . $c->req->path;
98 if ( scalar $c->req->param ) {
100 foreach my $arg ( sort keys %{ $c->req->params } ) {
101 if ( ref $c->req->params->{$arg} ) {
102 my $list = $c->req->params->{$arg};
103 push @params, map { "$arg=" . $_ } sort @{$list};
106 push @params, "$arg=" . $c->req->params->{$arg};
109 $redir .= '?' . join( '&', @params );
112 if ( $c->config->{require_ssl}->{no_cache} ) {
113 delete $c->config->{require_ssl}->{$type};
124 Catalyst::Plugin::RequireSSL - Force SSL mode on select pages
130 MyApp->setup( qw/RequireSSL/ );
132 MyApp->config->{require_ssl} = {
133 https => 'secure.mydomain.com',
134 http => 'www.mydomain.com',
139 # in any controller methods that should be secured
144 Use this plugin if you wish to selectively force SSL mode on some of your web
145 pages, for example a user login form or shopping cart.
147 Simply place $c->require_ssl calls in any controller method you wish to be
150 This plugin will automatically disable itself if you are running under the
151 standalone HTTP::Daemon Catalyst server. A warning message will be printed to
152 the log file whenever an SSL redirect would have occurred.
156 If you utilize different servers or hostnames for non-SSL and SSL requests,
157 and you rely on a session cookie to determine redirection (i.e for a login
158 page), your cookie must be visible to both servers. For more information, see
159 the documentation for the Session plugin you are using.
163 Configuration is optional. You may define the following configuration values:
167 If your SSL domain name is different from your non-SSL domain, set this value.
169 http => $non_ssl_host
171 If you have set the https value above, you must also set the hostname of your
176 If you'd like your users to remain in SSL mode after visiting an SSL-required
177 page, you can set this option to 1. By default, this option is disabled and
178 users will be redirected back to non-SSL mode as soon as possible.
182 If you have a wildcard certificate you will need to set this option if you are
183 using multiple domains on one instance of Catalyst.
189 Call require_ssl in any controller method you wish to be secured.
193 The browser will be redirected to the same path on your SSL server. POST
194 requests are never redirected.
198 Call allow_ssl in any controller method you wish to access both in SSL and
203 The browser will not be redirected, independently of whether the request was
204 made to the SSL or non-SSL server.
208 Disables this plugin if running under an engine which does not support SSL.
212 Performs the redirect to SSL url if required.
216 When viewing an SSL-required page that uses static files served from the
217 Static plugin, the static files are redirected to the non-SSL path.
219 In order to get the correct behaviour where static files are not redirected,
220 you should use the Static::Simple plugin or always serve static files
221 directly from your web server.
225 L<Catalyst>, L<Catalyst::Plugin::Static::Simple>
229 Andy Grundman, <andy@hybridized.org>
233 Simon Elliott <simon@browsing.co.uk> (support for wildcards)
237 This program is free software, you can redistribute it and/or modify it under
238 the same terms as Perl itself.