site/cgi-bin/modules/BSE/UI/API.pm

   1 package BSE::UI::API;
   2 use strict;
   3 use base "BSE::UI::Dispatch";
   4
   5 our $VERSION = "1.000";
   6
   7 my %actions =
   8   (
   9    config => 1,
  10    fail => 1,
  11   );
  12
  13 sub actions {
  14   \%actions;
  15 }
  16
  17 sub default_action {
  18   "fail"
  19 }
  20
  21 sub req_config {
  22   my ($self, $req) = @_;
  23
  24   my $cfg = $req->cfg;
  25   return $req->json_content
  26     (
  27      success => 1,
  28      perlbal => $cfg->entry("basic", "perlbal", 0),
  29      access_control => $cfg->entry("basic", "access_control", 0),
  30      tracking_uploads => $req->_tracking_uploads,
  31     );
  32 }
  33
  34 sub req_fail {
  35   my ($self, $req) = @_;
  36
  37   return $self->error($req, "Not for end-user use");
  38 }
  39
  40 1;