aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/share/perl/inventory.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/inventory.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/inventory.cgi')
-rw-r--r--share/perl/inventory.cgi39
1 files changed, 0 insertions, 39 deletions
diff --git a/share/perl/inventory.cgi b/share/perl/inventory.cgi
deleted file mode 100644
index 0542436..0000000
--- a/share/perl/inventory.cgi
+++ /dev/null
@@ -1,39 +0,0 @@
1#!/usr/bin/perl -w
2
3use strict;
4use MyCGI;
5use OpenSim::Config;
6use OpenSim::InventoryServer;
7use Carp;
8
9my $request_uri = $ENV{REQUEST_URI} || Carp::croak($OpenSim::Config::SYS_MSG{FATAL});
10my $request_method = "";
11if ($request_uri =~ /([^\/]+)\/$/) {
12 $request_method = $1;
13} else {
14 &MyCGI::outputXml("utf-8", $OpenSim::Config::SYS_MSG{FATAL});
15}
16my $param = &MyCGI::getParam();
17my $post_data = $param->{'POSTDATA'};
18&OpenSim::Utility::Log("inv", "request", $request_uri, $post_data);
19my $response = "";
20eval {
21 $response = &handleRequest($request_method, $post_data);
22};
23if ($@) {
24 $response = "<ERROR>$@</ERROR>";
25}
26&OpenSim::Utility::Log("inv", "response", $response);
27&MyCGI::outputXml("utf-8", $response);
28
29sub handleRequest {
30 my ($methodname, $post_data) = @_;
31 my $handler_list = &OpenSim::InventoryServer::getHandlerList();
32 if (!$handler_list->{$methodname}) {
33 Carp::croak("unknown method name");
34 } else {
35 my $handler = $handler_list->{$methodname};
36 return $handler->($post_data);
37 }
38}
39