summaryrefslogtreecommitdiffstats
path: root/qooxdoo/source/mtr.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'qooxdoo/source/mtr.cgi')
-rwxr-xr-xqooxdoo/source/mtr.cgi26
1 files changed, 26 insertions, 0 deletions
diff --git a/qooxdoo/source/mtr.cgi b/qooxdoo/source/mtr.cgi
new file mode 100755
index 0000000..1cf543c
--- /dev/null
+++ b/qooxdoo/source/mtr.cgi
@@ -0,0 +1,26 @@
+#!/usr/sepp/bin/perl-5.8.8 -w
+use strict;
+$ENV{PATH}="/usr/pack/mtr-0.72-mo/amd64-debian-linux3.1/sbin";
+use lib qw( perl );
+
+use CGI;
+use CGI::Util qw(expires);
+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);
+