[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 |
---|
[65] | 25 | Authorization::Roles |
---|
[77] | 26 | Prototype |
---|
[1] | 27 | /; |
---|
| 28 | |
---|
[4] | 29 | use RPC::XML; |
---|
| 30 | $RPC::XML::FORCE_STRING_ENCODING = 1; |
---|
| 31 | |
---|
[1] | 32 | extends 'Catalyst'; |
---|
| 33 | |
---|
| 34 | our $VERSION = '0.01'; |
---|
| 35 | $VERSION = eval $VERSION; |
---|
| 36 | |
---|
| 37 | # Configure the application. |
---|
| 38 | # |
---|
| 39 | # Note that settings in sophie.conf (or other external |
---|
| 40 | # configuration file that you set up manually) take precedence |
---|
| 41 | # over this when using ConfigLoader. Thus configuration |
---|
| 42 | # details given here can function as a default configuration, |
---|
| 43 | # with an external configuration file acting as an override for |
---|
| 44 | # local deployment. |
---|
| 45 | |
---|
| 46 | __PACKAGE__->config( |
---|
| 47 | name => 'Sophie', |
---|
| 48 | # Disable deprecated behavior needed by old applications |
---|
| 49 | disable_component_resolution_regex_fallback => 1, |
---|
[3] | 50 | default_view => 'TT', |
---|
[16] | 51 | xmlrpc => { |
---|
| 52 | xml_encoding => 'UTF-8', |
---|
| 53 | }, |
---|
[4] | 54 | |
---|
| 55 | 'authentication' => { |
---|
| 56 | default_realm => 'members', |
---|
| 57 | realms => { |
---|
| 58 | members => { |
---|
| 59 | credential => { |
---|
| 60 | class => 'Password', |
---|
| 61 | password_field => 'password', |
---|
[35] | 62 | password_type => 'crypted' |
---|
[4] | 63 | }, |
---|
| 64 | store => { |
---|
[35] | 65 | class => 'DBIx::Class', |
---|
| 66 | user_model => 'Base::Users', |
---|
[65] | 67 | role_relation => 'Roles', |
---|
[35] | 68 | role_field => 'rolename', |
---|
| 69 | id_field => 'mail', |
---|
[65] | 70 | # use_userdata_from_session => 1, |
---|
[4] | 71 | }, |
---|
| 72 | }, |
---|
| 73 | }, |
---|
| 74 | }, |
---|
[1] | 75 | ); |
---|
| 76 | |
---|
[2] | 77 | __PACKAGE__->config->{session} = { |
---|
[4] | 78 | expires => 3600, |
---|
[42] | 79 | dbi_dbh => 'Session', |
---|
[2] | 80 | dbi_table => 'sessions', |
---|
[42] | 81 | # dbi_dsn => 'dbi:Pg:' . $config->{dbconnect}, |
---|
| 82 | # dbi_user => $config->{dbuser}, |
---|
| 83 | # dbi_pass => $config->{dbpassword}, |
---|
[2] | 84 | }; |
---|
| 85 | |
---|
[1] | 86 | # Start the application |
---|
| 87 | __PACKAGE__->setup(); |
---|
| 88 | |
---|
| 89 | =head1 NAME |
---|
| 90 | |
---|
| 91 | Sophie - Catalyst based application |
---|
| 92 | |
---|
| 93 | =head1 SYNOPSIS |
---|
| 94 | |
---|
| 95 | script/sophie_server.pl |
---|
| 96 | |
---|
| 97 | =head1 DESCRIPTION |
---|
| 98 | |
---|
| 99 | [enter your description here] |
---|
| 100 | |
---|
| 101 | =head1 SEE ALSO |
---|
| 102 | |
---|
| 103 | L<Sophie::Controller::Root>, L<Catalyst> |
---|
| 104 | |
---|
| 105 | =head1 AUTHOR |
---|
| 106 | |
---|
| 107 | Olivier Thauvin |
---|
| 108 | |
---|
| 109 | =head1 LICENSE |
---|
| 110 | |
---|
| 111 | This library is free software. You can redistribute it and/or modify |
---|
| 112 | it under the same terms as Perl itself. |
---|
| 113 | |
---|
| 114 | =cut |
---|
| 115 | |
---|
| 116 | 1; |
---|