1 files changed, 116 insertions, 0 deletions

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