1 files changed, 77 insertions, 0 deletions
diff --git a/perllib/Cobrands/Emptyhomes/Util.pm b/perllib/Cobrands/Emptyhomes/Util.pm
new file mode 100644
index 000000000..d5ba0dcb4
--- /dev/null
+++ b/perllib/Cobrands/Emptyhomes/Util.pm
@@ -0,0 +1,77 @@
+#!/usr/bin/perl -w
+#
+# Util.pm:
+# Emptyhomes Cobranding for FixMyStreet.
+#
+#
+# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
+# Email: louise@mysociety.org. WWW: http://www.mysociety.org
+#
+# $Id: Util.pm,v 1.1 2009-08-31 14:19:42 louise Exp $
+
+package Cobrands::Emptyhomes::Util;
+use Standard;
+use strict;
+use Carp;
+use mySociety::Web qw(ent);
+
+sub new{
+    my $class = shift;
+    return bless {}, $class;
+}
+
+=item site_restriction Q
+
+Return a site restriction clause and a site key.
+
+=cut
+sub site_restriction{
+    return ('', 0);
+}
+
+=item
+
+Return the list of custom pages that can be produced by this module
+
+=cut
+
+sub pages{
+  return qw();
+}
+
+=item page Q
+
+Return HTML for the page specified by the cobrand_page parameter in 
+the query.
+
+=cut
+
+sub page{
+   my $self = shift;
+   my $q = shift;
+   my $page_requested = $q->param('cobrand_page');
+   if (grep ($_ eq $page_requested, $self->pages())){
+      return $self->$page_requested($q);
+   }else{      
+    throw Error::Simple("Unknown page");
+   }
+}
+
+=item set_lang_and_domain Q HOST
+
+Set the language and text domain for the site based on the query and host. 
+
+=cut
+
+sub set_lang_and_domain{
+    my ($self, $q, $host) = @_;
+    my $lang;
+    $lang = 'cy' if $host =~ /cy/;
+    $lang = 'en-gb' if $host =~ /^en\./;
+    mySociety::Locale::negotiate_language('en-gb,English,en_GB|cy,Cymraeg,cy_GB', $lang);
+    mySociety::Locale::gettext_domain('FixMyStreet-EmptyHomes');
+    mySociety::Locale::change();
+}
+
+1;
+