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/lib/OpenSim/InventoryServer/Config.pm | 51 ------------- .../OpenSim/InventoryServer/InventoryManager.pm | 86 ---------------------- 2 files changed, 137 deletions(-) delete mode 100644 share/perl/lib/OpenSim/InventoryServer/Config.pm delete mode 100644 share/perl/lib/OpenSim/InventoryServer/InventoryManager.pm (limited to 'share/perl/lib/OpenSim/InventoryServer') diff --git a/share/perl/lib/OpenSim/InventoryServer/Config.pm b/share/perl/lib/OpenSim/InventoryServer/Config.pm deleted file mode 100644 index 64dbdd1..0000000 --- a/share/perl/lib/OpenSim/InventoryServer/Config.pm +++ /dev/null @@ -1,51 +0,0 @@ -package OpenSim::InventoryServer::Config; - -use strict; - -our %SYS_SQL = ( - save_inventory_folder => - "REPLACE INTO inventoryfolders VALUES (?,?,?,?,?,?)", - save_inventory_item => - "REPLACE INTO inventoryitems VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", - get_root_folder => - "SELECT * FROM inventoryfolders WHERE parentFolderID=? AND agentId=?", - get_children_folders => - "SELECT * FROM inventoryfolders WHERE parentFolderID=?", - get_user_inventory_folders => - "SELECT * FROM inventoryfolders WHERE agentID=?", - get_user_inventory_items => - "SELECT * FROM inventoryitems WHERE avatarID=?", - delete_inventory_item => - "DELETE FROM inventoryitems WHERE inventoryID=?", - move_inventory_folder => - "UPDATE inventoryfolders SET parentFolderID=? WHERE folderID=?", -); - - -our @INVENTORYFOLDERS_COLUMNS = ( - "folderID", - "agentID", - "parentFolderID", - "folderName", - "type", - "version", -); - -our @INVENTORYITEMS_COLUMNS = ( - "inventoryID", - "assetID", - "type", - "parentFolderID", - "avatarID", - "inventoryName", - "inventoryDescription", - "inventoryNextPermissions", - "inventoryCurrentPermissions", - "assetType", - "invType", - "creatorID", - "inventoryBasePermissions", - "inventoryEveryOnePermissions", -); - -1; 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