blob: 63224aa54ff415507531c897d6f1b2533bf391ee (
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
|
#!/usr/bin/perl -w
#
# Cobrand.pm:
# Cobranding for FixMyStreet.
#
#
# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
# Email: louise@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: Cobrand.pm,v 1.6 2009-08-31 14:19:42 louise Exp $
package Cobrand;
use strict;
use Carp;
=item get_allowed_cobrands
Return an array of allowed cobrand subdomains
=cut
sub get_allowed_cobrands{
my $allowed_cobrand_string = mySociety::Config::get('ALLOWED_COBRANDS');
my @allowed_cobrands = split(/\|/, $allowed_cobrand_string);
return \@allowed_cobrands;
}
=item cobrand_handle Q
Given a query that has the name of a site set, return a handle to the Util module for that
site, if one exists, or zero if not.
=cut
sub cobrand_handle{
my $q = shift;
my $cobrand = $q->{site};
my $cobrand_class = ucfirst($cobrand);
my $class = "Cobrands::" . $cobrand_class . "::Util";
eval "use $class";
my $handle;
eval{ $handle = $class->new };
return 0 if $@;
return $handle;
}
=item cobrand_page QUERY
Return a string containing the HTML to be rendered for a custom Cobranded page
=cut
sub cobrand_page{
my $q = shift;
my $handle = cobrand_handle($q);
return 0 if $handle == 0;
return $handle->page($q);
}
=item set_site_restriction Q
Return a site restriction clause and a site key if the cobrand uses a subset of the FixMyStreet
data. Q is the query object. Returns an empty string and site key 0 if the cobrand uses all the
data.
=cut
sub set_site_restriction{
my $q = shift;
my $site_restriction = '';
my $site_id = 0;
my $handle = cobrand_handle($q);
return ($site_restriction, $site_id) if $handle == 0;
return $handle->site_restriction($q);
}
=item set_lang_and_domain Q HOST
Set the language and domain of the site based on the query and host
=cut
sub set_lang_and_domain{
my ($q, $host) = @_;
my $handle = cobrand_handle($q);
if ($handle != 0){
$handle->set_lang_and_domain($q, $host);
}
}
1;
|
