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
|
package UserTester;
use strict;
use Digest::MD5;
use OpenSim::Utility;
my $user_server_url;
sub init {
&OpenSimTest::Config::registerHandler("login_to_simulator", \&_login_to_simulator);
&OpenSimTest::Config::registerHandler("get_user_by_name", \&_get_user_by_name);
&OpenSimTest::Config::registerHandler("get_user_by_uuid", \&_get_user_by_uuid);
&OpenSimTest::Config::registerHandler("get_avatar_picker_avatar", \&_get_avatar_picker_avatar);
}
sub _login_to_simulator {
my $url = shift || $OpenSimTest::Config::USER_SERVER_URL;
my @param = @_;
my %xml_rpc_param = (
first => $param[0],
last => $param[1],
passwd => "\$1\$" . Digest::MD5::md5_hex($param[2]),
start => "last",
version => "1.18.3.5",
mac => "cc82e1e2bfd24e5424d66b4fd3f70d55",
);
return &OpenSim::Utility::XMLRPCCall($url, "login_to_simulator", \%xml_rpc_param);
}
sub _get_user_by_name {
my $url = shift || $OpenSimTest::Config::USER_SERVER_URL;
my @param = @_;
my %xml_rpc_param = (
avatar_name => $param[0],
);
return &OpenSim::Utility::XMLRPCCall($url, "get_user_by_name", \%xml_rpc_param);
}
# sample uuid:
# db836502-de98-49c9-9edc-b90a67beb0a8
sub _get_user_by_uuid {
my $url = shift || $OpenSimTest::Config::USER_SERVER_URL;
my @param = @_;
my %xml_rpc_param = (
avatar_uuid => $param[0],
);
return &OpenSim::Utility::XMLRPCCall($url, "get_user_by_uuid", \%xml_rpc_param);
}
sub _get_avatar_picker_avatar {
}
1;
|
