share/perl/test/OpenSimTest/AssetTester.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;