* Removing lulurun's perl UGAI from core svn, pending a link to an external repository, as per mailing list discussion.

1 files changed, 0 insertions, 28 deletions

diff --git a/share/perl/user.cgi b/share/perl/user.cgi
deleted file mode 100644
index 3fa63aa..0000000
--- a/share/perl/user.cgi
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Carp;
-use XML::RPC;
-use MyCGI;
-use OpenSim::Utility;
-use OpenSim::UserServer;
-
-my $param = &MyCGI::getParam();
-my $request = $param->{'POSTDATA'};
-&OpenSim::Utility::Log("user", "request", $request);
-my $xmlrpc = new XML::RPC();
-my $response = $xmlrpc->receive($request, \&XMLRPCHandler);
-&OpenSim::Utility::Log("user", "response", $response);
-&MyCGI::outputXml("utf-8", $response);
-
-sub XMLRPCHandler {
-    my ($methodname, @param) = @_;
-    my $handler_list = &OpenSim::UserServer::getHandlerList();
-    if (!$handler_list->{$methodname}) {
-                Carp::croak("?");
-    } else {
-                my $handler = $handler_list->{$methodname};
-                $handler->(@param);
-    }
-}
-