chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
routesearch: support circular routes
[ypp-sc-tools.db-live.git]
/
yarrg
/
web
/
qtextstringcheck
diff --git
a/yarrg/web/qtextstringcheck
b/yarrg/web/qtextstringcheck
index 4fbfc546a88903180506ad850ba5411b288bbaa5..9dce8287e208d8213418dd6432e49898c998a74a 100755
(executable)
--- a/
yarrg/web/qtextstringcheck
+++ b/
yarrg/web/qtextstringcheck
@@
-129,7
+129,10
@@
$emsg='' if !defined $emsg;
$debugf->("QTSC EMSG='$emsg' RESULTS='@results'");
if ($format =~ /json/) {
$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 :
my $jobj= {
success => 1*!length $emsg,
show => (length $emsg ? $emsg :