diff options
author | Justin Clarke Casey | 2008-04-08 11:19:34 +0000 |
---|---|---|
committer | Justin Clarke Casey | 2008-04-08 11:19:34 +0000 |
commit | 0c601b73125d1bc120e248149bf4d83ecc27f1c2 (patch) | |
tree | 6c12f957e3cedda58a725b25e43b9595124bfb54 /share/perl/grid.cgi | |
parent | * Added stretchable ellipsoid support with configurable LOD. It's actually a... (diff) | |
download | opensim-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.cgi | 27 |
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 | |||
3 | use strict; | ||
4 | use Carp; | ||
5 | use XML::RPC; | ||
6 | use MyCGI; | ||
7 | use OpenSim::Utility; | ||
8 | use OpenSim::GridServer; | ||
9 | |||
10 | my $param = &MyCGI::getParam(); | ||
11 | my $request = $param->{'POSTDATA'}; | ||
12 | #&OpenSim::Utility::Log("grid", "request", $request); | ||
13 | my $xmlrpc = new XML::RPC(); | ||
14 | my $response = $xmlrpc->receive($request, \&XMLRPCHandler); | ||
15 | #&OpenSim::Utility::Log("grid", "response", $response); | ||
16 | &MyCGI::outputXml("utf-8", $response); | ||
17 | |||
18 | sub 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 | } | ||