OpenSimMirror/share/perl/test/OpenSimTest/UserTester.pm

54 lines
1.4 KiB
Perl
Raw Normal View History

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;