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

* I love you long time.

1 files changed, 34 insertions, 0 deletions

diff --git a/share/perl/lib/OpenSim/AssetServer/AssetManager.pm b/share/perl/lib/OpenSim/AssetServer/AssetManager.pm
new file mode 100644
index 0000000..f36ab1a
--- /dev/null
+++ b/share/perl/lib/OpenSim/AssetServer/AssetManager.pm
@@ -0,0 +1,34 @@
+package OpenSim::AssetServer::AssetManager;
+
+use strict;
+use Carp;
+use OpenSim::Utility;
+use OpenSim::AssetServer::Config;
+
+
+sub getAssetByUUID {
+        my $uuid = shift;
+        my $result = &OpenSim::Utility::getSimpleResult($OpenSim::AssetServer::Config::SYS_SQL{select_asset_by_uuid}, $uuid);
+        my $count = @$result;
+        if ($count > 0) {
+                return $result->[0];
+        }
+        Carp::croak("can not find asset($uuid)");
+}
+
+sub saveAsset {
+        my $asset = shift;
+        my $result = &OpenSim::Utility::getSimpleResult(
+                $OpenSim::AssetServer::Config::SYS_SQL{insert_asset},
+                $asset->{id},
+                $asset->{name},
+                $asset->{description},
+                $asset->{assetType},
+                $asset->{invType},
+                $asset->{"local"},
+                $asset->{temporary},
+                $asset->{data}
+        );
+}
+
+1;