aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/share/perl/grid.cgi
diff options
context:
space:
mode:
authorJustin Clarke Casey2008-04-08 11:19:34 +0000
committerJustin Clarke Casey2008-04-08 11:19:34 +0000
commit0c601b73125d1bc120e248149bf4d83ecc27f1c2 (patch)
tree6c12f957e3cedda58a725b25e43b9595124bfb54 /share/perl/grid.cgi
parent* Added stretchable ellipsoid support with configurable LOD. It's actually a... (diff)
downloadopensim-SC_OLD-0c601b73125d1bc120e248149bf4d83ecc27f1c2.zip
opensim-SC_OLD-0c601b73125d1bc120e248149bf4d83ecc27f1c2.tar.gz
opensim-SC_OLD-0c601b73125d1bc120e248149bf4d83ecc27f1c2.tar.bz2
opensim-SC_OLD-0c601b73125d1bc120e248149bf4d83ecc27f1c2.tar.xz
* Removing lulurun's perl UGAI from core svn, pending a link to an external repository, as per mailing list discussion.
Diffstat (limited to 'share/perl/grid.cgi')
-rw-r--r--share/perl/grid.cgi27
1 files changed, 0 insertions, 27 deletions
diff --git a/share/perl/grid.cgi b/share/perl/grid.cgi
deleted file mode 100644
index cf1550f..0000000
--- a/share/perl/grid.cgi
+++ /dev/null
@@ -1,27 +0,0 @@
1#!/usr/bin/perl -w
2
3use strict;
4use Carp;
5use XML::RPC;
6use MyCGI;
7use OpenSim::Utility;
8use OpenSim::GridServer;
9
10my $param = &MyCGI::getParam();
11my $request = $param->{'POSTDATA'};
12#&OpenSim::Utility::Log("grid", "request", $request);
13my $xmlrpc = new XML::RPC();
14my $response = $xmlrpc->receive($request, \&XMLRPCHandler);
15#&OpenSim::Utility::Log("grid", "response", $response);
16&MyCGI::outputXml("utf-8", $response);
17
18sub XMLRPCHandler {
19 my ($methodname, @param) = @_;
20 my $handler_list = &OpenSim::GridServer::getHandlerList();
21 if (!$handler_list->{$methodname}) {
22 Carp::croak("?");
23 } else {
24 my $handler = $handler_list->{$methodname};
25 $handler->(@param);
26 }
27}