OpenSimMirror/share/perl/test/OpenSimTest/AssetTester.pm

18 lines
349 B
Perl
Raw Normal View History

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;