From 464192a47cb1eb09a7128f1e7fc9f5c37e094f09 Mon Sep 17 00:00:00 2001 From: louise Date: Thu, 20 Aug 2009 12:39:35 +0000 Subject: Adding cobranding module --- perllib/Cobrand.pm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 perllib/Cobrand.pm (limited to 'perllib/Cobrand.pm') diff --git a/perllib/Cobrand.pm b/perllib/Cobrand.pm new file mode 100644 index 000000000..cfd635028 --- /dev/null +++ b/perllib/Cobrand.pm @@ -0,0 +1,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; +} -- cgit v1.2.3