diff options
| author | matthew <matthew> | 2006-09-19 23:45:33 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2006-09-19 23:45:33 +0000 |
| commit | 982f6dd89c70dc48dffb8d98bf8b00f53ddd83c4 (patch) | |
| tree | 4eca9bc82fa84b5d878407a6b2265b0561cf0fc8 | |
| parent | 3da5509ef842e9cbd4a587dd2520d0e1798976cd (diff) | |
Use WatchUpdate.
| -rw-r--r-- | perllib/Page.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index c2f1f450b..26a3b74df 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.4 2006-09-19 17:20:19 francis Exp $ +# $Id: Page.pm,v 1.5 2006-09-19 23:45:33 matthew Exp $ # package Page; @@ -16,13 +16,16 @@ use Carp; use CGI::Fast qw(-no_xhtml); use HTML::Entities; use Error qw(:try); +use mySociety::WatchUpdate; sub do_fastcgi { my $func = shift; try { + my $W = new mySociety::WatchUpdate(); while (my $q = new CGI::Fast()) { &$func($q); + $W->exit_if_changed(); } } catch Error::Simple with { my $E = shift; |