diff options
author | Buchan Milne <buchan@mageia.org> | 2010-10-26 14:51:48 +0000 |
---|---|---|
committer | Buchan Milne <buchan@mageia.org> | 2010-10-26 14:51:48 +0000 |
commit | 601b41083cf7c2186ecce70ec07aebdb9310edd6 (patch) | |
tree | 23d14b17ec560316d94f0d840f47a4ae48e9d7b3 /lib/CatDap.pm | |
parent | 195308dcc10a015aaae5fd1f1bd0be817c2127bd (diff) | |
download | identity-601b41083cf7c2186ecce70ec07aebdb9310edd6.tar identity-601b41083cf7c2186ecce70ec07aebdb9310edd6.tar.gz identity-601b41083cf7c2186ecce70ec07aebdb9310edd6.tar.bz2 identity-601b41083cf7c2186ecce70ec07aebdb9310edd6.tar.xz identity-601b41083cf7c2186ecce70ec07aebdb9310edd6.zip |
Clean up repo
Diffstat (limited to 'lib/CatDap.pm')
-rw-r--r-- | lib/CatDap.pm | 91 |
1 files changed, 91 insertions, 0 deletions
diff --git a/lib/CatDap.pm b/lib/CatDap.pm new file mode 100644 index 0000000..d9a37a9 --- /dev/null +++ b/lib/CatDap.pm @@ -0,0 +1,91 @@ +package CatDap; +use Moose; +use namespace::autoclean; + +use Catalyst::Runtime 5.80; + +# Set flags and add plugins for the application +# +# -Debug: activates the debug mode for very useful log messages +# ConfigLoader: will load the configuration from a Config::General file in the +# application's home directory +# Static::Simple: will serve static files from the application's root +# directory + +use Catalyst qw/ + -Debug + ConfigLoader + Static::Simple + Session + Session::State::Cookie + Session::Store::File + Captcha + Authentication + I18N +/; + +extends 'Catalyst'; + +our $VERSION = '0.01'; +$VERSION = eval $VERSION; + +# Configure the application. +# +# Note that settings in catdap.conf (or other external +# configuration file that you set up manually) take precedence +# over this when using ConfigLoader. Thus configuration +# details given here can function as a default configuration, +# with an external configuration file acting as an override for +# local deployment. + +__PACKAGE__->config( + name => 'CatDap', + # Disable deprecated behavior needed by old applications + disable_component_resolution_regex_fallback => 1, +); + +sub begin : Private { + my ( $self, $c ) = @_; + + my $locale = $c->request->param('locale'); + $c->response->headers->push_header( 'Vary' => 'Accept-Language' ); # hmm vary and param? + $c->languages( $locale ? [ $locale ] : undef ); +} + + +#c->languages(['af']); + +# Start the application +__PACKAGE__->setup(); + + +=head1 NAME + +CatDap - Catalyst based application + +=head1 SYNOPSIS + + script/catdap_server.pl + +=head1 DESCRIPTION + +[enter your description here] + +=head1 SEE ALSO + +L<CatDap::Controller::Root>, L<Catalyst> + +=head1 AUTHOR + +Buchan Milne + +=head1 LICENSE + +This library is free software. You can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut + +sub end : ActionClass('RenderView') {} + +1; |