From 8793d83042d5cf388a30ee5f8637fa6554334aa6 Mon Sep 17 00:00:00 2001
From: Tobi Oetiker <tobi@oetiker.ch>
Date: Mon, 2 Jun 2008 20:03:33 +0000
Subject: initial support for mrt integration

---
 qooxdoo/source/mtr.cgi | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 qooxdoo/source/mtr.cgi

(limited to 'qooxdoo/source/mtr.cgi')

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);
+
-- 
cgit v1.2.3-24-g4f1b