2 files changed, 58 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;
diff --git a/share/perl/lib/OpenSim/AssetServer/Config.pm b/share/perl/lib/OpenSim/AssetServer/Config.pm
new file mode 100644
index 0000000..5598921
--- /dev/null
+++ b/share/perl/lib/OpenSim/AssetServer/Config.pm
@@ -0,0 +1,24 @@
+package OpenSim::AssetServer::Config;
+
+use strict;
+
+our %SYS_SQL = (
+        select_asset_by_uuid =>
+                "SELECT * FROM assets WHERE id=X?",
+        insert_asset =>
+                "INSERT INTO assets VALUES (?,?,?,?,?,?,?,?)"
+);
+
+
+our @ASSETS_COLUMNS = (
+        "id",
+        "name",
+        "description",
+        "assetType",
+        "invType",
+        "local",
+        "temporary",
+        "data",
+);
+
+1;