* Committing Lulurun's Cgi/Perl implementation of the UGAI servers.

* I love you long time.

1 files changed, 57 insertions, 0 deletions

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;