123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- 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;
|