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/Config.pm      | 50 ---------------------
 share/perl/lib/OpenSim/GridServer/GridManager.pm | 57 ------------------------
 2 files changed, 107 deletions(-)
 delete mode 100644 share/perl/lib/OpenSim/GridServer/Config.pm
 delete mode 100644 share/perl/lib/OpenSim/GridServer/GridManager.pm

(limited to 'share/perl/lib/OpenSim/GridServer')

diff --git a/share/perl/lib/OpenSim/GridServer/Config.pm b/share/perl/lib/OpenSim/GridServer/Config.pm
deleted file mode 100644
index dc72e5a..0000000
--- a/share/perl/lib/OpenSim/GridServer/Config.pm
+++ /dev/null
@@ -1,50 +0,0 @@
-package OpenSim::GridServer::Config;
-
-use strict;
-
-our %SYS_SQL = (
-	select_region_by_uuid =>
-	"SELECT * FROM regions WHERE uuid=?",
-	select_region_by_handle =>
-	"SELECT * FROM regions WHERE regionHandle=?",
-	select_region_list =>
-	"SELECT * FROM regions WHERE locX>=? AND locX<? AND locY>=? AND locY<?",
-	select_region_list2 =>
-	"SELECT * FROM regions WHERE locX>=? AND locX<? AND locY>=? AND locY<?",
-	insert_region =>
-	"INSERT INTO regions VALUES (?????????)",
-	delete_all_regions =>
-	"delete from regions",
-);
-
-
-our @REGIONS_COLUMNS = (
-	"uuid",
-	"regionHandle",
-	"regionName",
-	"regionRecvKey",
-	"regionSendKey",
-	"regionSecret",
-	"regionDataURI",
-	"serverIP",
-	"serverPort",
-	"serverURI",
-	"locX",
-	"locY",
-	"locZ",
-	"eastOverrideHandle",
-	"westOverrideHandle",
-	"southOverrideHandle",
-	"northOverrideHandle",
-	"regionAssetURI",
-	"regionAssetRecvKey",
-	"regionAssetSendKey",
-	"regionUserURI",
-	"regionUserRecvKey",
-	"regionUserSendKey",
-	"regionMapTexture",
-	"serverHttpPort",
-	"serverRemotingPort",
-);
-
-1;
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