From 8c05b81d6860d8e0da4098cc6f59f630d7c53037 Mon Sep 17 00:00:00 2001
From: Adam Frisby
Date: Tue, 25 Mar 2008 16:29:54 +0000
Subject: * Committing Lulurun's Cgi/Perl implementation of the UGAI servers. *
 I love you long time.

---
 share/perl/test/OpenSimTest/UserTester.pm | 53 +++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 share/perl/test/OpenSimTest/UserTester.pm

(limited to 'share/perl/test/OpenSimTest/UserTester.pm')

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;
-- 
cgit v1.1