1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
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;
|
