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. --- .../OpenSim/InventoryServer/InventoryManager.pm | 86 ---------------------- 1 file changed, 86 deletions(-) delete mode 100644 share/perl/lib/OpenSim/InventoryServer/InventoryManager.pm (limited to 'share/perl/lib/OpenSim/InventoryServer/InventoryManager.pm') diff --git a/share/perl/lib/OpenSim/InventoryServer/InventoryManager.pm b/share/perl/lib/OpenSim/InventoryServer/InventoryManager.pm deleted file mode 100644 index 97111b7..0000000 --- a/share/perl/lib/OpenSim/InventoryServer/InventoryManager.pm +++ /dev/null @@ -1,86 +0,0 @@ -package OpenSim::InventoryServer::InventoryManager; - -use strict; -use Carp; -use OpenSim::Utility; -use OpenSim::InventoryServer::Config; - -sub saveInventoryFolder { - my $folder = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{save_inventory_folder}, - $folder->{"folderID"}, - $folder->{"agentID"}, - $folder->{"parentFolderID"}, - $folder->{"folderName"}, - $folder->{"type"}, - $folder->{"version"}); -} - -sub saveInventoryItem { - my $item = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{save_inventory_item}, - $item->{"inventoryID"}, - $item->{"assetID"}, - $item->{"type"}, - $item->{"parentFolderID"}, - $item->{"avatarID"}, - $item->{"inventoryName"}, - $item->{"inventoryDescription"}, - $item->{"inventoryNextPermissions"}, - $item->{"inventoryCurrentPermissions"}, - $item->{"assetType"}, - $item->{"invType"}, - $item->{"creatorID"}, - $item->{"inventoryBasePermissions"}, - $item->{"inventoryEveryOnePermissions"}); -} - -sub getRootFolder { - my $agent_id = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{get_root_folder}, - &OpenSim::Utility::ZeroUUID(), - $agent_id); - my $count = @$result; - if ($count > 0) { - return $result->[0]; - } else { - return undef; - } -} - -sub getChildrenFolders { - my $parent_id = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{get_children_folders}, $parent_id); - return $result; -} - -sub getUserInventoryFolders { - my $agent_id = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{get_user_inventory_folders}, - $agent_id); - return $result; -} - -sub getUserInventoryItems { - my $agent_id = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{get_user_inventory_items}, - $agent_id); - return $result; -} - -sub deleteInventoryItem { - my $item_id = shift; - &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{delete_inventory_item}, - $item_id); -} - -sub moveInventoryFolder { - my $info = shift; - &OpenSim::Utility::getSimpleResult($OpenSim::InventoryServer::Config::SYS_SQL{move_inventory_folder}, - $info->{parentID}->{UUID}, # TODO: not good - $info->{folderID}->{UUID}, # TODO: not good UUID should be extracted in the higher level - ); -} - -1; - -- cgit v1.1