18 lines
349 B
Perl
18 lines
349 B
Perl
|
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;
|