site/cgi-bin/api.pl

   1 #!/usr/bin/perl -w
   2 # -d:ptkdb
   3 BEGIN { $ENV{DISPLAY} = '192.168.32.54:0.0' }
   4 use strict;
   5 use FindBin;
   6 use lib "$FindBin::Bin/modules";
   7 use CGI ':standard';
   8 use BSE::Request;
   9 use BSE::UI::API;
  10 use BSE::Template;
  11 use Carp 'confess';
  12
  13 $SIG{__DIE__} = sub { confess $@ };
  14
  15 my $req = BSE::Request->new(nodatabase => 1, nosession => 1);
  16 my $result = BSE::UI::API->dispatch($req);
  17 $req->output_result($result);