X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fqtextstringcheck;h=9dce8287e208d8213418dd6432e49898c998a74a;hp=3b4fdd7470443e040a09882a1e66eba621c3ac7e;hb=05a607330cc73832ccc778cd10f69cbac8e6dba3;hpb=13b9f206d92634f4e6f4a940ed31690c1235d827

diff --git a/yarrg/web/qtextstringcheck b/yarrg/web/qtextstringcheck
index 3b4fdd7..9dce828 100755
--- a/yarrg/web/qtextstringcheck
+++ b/yarrg/web/qtextstringcheck
@@ -109,7 +109,7 @@ if ($chk->method_exists('execute')) {
 			$chk->scall_method("manyambig"),
 			sub {
 				$chk->scall_method("ambiguous",
-					spec => $each, couldbe => $_[0])
+					spec => $each, couldbe => $_[1])
 			});
 		if (defined $temsg) {
 			$emsg= $temsg;
@@ -129,7 +129,10 @@ $emsg='' if !defined $emsg;
 $debugf->("QTSC EMSG='$emsg' RESULTS='@results'");
 
 if ($format =~ /json/) {
-	$r->content_type($ctype or $format);
+	$ctype ||= $format;
+	die unless grep { $_ eq $ctype }
+		qw(application/json text/plain text/xml);
+	$r->content_type($ctype);
 	my $jobj= {
 		success => 1*!length $emsg,
 		show => (length $emsg      ? $emsg                       :