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>
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));