From 8c05b81d6860d8e0da4098cc6f59f630d7c53037 Mon Sep 17 00:00:00 2001
From: Adam Frisby
Date: Tue, 25 Mar 2008 16:29:54 +0000
Subject: * Committing Lulurun's Cgi/Perl implementation of the UGAI servers. *
 I love you long time.

---
 share/perl/test/OpenSimTest/GridTester.pm | 62 +++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create 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
new file mode 100644
index 0000000..61fef6b
--- /dev/null
+++ b/share/perl/test/OpenSimTest/GridTester.pm
@@ -0,0 +1,62 @@
+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