#!/usr/bin/perl
#
# Page.pm:
# Various HTML stuff for the BCI site.
#
# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org; WWW: http://www.mysociety.org/
#
# $Id: Page.pm,v 1.226 2009-12-15 16:53:54 matthew Exp $
#
package Page;
use strict;
use Carp;
use mySociety::CGIFast qw(-no_xhtml);
use Error qw(:try);
use File::Slurp;
use HTTP::Date;
use Image::Magick;
use Image::Size;
use LWP::Simple;
use Digest::MD5 qw(md5_hex);
use POSIX qw(strftime);
use URI::Escape;
use Text::Template;
use Memcached;
use Problems;
use Utils;
use Cobrand;
use mySociety::Config;
use mySociety::DBHandle qw/dbh select_all/;
use mySociety::EvEl;
use mySociety::Gaze;
use mySociety::GeoUtil;
use mySociety::Locale;
use mySociety::MaPit;
use mySociety::PostcodeUtil;
use mySociety::TempFiles;
use mySociety::Tracking;
use mySociety::WatchUpdate;
use mySociety::Web qw(ent NewURL);
BEGIN {
(my $dir = __FILE__) =~ s{/[^/]*?$}{};
mySociety::Config::set_file("$dir/../conf/general");
}
my $lastmodified;
sub do_fastcgi {
my ($func, $lm) = @_;
try {
my $W = new mySociety::WatchUpdate();
while (my $q = new mySociety::Web()) {
next if $lm && $q->Maybe304($lm);
$lastmodified = $lm;
microsite($q);
&$func($q);
dbh()->rollback() if $mySociety::DBHandle::conf_ok;
$W->exit_if_changed();
}
} catch Error::Simple with {
report_error(@_);
} catch Error with {
report_error(@_);
};
dbh()->rollback() if $mySociety::DBHandle::conf_ok;
exit(0);
}
sub report_error {
my $E = shift;
my $msg = sprintf('%s:%d: %s', $E->file(), $E->line(), CGI::escapeHTML($E->text()));
warn "caught fatal exception: $msg";
warn "aborting";
ent($msg);
my $contact_email = mySociety::Config::get('CONTACT_EMAIL');
my $trylater = sprintf(_('Please try again later, or email us to let us know.'), $contact_email);
my $somethingwrong = _("Sorry! Something's gone wrong.");
my $errortext = _("The text of the error was:");
print "Status: 500\nContent-Type: text/html; charset=iso-8859-1\n\n",
qq($somethingwrong),
q(),
qq($somethingwrong
),
qq($trylater
),
q(
),
qq($errortext
),
qq($msg
),
q(