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/GridServer/GridManager.pm | 57 ------------------------ 1 file changed, 57 deletions(-) delete mode 100644 share/perl/lib/OpenSim/GridServer/GridManager.pm (limited to 'share/perl/lib/OpenSim/GridServer/GridManager.pm') diff --git a/share/perl/lib/OpenSim/GridServer/GridManager.pm b/share/perl/lib/OpenSim/GridServer/GridManager.pm deleted file mode 100644 index 2170d74..0000000 --- a/share/perl/lib/OpenSim/GridServer/GridManager.pm +++ /dev/null @@ -1,57 +0,0 @@ -package OpenSim::GridServer::GridManager; - -use strict; -use Carp; -use OpenSim::Utility; -use OpenSim::GridServer::Config; - -sub getRegionByUUID { - my $uuid = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::GridServer::Config::SYS_SQL{select_region_by_uuid}, $uuid); - my $count = @$result; - if ($count > 0) { - return $result->[0]; - } - Carp::croak("can not find region"); -} - -sub getRegionByHandle { - my $handle = shift; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::GridServer::Config::SYS_SQL{select_region_by_handle}, $handle); - my $count = @$result; - if ($count > 0) { - return $result->[0]; - } - Carp::croak("can not find region # $handle"); -} - -sub getRegionList { - my ($xmin, $ymin, $xmax, $ymax) = @_; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::GridServer::Config::SYS_SQL{select_region_list}, $xmin, $xmax, $ymin, $ymax); - my $count = @$result; - if ($count > 0) { - return $result; - } - Carp::croak("can not find region"); -} - -sub getRegionList2 { - my ($xmin, $ymin, $xmax, $ymax) = @_; - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::GridServer::Config::SYS_SQL{select_region_list2}, $xmin, $xmax, $ymin, $ymax); - my $count = @$result; - if ($count > 0) { - return $result; - } - Carp::croak("can not find region"); -} - -sub deleteRegions { - my $result = &OpenSim::Utility::getSimpleResult($OpenSim::GridServer::Config::SYS_SQL{delete_all_regions}); - my $count = @$result; - if ($count > 0) { - return $result; - } - Carp::croak("failed to delete regions"); -} - -1; -- cgit v1.1