From 0c601b73125d1bc120e248149bf4d83ecc27f1c2 Mon Sep 17 00:00:00 2001
From: Justin Clarke Casey
Date: Tue, 8 Apr 2008 11:19:34 +0000
Subject: * Removing lulurun's perl UGAI from core svn, pending a link to an
 external repository, as per mailing list discussion.

---
 share/perl/test/OpenSimTest/GridTester.pm | 62 -------------------------------
 1 file changed, 62 deletions(-)
 delete mode 100644 share/perl/test/OpenSimTest/GridTester.pm

(limited to 'share/perl/test/OpenSimTest/GridTester.pm')

diff --git a/share/perl/test/OpenSimTest/GridTester.pm b/share/perl/test/OpenSimTest/GridTester.pm
deleted file mode 100644
index 61fef6b..0000000
--- a/share/perl/test/OpenSimTest/GridTester.pm
+++ /dev/null
@@ -1,62 +0,0 @@
-package GridTester;
-
-use strict;
-use OpenSim::Utility;
-
-sub init {
-	&OpenSimTest::Config::registerHandler("simulator_login", \&_simulator_login);
-	&OpenSimTest::Config::registerHandler("simulator_data_request", \&_simulator_data_request);
-	&OpenSimTest::Config::registerHandler("simulator_after_region_moved", \&_simulator_after_region_moved);
-	&OpenSimTest::Config::registerHandler("map_block", \&_map_block);
-}
-
-sub _simulator_login {
-	my $url = shift || $OpenSimTest::Config::GRID_SERVER_URL;
-    my @param = @_;
-    my %xml_rpc_param = (
-		"authkey" => "null",
-		"UUID" => $param[0],
-		"sim_ip" => $param[1],
-		"sim_port" => $param[2],
-		"region_locx" => 1000,
-		"region_locy" => 1000,
-		"sim_name" => "OpenTest",
-		"http_port" => 9000,
-		"remoting_port" => 8895,
-		"map-image-id" => "0e5a5e87-08d9-4b37-9b8e-a4c3c4e409ab",
-	);
-    return &OpenSim::Utility::XMLRPCCall($url, "simulator_login", \%xml_rpc_param);
-}
-
-sub _map_block {
-	my $url = shift || $OpenSimTest::Config::GRID_SERVER_URL;
-    my @param = @_;
-    my %xml_rpc_param = (
-		xmin => $param[0],
-		ymin => $param[1],
-		xmax => $param[2],
-		ymax => $param[3],
-	);
-    return &OpenSim::Utility::XMLRPCCall($url, "map_block", \%xml_rpc_param);
-}
-
-sub _simulator_data_request {
-	my $url = shift || $OpenSimTest::Config::GRID_SERVER_URL;
-    my @param = @_;
-	my %xml_rpc_param = (
-		region_handle => $param[0],
-		authkey => undef,
-	);
-    return &OpenSim::Utility::XMLRPCCall($url, "simulator_data_request", \%xml_rpc_param);
-}
-
-sub _simulator_after_region_moved {
-	my $url = shift || $OpenSimTest::Config::GRID_SERVER_URL;
-    my @param = @_;
-	my %xml_rpc_param = (
-		UUID => $param[0],
-	);
-    return &OpenSim::Utility::XMLRPCCall($url, "simulator_after_region_moved", \%xml_rpc_param);
-}
-
-1;
-- 
cgit v1.1