From 9101afe763ab49064b0ac3b5ab5ea066bcbc6259 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 17 Oct 2009 17:28:30 +0100
Subject: [PATCH] routesearch: check for failure of routesearch and report XCPU
 specially

---
 yarrg/TODO                  |  2 --
 yarrg/web/query_routesearch | 20 ++++++++++++++++++++
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/yarrg/TODO b/yarrg/TODO
index ed81ded..f8988df 100644
--- a/yarrg/TODO
+++ b/yarrg/TODO
@@ -1,7 +1,5 @@
 query_routesearch:
 
-	Doesn't spot routesearch dying
-
 	ap=A, ap=P turn into proper headings
 	notes about leagues
 
diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch
index 8937f28..dc8c230 100644
--- a/yarrg/web/query_routesearch
+++ b/yarrg/web/query_routesearch
@@ -204,6 +204,26 @@ if ($qa->{'debug'}) {
 	print "</pre>\n";
 }
 
+$!=0;
+if (!close $fh) {
+	die $! if $!;
+	die $? if $? != 24; # SIGXCPU but not in POSIX.pm :-/
+</%perl>
+<h2>Search took too long and was terminated</h2>
+
+Sorry, but your query resulted in a search that took too long.
+Searches are limited to <% $maxcpu |h %> seconds of CPU time to
+avoid them consuming excessive resources on the server system, and to
+make sure that shorter searches can still happen.
+
+<p>
+Please try a search with a smaller minimum distance, or place more
+restrictions on the route.
+
+<%perl>
+	return;
+}
+
 if ($concur_fail) {
 </%perl>
 <h2>Server too busy</h2>
-- 
2.30.2