blob: cc0fe2876588db04608407a96705d9f147d8e7da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/sepp/bin/speedy-5.8.8 -w
use strict;
use lib qw(/home/oposs/smokeping/software/lib);
use lib qw(perl);
use CGI;
use CGI::Util qw(expires);
use CGI::Session;
use Qooxdoo::JSONRPC;
# don't bother with zombies
$SIG{CHLD} = 'IGNORE';
#$Qooxdoo::JSONRPC::debug=1;
# Change this space-separated list of directories to include
# Qooxdoo::JSONRPC.pm and co-located Services
# If this module can't be found, the previous line is incorrect
# Instantiating the CGI module which parses the HTTP request
my $cgi = new CGI;
my $session = new CGI::Session;
# You can customise this harness here to handle cases before treating
# the request as being JSON-RPC
Qooxdoo::JSONRPC::handle_request ($cgi, $session);
|
