X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fqtextstringcheck;h=bb3fc31730293b44d4124ed751379ddf4850f791;hb=f276a86ab559f7800713f94bcda826d6783f46ab;hp=0a75f8e9b6ae71be9f50117c542733c9ce71e787;hpb=9f2bf0795621de264cea63060079704dfd9d5a0b;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/web/qtextstringcheck b/yarrg/web/qtextstringcheck
index 0a75f8e..bb3fc31 100755
--- a/yarrg/web/qtextstringcheck
+++ b/yarrg/web/qtextstringcheck
@@ -33,7 +33,7 @@
  text string parsers/checkers like check_routestring.
 
 # typical url for this script:
-#  http://www.chiark.greenend.org.uk/ucgi/~clareb/mason/pirates/qtextstring?what=routestring?format=json&ocean=Midnight&string=d
+#  http://www.chiark.greenend.org.uk/ucgi/~clareb/mason/pirates/qtextstring?what=routestring?format=json&ocean=Cerulean&string=d
 
 </%doc>
 
@@ -60,6 +60,7 @@ use Scalar::Util qw(blessed);
 
 die if $what =~ m/[^a-z]/;
 my $chk= $m->fetch_comp("check_${what}");
+die "check_$what" unless $chk;
 
 my $mydbh;
 $dbh ||= ($mydbh= dbw_connect($ocean));