blob: cfd63502829f38068ffc75bfbe1aafb2700e0201 (
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
|
#!/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.1 2009-08-20 12:39:35 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;
}
|
