diff options
author | Justin Clarke Casey | 2008-04-08 11:19:34 +0000 |
---|---|---|
committer | Justin Clarke Casey | 2008-04-08 11:19:34 +0000 |
commit | 0c601b73125d1bc120e248149bf4d83ecc27f1c2 (patch) | |
tree | 6c12f957e3cedda58a725b25e43b9595124bfb54 /share/perl/lib/OpenSim/AssetServer | |
parent | * Added stretchable ellipsoid support with configurable LOD. It's actually a... (diff) | |
download | opensim-SC-0c601b73125d1bc120e248149bf4d83ecc27f1c2.zip opensim-SC-0c601b73125d1bc120e248149bf4d83ecc27f1c2.tar.gz opensim-SC-0c601b73125d1bc120e248149bf4d83ecc27f1c2.tar.bz2 opensim-SC-0c601b73125d1bc120e248149bf4d83ecc27f1c2.tar.xz |
* Removing lulurun's perl UGAI from core svn, pending a link to an external repository, as per mailing list discussion.
Diffstat (limited to 'share/perl/lib/OpenSim/AssetServer')
-rw-r--r-- | share/perl/lib/OpenSim/AssetServer/AssetManager.pm | 34 | ||||
-rw-r--r-- | share/perl/lib/OpenSim/AssetServer/Config.pm | 24 |
2 files changed, 0 insertions, 58 deletions
diff --git a/share/perl/lib/OpenSim/AssetServer/AssetManager.pm b/share/perl/lib/OpenSim/AssetServer/AssetManager.pm deleted file mode 100644 index f36ab1a..0000000 --- a/share/perl/lib/OpenSim/AssetServer/AssetManager.pm +++ /dev/null | |||
@@ -1,34 +0,0 @@ | |||
1 | package OpenSim::AssetServer::AssetManager; | ||
2 | |||
3 | use strict; | ||
4 | use Carp; | ||
5 | use OpenSim::Utility; | ||
6 | use OpenSim::AssetServer::Config; | ||
7 | |||
8 | |||
9 | sub getAssetByUUID { | ||
10 | my $uuid = shift; | ||
11 | my $result = &OpenSim::Utility::getSimpleResult($OpenSim::AssetServer::Config::SYS_SQL{select_asset_by_uuid}, $uuid); | ||
12 | my $count = @$result; | ||
13 | if ($count > 0) { | ||
14 | return $result->[0]; | ||
15 | } | ||
16 | Carp::croak("can not find asset($uuid)"); | ||
17 | } | ||
18 | |||
19 | sub saveAsset { | ||
20 | my $asset = shift; | ||
21 | my $result = &OpenSim::Utility::getSimpleResult( | ||
22 | $OpenSim::AssetServer::Config::SYS_SQL{insert_asset}, | ||
23 | $asset->{id}, | ||
24 | $asset->{name}, | ||
25 | $asset->{description}, | ||
26 | $asset->{assetType}, | ||
27 | $asset->{invType}, | ||
28 | $asset->{"local"}, | ||
29 | $asset->{temporary}, | ||
30 | $asset->{data} | ||
31 | ); | ||
32 | } | ||
33 | |||
34 | 1; | ||
diff --git a/share/perl/lib/OpenSim/AssetServer/Config.pm b/share/perl/lib/OpenSim/AssetServer/Config.pm deleted file mode 100644 index 5598921..0000000 --- a/share/perl/lib/OpenSim/AssetServer/Config.pm +++ /dev/null | |||
@@ -1,24 +0,0 @@ | |||
1 | package OpenSim::AssetServer::Config; | ||
2 | |||
3 | use strict; | ||
4 | |||
5 | our %SYS_SQL = ( | ||
6 | select_asset_by_uuid => | ||
7 | "SELECT * FROM assets WHERE id=X?", | ||
8 | insert_asset => | ||
9 | "INSERT INTO assets VALUES (?,?,?,?,?,?,?,?)" | ||
10 | ); | ||
11 | |||
12 | |||
13 | our @ASSETS_COLUMNS = ( | ||
14 | "id", | ||
15 | "name", | ||
16 | "description", | ||
17 | "assetType", | ||
18 | "invType", | ||
19 | "local", | ||
20 | "temporary", | ||
21 | "data", | ||
22 | ); | ||
23 | |||
24 | 1; | ||