El problema es que nosotros ya habíamos armado un login por nuestra cuenta sin seguir el tutorial de Catalyst (https://metacpan.org/pod/Catalyst::Manual::Tutorial::05_Authentication) usando una base de datos MySQL externa a la del tutorial. Ahora, el tutorial me está pidiendo que en el objeto principal del proyecto agregue un package para configurar la autenticación de SimpleDB que es el módulo que usa.
¿Alguno me puede dar una mano para configurar esto? Ya que cuando agrego el package me da error al iniciar el servidor.
Código del objeto principal:
Using perl Syntax Highlighting
- package MvcTest;
- use Moose;
- use namespace::autoclean;
- use Catalyst::Runtime 5.80;
- # Set flags and add plugins for the application.
- #
- # Note that ORDERING IS IMPORTANT here as plugins are initialized in order,
- # therefore you almost certainly want to keep ConfigLoader at the head of the
- # list if you're using it.
- #
- # -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
- StackTrace
- Authentication
- Session
- Session::Store::File
- Session::State::Cookie
- /;
- extends 'Catalyst';
- our $VERSION = '0.01';
- # Configure the application.
- #
- # Note that settings in mvctest.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 => 'MvcTest',
- # Disable deprecated behavior needed by old applications
- disable_component_resolution_regex_fallback => 1,
- enable_catalyst_header => 1, # Send X-Catalyst header
- );
- __PACKAGE__->config(
- # Configure the view
- 'View::HTML' => {
- #Set the location for TT files
- INCLUDE_PATH => [
- __PACKAGE__->path_to( 'root', 'views' ),
- ],
- }
- );
- __PACKAGE__->config(
- 'View::JSON' => {
- allow_callback => 1, # defaults to 0
- callback_param => 'cb', # defaults to 'callback'
- #expose_stash => [ qw(json_data json_status) ], # defaults to everything
- #expose_stash => 'json_data', # defaults to everything
- #expose_stash => [ qr/^json_/ ]
- }
- );
- # Start the application
- __PACKAGE__->setup();
- #Agregado por Natanael
- #Configure SimpleDB Authentication
- __PACKAGE__->config(
- 'Plugin::Authentication' => {
- default => {
- class => 'SimpleDB',
- user_model => 'DB::User',
- password_type => 'clear',
- },
- },
- );
- #Fin Nata
- =encoding utf8
- =head1 NAME
- MvcTest - Catalyst based application
- =head1 SYNOPSIS
- script/mvctest_server.pl
- =head1 DESCRIPTION
- [enter your description here]
- =head1 SEE ALSO
- L<MvcTest::Controller::Root>, L<Catalyst>
- =head1 AUTHOR
- Catalyst developer
- =head1 LICENSE
- This library is free software. You can redistribute it and/or modify
- it under the same terms as Perl itself.
- =cut
- 1;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
