3 use namespace::autoclean;
5 use Catalyst::Runtime 5.80;
7 # Set flags and add plugins for the application
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
15 use parent qw/Catalyst/;
23 Authentication::Store::NDWeb
24 Authentication::Credential::Password
29 Session::DynamicExpiry
32 Session::State::Cookie
40 our $VERSION = '0.01';
41 $VERSION = eval $VERSION;
44 system 'killall','-USR1', 'ndbot.pl';
47 #$SIG{__WARN__} = sub { NDWeb->log->warn(@_); };
49 # Configure the application.
51 # Note that settings in ndweb.conf (or other external
52 # configuration file that you set up manually) take precedence
53 # over this when using ConfigLoader. Thus configuration
54 # details given here can function as a default configuration,
55 # with an external configuration file acting as an override for
60 # Disable deprecated behavior needed by old applications
61 disable_component_resolution_regex_fallback => 1,
63 __PACKAGE__->config->{'Plugin::Authentication'}{'use_session'} = 1;
64 __PACKAGE__->config(session => {
65 storage => "/tmp/ndweb-$>/session",
66 directory_umask => 077,
70 __PACKAGE__->config( "Plugin::Cache" => {
72 class => "Cache::FileCache",
73 cache_root => "/tmp/ndweb-$>",
75 default_expires_in => 3600,
76 directory_umask => 077,
80 __PACKAGE__->config( page_cache => {
81 set_http_headers => 1,
85 __PACKAGE__->config( default_model => 'Model');
86 __PACKAGE__->config( encoding => 'UTF-8');
87 # Start the application
90 __PACKAGE__->deny_access_unless('/users',[qw/admin_users/]);
91 __PACKAGE__->allow_access_if('/users/sms',[qw/users_sms/]);
92 __PACKAGE__->allow_access_if('/users/postsms',[qw/users_sms/]);
93 __PACKAGE__->deny_access_unless('/alliances',[qw/alliances/]);
94 __PACKAGE__->deny_access_unless('/alliances/resources',[qw/alliances_resources/]);
95 __PACKAGE__->deny_access_unless('/graphs/alliancevsintel',[qw/graphs_intel/]);
96 __PACKAGE__->deny_access_unless('/graphs/avgalliancevsintel',[qw/graphs_intel/]);
97 __PACKAGE__->deny_access_unless('/members',[qw/members/]);
98 __PACKAGE__->allow_access_if('/members/postowncoords',[qw/attack_menu/]);
99 __PACKAGE__->deny_access_unless('/members/defenders',[qw/members_defenders/]);
100 __PACKAGE__->deny_access_unless('/covop',[qw/covop/]);
101 __PACKAGE__->deny_access_unless('/calls',[qw/calls_edit/]);
102 __PACKAGE__->allow_access_if('/calls/index',[qw/calls_list/]);
103 __PACKAGE__->allow_access_if('/calls/list',[qw/calls_list/]);
104 __PACKAGE__->allow_access_if('/calls/edit',[qw/members/]);
105 __PACKAGE__->allow_access_if('/calls/findCall',[qw/members/]);
106 __PACKAGE__->deny_access_unless('/raids',[qw/raids_edit/]);
107 __PACKAGE__->allow_access_if('/raids/index',[qw//]);
108 __PACKAGE__->allow_access_if('/raids/view',[qw//]);
109 __PACKAGE__->allow_access_if('/raids/targetcalc',[qw//]);
110 __PACKAGE__->allow_access_if('/raids/fleetcalc',[qw//]);
111 __PACKAGE__->allow_access_if('/raids/calcredir',[qw//]);
112 __PACKAGE__->allow_access_if('/raids/findRaid',[qw//]);
113 __PACKAGE__->allow_access_if('/raids/log',[qw//]);
114 __PACKAGE__->deny_access_unless('/intel',[qw/intel/]);
115 __PACKAGE__->deny_access_unless('/intel/members',[qw/intel_members/]);
116 __PACKAGE__->deny_access_unless('/intel/member',[qw/intel_member/]);
117 __PACKAGE__->deny_access_unless('/intel/naps',[qw/intel_naps/]);
118 __PACKAGE__->deny_access_unless('/jsrpc',[qw//]);
119 __PACKAGE__->allow_access_if('/jsrpc/end',1);
120 __PACKAGE__->deny_access_unless('/forum/allUnread',[qw//]);
121 __PACKAGE__->deny_access_unless('/forum/privmsg',[qw//]);
122 __PACKAGE__->deny_access_unless('/settings',[qw//]);
123 __PACKAGE__->deny_access_unless('/textexport/alliance',[qw/textexport_alliance/]);
127 NDWeb - Catalyst based application
131 script/ndweb_server.pl
135 [enter your description here]
139 L<NDWeb::Controller::Root>, L<Catalyst>
147 This library is free software. You can redistribute it and/or modify
148 it under the same terms as Perl itself.