blob: bc9bd7672ec780d86284d19ef0c81a0b31be1bcc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
package FixMyStreet::App;
use Moose;
use namespace::autoclean;
use Catalyst::Runtime 5.80;
use FixMyStreet;
use FixMyStreet::Cobrand;
use Memcached;
use Problems;
use Catalyst qw/
ConfigLoader
Static::Simple
/;
extends 'Catalyst';
our $VERSION = '0.01';
# Configure the application.
#
# Note that settings in fixmystreet_app.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(
# get the config from the core object
%{ FixMyStreet->config() },
name => 'FixMyStreet::App',
# Disable deprecated behavior needed by old applications
disable_component_resolution_regex_fallback => 1,
# Serve anything in web dir that is not a .cgi script
static => { #
include_path => [ FixMyStreet->path_to("web") . "" ],
ignore_extensions => ['cgi'],
}
);
# Start the application
__PACKAGE__->setup();
=head1 NAME
FixMyStreet::App - Catalyst based application
=head1 SYNOPSIS
script/fixmystreet_app_server.pl
=head1 DESCRIPTION
FixMyStreet.com codebase
=head1 METHODS
=head2 cobrand
$cobrand = $c->cobrand();
Returns the cobrand object. If not already determined this request finds it and
caches it to the stash.
=cut
sub cobrand {
my $c = shift;
return $c->stash->{cobrand} ||= $c->_get_cobrand();
}
sub _get_cobrand {
my $c = shift;
my $host = $c->req->uri->host;
my $cobrand_class = FixMyStreet::Cobrand->get_class_for_host($host);
return $cobrand_class->new( { request => $c->req } );
}
=head2 setup_cobrand
$cobrand = $c->setup_cobrand();
Work out which cobrand we should be using. Set the environment correctly - eg
template paths
=cut
sub setup_cobrand {
my $c = shift;
my $cobrand = $c->cobrand;
# append the cobrand templates to the include path
$c->stash->{additional_template_paths} =
[ $cobrand->path_to_web_templates . '' ];
my $host = $c->req->uri->host;
my $lang =
$host =~ /^en\./ ? 'en-gb'
: $host =~ /cy/ ? 'cy'
: undef;
# set the language and the translation file to use
$cobrand->set_lang_and_domain( $lang, 1 );
Problems::set_site_restriction_with_cobrand_object($cobrand);
Memcached::set_namespace( FixMyStreet->config('BCI_DB_NAME') . ":" );
return $cobrand;
}
=head1 SEE ALSO
L<FixMyStreet::App::Controller::Root>, L<Catalyst>
=cut
1;
|
