From 8c05b81d6860d8e0da4098cc6f59f630d7c53037 Mon Sep 17 00:00:00 2001
From: Adam Frisby
Date: Tue, 25 Mar 2008 16:29:54 +0000
Subject: * Committing Lulurun's Cgi/Perl implementation of the UGAI servers. *
 I love you long time.

---
 share/perl/lib/OpenSim/AssetServer/AssetManager.pm | 34 ++++++++++++++++++++++
 share/perl/lib/OpenSim/AssetServer/Config.pm       | 24 +++++++++++++++
 2 files changed, 58 insertions(+)
 create mode 100644 share/perl/lib/OpenSim/AssetServer/AssetManager.pm
 create mode 100644 share/perl/lib/OpenSim/AssetServer/Config.pm

(limited to 'share/perl/lib/OpenSim/AssetServer')

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;
-- 
cgit v1.1