diff options
Diffstat (limited to 'bin/send-questionnaires-eha')
| -rwxr-xr-x | bin/send-questionnaires-eha | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/bin/send-questionnaires-eha b/bin/send-questionnaires-eha index 4df5c293f..055db39f7 100755 --- a/bin/send-questionnaires-eha +++ b/bin/send-questionnaires-eha @@ -6,7 +6,7 @@ # Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: send-questionnaires-eha,v 1.2 2009-05-27 15:27:18 matthew Exp $ +# $Id: send-questionnaires-eha,v 1.3 2009-07-10 15:17:28 matthew Exp $ use strict; require 5.8.0; @@ -16,12 +16,13 @@ use FindBin; use lib "$FindBin::Bin/../perllib"; use lib "$FindBin::Bin/../../perllib"; use File::Slurp; +use CronFns; -use Page; use mySociety::AuthToken; use mySociety::Config; use mySociety::DBHandle qw(dbh select_all); use mySociety::Email; +use mySociety::Locale; use mySociety::MaPit; use mySociety::EmailUtil; use mySociety::Random qw(random_bytes); @@ -37,12 +38,10 @@ BEGIN { ); } -die "Either no arguments, --nomail or --verbose" if (@ARGV>1); -my $nomail = 0; -my $verbose = 0; -$nomail = 1 if (@ARGV==1 && $ARGV[0] eq '--nomail'); -$verbose = 1 if (@ARGV==1 && $ARGV[0] eq '--verbose'); -$verbose = 1 if $nomail; +# Set up site, language etc. +my ($verbose, $nomail) = CronFns::options(); +my $site = CronFns::site(mySociety::Config::get('BASE_URL')) +CronFns::language($site); send_q('4 weeks'); send_q('26 weeks'); @@ -55,7 +54,7 @@ sub send_q { (my $template = $period) =~ s/ //; $template = File::Slurp::read_file("$FindBin::Bin/../templates/emails/questionnaire-eha-$template"); - my $query = "select id, category, title, detail, name, email + my $query = "select id, category, title, detail, name, email, lang from problem where state in ('confirmed', 'fixed') and whensent is not null @@ -73,6 +72,8 @@ sub send_q { foreach my $row (@$unsent) { my %h = map { $_ => $row->{$_} } qw/name title detail category/; + mySociety::Locale::change($row->{lang}); + my $id = dbh()->selectrow_array("select nextval('questionnaire_id_seq');"); dbh()->do('insert into questionnaire (id, problem_id, whensent) values (?, ?, ms_current_timestamp())', {}, $id, $row->{id}); |