aboutsummaryrefslogtreecommitdiffstats
path: root/bin/send-questionnaires
diff options
context:
space:
mode:
authorlouise <louise>2009-11-23 17:25:43 +0000
committerlouise <louise>2009-11-23 17:25:43 +0000
commitf8af48b80c43b0f9f87db5a390a8300469ef627f (patch)
tree9ee8ced09a71b2e24f137ff03b340b0a3f5ada6f /bin/send-questionnaires
parent075146ee0872ee0ff9e1b1c6fb84f7f5322cb7ba (diff)
Define which vhosts send cron emails for which cobrands
Diffstat (limited to 'bin/send-questionnaires')
-rwxr-xr-xbin/send-questionnaires3
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/send-questionnaires b/bin/send-questionnaires
index a3943c2cc..bb096fa22 100755
--- a/bin/send-questionnaires
+++ b/bin/send-questionnaires
@@ -6,7 +6,7 @@
# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
-# $Id: send-questionnaires,v 1.19 2009-11-19 15:10:28 louise Exp $
+# $Id: send-questionnaires,v 1.20 2009-11-23 17:25:43 louise Exp $
use strict;
require 5.8.0;
@@ -63,6 +63,7 @@ foreach my $row (@$unsent) {
my $cobrand = $row->{cobrand};
my $lang = $row->{lang};
Cobrand::set_lang_and_domain($cobrand, $lang);
+ next unless (Cobrand::email_host($cobrand));
my ($councils, $missing) = $row->{council} =~ /^([\d,]+)(?:\|([\d,]+))?/;
my @councils = split /,/, $councils;
my $areas_info = mySociety::MaPit::get_voting_areas_info(\@all_councils);