diff options
| author | matthew <matthew> | 2009-01-15 10:19:26 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2009-01-15 10:19:26 +0000 |
| commit | 96633ba434dd7e159532c2aaaa948460d659fb29 (patch) | |
| tree | 02309b8f2e846ea04cc0656bcf2b32a1b43f010b /perllib/Page.pm | |
| parent | fa21ab2334aec3bb937305c84db9a366c3661cd3 (diff) | |
Fix some hardcodings.
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 9e6f4f2f6..5691cd3f7 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.132 2009-01-10 18:37:44 matthew Exp $ +# $Id: Page.pm,v 1.133 2009-01-15 10:19:26 matthew Exp $ # package Page; @@ -64,11 +64,12 @@ sub do_fastcgi { warn "caught fatal exception: $msg"; warn "aborting"; ent($msg); + my $contact_email = mySociety::Config::get('CONTACT_EMAIL'); print "Status: 500\nContent-Type: text/html; charset=iso-8859-1\n\n", q(<html><head><title>Sorry! Something's gone wrong.</title></head></html>), q(<body>), q(<h1>Sorry! Something's gone wrong.</h1>), - q(<p>Please try again later, or <a href="mailto:team@fixmystreet.com">email us</a> to let us know.</p>), + qq(<p>Please try again later, or <a href="mailto:$contact_email">email us</a> to let us know.</p>), q(<hr>), q(<p>The text of the error was:</p>), qq(<blockquote class="errortext">$msg</blockquote>), |