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

* I love you long time.

1 files changed, 17 insertions, 0 deletions

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;