1 files changed, 53 insertions, 0 deletions

diff --git a/share/perl/test/OpenSimTest/UserTester.pm b/share/perl/test/OpenSimTest/UserTester.pm
new file mode 100644
index 0000000..194102a
--- /dev/null
+++ b/share/perl/test/OpenSimTest/UserTester.pm
@@ -0,0 +1,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;