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/test/OpenSimTest/AssetTester.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 share/perl/test/OpenSimTest/AssetTester.pm

(limited to 'share/perl/test/OpenSimTest/AssetTester.pm')

diff --git a/share/perl/test/OpenSimTest/AssetTester.pm b/share/perl/test/OpenSimTest/AssetTester.pm
new file mode 100644
index 0000000..ba05205
--- /dev/null
+++ b/share/perl/test/OpenSimTest/AssetTester.pm
@@ -0,0 +1,17 @@
+package AssetTester;
+
+use strict;
+use XML::Serializer;
+use OpenSim::Utility;
+
+sub init {
+	&OpenSimTest::Config::registerHandler("get_asset", \&_get_asset);
+}
+
+sub _get_asset {
+	my $url = shift || $OpenSimTest::Config::ASSET_SERVER_URL;
+	my $asset_id = shift;
+	my $res = &OpenSim::Utility::HttpGetRequest($url . "/assets/" . $asset_id) . "\n";
+}
+
+1;
-- 
cgit v1.1