From 0c601b73125d1bc120e248149bf4d83ecc27f1c2 Mon Sep 17 00:00:00 2001
From: Justin Clarke Casey
Date: Tue, 8 Apr 2008 11:19:34 +0000
Subject: * Removing lulurun's perl UGAI from core svn, pending a link to an
 external repository, as per mailing list discussion.

---
 share/perl/test/OpenSimTest/UserTester.pm | 53 -------------------------------
 1 file changed, 53 deletions(-)
 delete 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
deleted file mode 100644
index 194102a..0000000
--- a/share/perl/test/OpenSimTest/UserTester.pm
+++ /dev/null
@@ -1,53 +0,0 @@
-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