package Plugins::Testing; sub getDisplayName() {return "PLUGIN_TESTING_MODULE_NAME"; }; sub strings { return " PLUGIN_TESTING_MODULE_NAME EN Testing ";} sub do_init_test_cb { my $http = shift; my $foo = $http->params('foo'); $::d_plugins && Slim::Utils::Misc::msg("processing do_init_test_cb, foo=" . $foo . " \n"); } sub do_init_test_err_cb { my $http = shift; my $foo = $http->params('foo'); $::d_plugins && Slim::Utils::Misc::msg("processing do_init_test_err_cb, foo=" . $foo . " \n"); } my $http; my $http2; sub do_init_test { $http = Slim::Networking::SimpleAsyncHTTP->new(\&do_init_test_cb, \&do_init_test_err_cb, {foo=>1}); $http->get("http://www.slimdevices.com/"); $::d_plugins && Slim::Utils::Misc::msg("http is " . $http . "\n"); $http2 = Slim::Networking::SimpleAsyncHTTP->new(\&do_init_test_cb, \&do_init_test_err_cb, {foo=>2}); $http2->get("http://www.slimdevices.com/"); } sub initPlugin { # do_init_test(); Slim::Utils::Timers::setTimer("FOOBAR", Time::HiRes::time() + 1, \&do_init_test); } 1;