54 lines
1.4 KiB
Perl
54 lines
1.4 KiB
Perl
|
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;
|