[1] | 1 | package Sophie; |
---|
| 2 | use Moose; |
---|
| 3 | use namespace::autoclean; |
---|
| 4 | use Catalyst::Runtime 5.80; |
---|
[2] | 5 | use Sophie::Base; |
---|
[1] | 6 | |
---|
| 7 | # Set flags and add plugins for the application |
---|
| 8 | # |
---|
| 9 | # -Debug: activates the debug mode for very useful log messages |
---|
| 10 | # ConfigLoader: will load the configuration from a Config::General file in the |
---|
| 11 | # application's home directory |
---|
| 12 | # Static::Simple: will serve static files from the application's root |
---|
| 13 | # directory |
---|
| 14 | |
---|
| 15 | use Catalyst qw/ |
---|
| 16 | ConfigLoader |
---|
| 17 | Static::Simple |
---|
[2] | 18 | Session |
---|
| 19 | Session::Store::DBI |
---|
| 20 | Session::State::Cookie |
---|
| 21 | Compress::Zlib |
---|
[19] | 22 | Server |
---|
| 23 | Server::XMLRPC |
---|
[4] | 24 | Authentication |
---|
[1] | 25 | /; |
---|
| 26 | |
---|
[4] | 27 | use RPC::XML; |
---|
| 28 | $RPC::XML::FORCE_STRING_ENCODING = 1; |
---|
| 29 | |
---|
[1] | 30 | extends 'Catalyst'; |
---|
| 31 | |
---|
| 32 | our $VERSION = '0.01'; |
---|
| 33 | $VERSION = eval $VERSION; |
---|
| 34 | |
---|
| 35 | # Configure the application. |
---|
| 36 | # |
---|
| 37 | # Note that settings in sophie.conf (or other external |
---|
| 38 | # configuration file that you set up manually) take precedence |
---|
| 39 | # over this when using ConfigLoader. Thus configuration |
---|
| 40 | # details given here can function as a default configuration, |
---|
| 41 | # with an external configuration file acting as an override for |
---|
| 42 | # local deployment. |
---|
| 43 | |
---|
| 44 | __PACKAGE__->config( |
---|
| 45 | name => 'Sophie', |
---|
| 46 | # Disable deprecated behavior needed by old applications |
---|
| 47 | disable_component_resolution_regex_fallback => 1, |
---|
[3] | 48 | default_view => 'TT', |
---|
[16] | 49 | xmlrpc => { |
---|
| 50 | xml_encoding => 'UTF-8', |
---|
| 51 | }, |
---|
[4] | 52 | |
---|
| 53 | 'authentication' => { |
---|
| 54 | default_realm => 'members', |
---|
| 55 | realms => { |
---|
| 56 | members => { |
---|
| 57 | credential => { |
---|
| 58 | class => 'Password', |
---|
| 59 | password_field => 'password', |
---|
[35] | 60 | password_type => 'crypted' |
---|
[4] | 61 | }, |
---|
| 62 | store => { |
---|
[35] | 63 | class => 'DBIx::Class', |
---|
| 64 | user_model => 'Base::Users', |
---|
| 65 | role_relation => 'UsersRoles', |
---|
| 66 | role_field => 'rolename', |
---|
| 67 | id_field => 'mail', |
---|
[4] | 68 | }, |
---|
| 69 | }, |
---|
| 70 | }, |
---|
| 71 | }, |
---|
[1] | 72 | ); |
---|
| 73 | |
---|
[2] | 74 | __PACKAGE__->config->{session} = { |
---|
[4] | 75 | expires => 3600, |
---|
[42] | 76 | dbi_dbh => 'Session', |
---|
[2] | 77 | dbi_table => 'sessions', |
---|
[42] | 78 | # dbi_dsn => 'dbi:Pg:' . $config->{dbconnect}, |
---|
| 79 | # dbi_user => $config->{dbuser}, |
---|
| 80 | # dbi_pass => $config->{dbpassword}, |
---|
[2] | 81 | }; |
---|
| 82 | |
---|
[1] | 83 | # Start the application |
---|
| 84 | __PACKAGE__->setup(); |
---|
| 85 | |
---|
| 86 | =head1 NAME |
---|
| 87 | |
---|
| 88 | Sophie - Catalyst based application |
---|
| 89 | |
---|
| 90 | =head1 SYNOPSIS |
---|
| 91 | |
---|
| 92 | script/sophie_server.pl |
---|
| 93 | |
---|
| 94 | =head1 DESCRIPTION |
---|
| 95 | |
---|
| 96 | [enter your description here] |
---|
| 97 | |
---|
| 98 | =head1 SEE ALSO |
---|
| 99 | |
---|
| 100 | L<Sophie::Controller::Root>, L<Catalyst> |
---|
| 101 | |
---|
| 102 | =head1 AUTHOR |
---|
| 103 | |
---|
| 104 | Olivier Thauvin |
---|
| 105 | |
---|
| 106 | =head1 LICENSE |
---|
| 107 | |
---|
| 108 | This library is free software. You can redistribute it and/or modify |
---|
| 109 | it under the same terms as Perl itself. |
---|
| 110 | |
---|
| 111 | =cut |
---|
| 112 | |
---|
| 113 | 1; |
---|