1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
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;
|
