serve configuration items as json under the config space

[debbugs.git] / lib / Debbugs / Mojo / Controller / Config.pm

diff --git a/lib/Debbugs/Mojo/Controller/Config.pm b/lib/Debbugs/Mojo/Controller/Config.pm
new file mode 100644 (file)
index 0000000..fc3f7a0
--- /dev/null
+++ b/lib/Debbugs/Mojo/Controller/Config.pm
@@ -0,0 +1,26 @@
+package Debbugs::Mojo::Controller::Config;
+
+use Mojo::Base 'Mojolicious::Controller';
+
+use Debbugs::Config qw(config);
+
+my %whitelist;
+
+for (qw(tags distribution_aliases distributions),
+     qw(tags_single_letter severity_list strong_severities),
+     qw(severity_display project project_title),
+     qw(web_domain email_domain),
+    ) {
+    $whitelist{$_} = 1;
+}
+sub show {
+    my $c = shift;
+    my $item = $c->stash('item');
+    return $c->reply->not_found unless $whitelist{$item};
+    my $m = config()->meta->find_method_by_name($item);
+    return $c->reply->not_found unless defined $m;
+    my $r = $m->(config());
+    return $c->render(json => $r);
+}
+
+1;