source: bearmail/lib/BearMail/Dispatch.pm @ 500

Last change on this file since 500 was 500, checked in by zecrazytux, 10 years ago

Added a lock and enhanced mailmap writing mechanism

  • Property svn:executable set to *
File size: 1.3 KB
Line 
1# Copyright (C) 2009 Bearstech - http://bearstech.com/
2#
3# This program is free software: you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation, either version 3 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program.  If not, see <http://www.gnu.org/licenses/>.
15
16# BearMail mod_perl dispatcher - part of bearmail
17
18package BearMail::Dispatch;
19use base 'CGI::Application::Dispatch';
20use strict;
21use warnings;
22use CGI::Carp qw/fatalsToBrowser/; 
23no warnings 'redefine';
24
25sub dispatch_args {
26  my $bearmail_dir = $ENV{'BEARMAIL'};
27
28  return {
29    prefix      => 'BearMail::Web',
30    default => 'login',
31    args_to_new => {
32        TMPL_PATH => "$bearmail_dir/template/",
33        PARAMS    => {
34            cfg_file => "$bearmail_dir/conf/bearmail.conf",
35        }
36    },
37    #debug => 1,
38    table       => [
39            ':app'     => {},
40            ':app/:rm' => {},
41        ],
42  };
43}
441;
Note: See TracBrowser for help on using the repository browser.