2 files changed, 107 insertions, 0 deletions

diff --git a/share/perl/lib/OpenSim/GridServer/Config.pm b/share/perl/lib/OpenSim/GridServer/Config.pm
new file mode 100644
index 0000000..dc72e5a
--- /dev/null
+++ b/share/perl/lib/OpenSim/GridServer/Config.pm
@@ -0,0 +1,50 @@
+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
new file mode 100644
index 0000000..2170d74
--- /dev/null
+++ b/share/perl/lib/OpenSim/GridServer/GridManager.pm
@@ -0,0 +1,57 @@
+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;