initial qooxdoo drop for smokeping

1 files changed, 26 insertions, 0 deletions

diff --git a/qooxdoo/source/jsonrpc.cgi b/qooxdoo/source/jsonrpc.cgi
new file mode 100755
index 0000000..372273d
--- /dev/null
+++ b/qooxdoo/source/jsonrpc.cgi
@@ -0,0 +1,26 @@
+#!/usr/sepp/bin/perl-5.8.8 -w
+use strict;
+use lib qw( perl );
+
+use CGI;
+use CGI::Session;
+use Qooxdoo::JSONRPC;
+
+$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);
+
+