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/InventoryTester.pm | 116 -------------------------
 1 file changed, 116 deletions(-)
 delete mode 100644 share/perl/test/OpenSimTest/InventoryTester.pm

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

diff --git a/share/perl/test/OpenSimTest/InventoryTester.pm b/share/perl/test/OpenSimTest/InventoryTester.pm
deleted file mode 100644
index 76615b1..0000000
--- a/share/perl/test/OpenSimTest/InventoryTester.pm
+++ /dev/null
@@ -1,116 +0,0 @@
-package InventoryTester;
-
-use strict;
-use XML::Serializer;
-use OpenSim::Utility;
-
-sub init {
-	&OpenSimTest::Config::registerHandler("create_inventory", \&_create_inventory);
-	&OpenSimTest::Config::registerHandler("root_folders", \&_root_folders);
-	&OpenSimTest::Config::registerHandler("get_inventory", \&_get_inventory);
-	&OpenSimTest::Config::registerHandler("new_item", \&_new_item);
-	&OpenSimTest::Config::registerHandler("new_folder", \&_new_folder);
-}
-
-sub _apache_flag {
-	my $url = shift;
-	return $url =~ /inventory.cgi/ ? 1 : 0;
-}
-
-sub _new_folder {
-	my $url = shift || $OpenSimTest::Config::INVENTORY_SERVER_URL;
-	my $post_data =<<"POSTDATA";
-<InventoryFolderBase>
-<name>New Folder</name>
-	<agentID>
-<UUID>b9cb58e8-f3c9-4af5-be47-029762baa68f</UUID>
-</agentID>
-	<parentID>
-<UUID>500ea141-2967-49e2-9e18-fcdedffe68df</UUID>
-</parentID>
-	<folderID>
-<UUID>aa6f9220-c945-0b23-6141-43c9ef734100</UUID>
-</folderID>
-<type>-1</type>
-<version>0</version>
-</InventoryFolderBase>
-POSTDATA
-	if (&_apache_flag($url)) {
-		$post_data = "POSTDATA=" . $post_data; # TODO: bad temporary solution
-	}
-	my $res = &OpenSim::Utility::HttpPostRequest($url . "/NewFolder/", $post_data) . "\n";
-}
-
-sub _new_item {
-	my $url = shift || $OpenSimTest::Config::INVENTORY_SERVER_URL;
-	my $post_data =<<"POSTDATA";
-<InventoryItemBase>
-	<inventoryID>
-<UUID>f975d038-3bd7-4e8b-a945-f46b0c962ee3</UUID>
-</inventoryID>
-	<assetID>
-<UUID>5f50f162-1cc6-4907-99be-a4c81d7f5e10</UUID>
-</assetID>
-<assetType>6</assetType>
-<invType>6</invType>
-	<parentFolderID>
-<UUID>7018dc23-43a9-493f-b3f7-869a6bbad0f3</UUID>
-</parentFolderID>
-	<avatarID>
-<UUID>b9cb58e8-f3c9-4af5-be47-029762baa68f</UUID>
-</avatarID>
-	<creatorsID>
-<UUID>b9cb58e8-f3c9-4af5-be47-029762baa68f</UUID>
-</creatorsID>
-<inventoryName>Primitive</inventoryName>
-<inventoryDescription/>
-<inventoryNextPermissions>2147483647</inventoryNextPermissions>
-<inventoryCurrentPermissions>526053692</inventoryCurrentPermissions>
-<inventoryBasePermissions>2147483647</inventoryBasePermissions>
-<inventoryEveryOnePermissions>0</inventoryEveryOnePermissions>
-</InventoryItemBase>
-POSTDATA
-	if (&_apache_flag($url)) {
-		$post_data = "POSTDATA=" . $post_data;
-	}
-	my $res = &OpenSim::Utility::HttpPostRequest($url . "/NewItem/", $post_data) . "\n";
-}
-
-sub _get_inventory {
-	my $url = shift || $OpenSimTest::Config::INVENTORY_SERVER_URL;
-	my $uuid = shift;
-	my $serializer = new XML::Serializer($uuid, "guid");
-	my $post_data = $serializer->to_string(XML::Serializer::WITH_HEADER);
-	if (&_apache_flag($url)) {
-		$post_data = "POSTDATA=" . $post_data;
-	}
-	my $res = &OpenSim::Utility::HttpPostRequest($url . "/GetInventory/", $post_data) . "\n";
-	return 1;
-}
-
-sub _create_inventory {
-	my $url = shift || $OpenSimTest::Config::INVENTORY_SERVER_URL;
-	my $uuid = shift;
-	my $serializer = new XML::Serializer($uuid, "guid");
-	my $post_data = $serializer->to_string(XML::Serializer::WITH_HEADER);
-	if (&_apache_flag($url)) {
-		$post_data = "POSTDATA=" . $post_data;
-	}
-	my $res = &OpenSim::Utility::HttpPostRequest($url . "/CreateInventory/", $post_data) . "\n";
-	return 1;
-}
-
-sub _root_folders {
-	my $url = shift || $OpenSimTest::Config::INVENTORY_SERVER_URL;
-	my $uuid = shift;
-	my $serializer = new XML::Serializer($uuid, "guid");
-	my $post_data = $serializer->to_string(XML::Serializer::WITH_HEADER);
-	if (&_apache_flag($url)) {
-		$post_data = "POSTDATA=" . $post_data;
-	}
-	my $res = &OpenSim::Utility::HttpPostRequest($url . "/RootFolders/", $post_data) . "\n";
-	return 1;
-}
-
-1;
-
-- 
cgit v1.1