Net::UPnP::AV::MediaReUsereContributed Perl DocNet::UPnP::AV::MediaRenderer(3)NAMENet::UPnP::AV::MediaRenderer - Perl extension for UPnP.
SYNOPSIS
use Net::UPnP::ControlPoint;
use Net::UPnP::AV::MediaRenderer;
my $obj = Net::UPnP::ControlPoint->new();
@dev_list = ();
while (@dev_list <= 0 || $retry_cnt > 5) {
@dev_list = $obj->search(st =>'upnp:rootdevice', mx => 3);
$retry_cnt++;
}
$devNum= 0;
foreach $dev (@dev_list) {
my $device_type = $dev->getdevicetype();
if ($device_type ne 'urn:schemas-upnp-org:device:MediaRenderer:1') {
next;
}
my $friendlyname = $dev->getfriendlyname();
print "[$devNum] : " . $friendlyname . "\n";
my $renderer = Net::UPnP::AV::MediaRenderer->new();
$renderer->setdevice($dev);
$renderer->stop();
$renderer->setAVTransportURI(CurrentURI => 'http://xxx.xxx.xxx.xxx/xxxx.mpg');
$renderer->play();
$devNum++;
}
DESCRIPTION
The package is a extention UPnP/AV media server.
METHODS
new - create new Net::UPnP::AV::MediaRenderer.
$renderer = Net::UPnP::AV::MediaRenderer();
Creates a new object. Read `perldoc perlboot` if you don't
understand that.
The new object is not associated with any UPnP devices. Please use
setdevice() to set the device.
setdevice - set a UPnP devices
$renderer->setdevice($dev);
Set a device to the object.
setAVTransportURI - set a current content.
@action_response = $renderer->setAVTransportURI(
InstanceID => $instanceID, # 0
CurrentURI => $url, # ''
CurrentURIMetaData => $metaData, # "'
);
Set a current content to play, Net::UPnP::ActionResponse.
setNextAVTransportURI - set a next content.
@action_response = $renderer->setNextAVTransportURI(
InstanceID => $instanceID, # 0
NextURI => $url, # ''
NextURIMetaData => $metaData, # "'
);
Set a next content to play, Net::UPnP::ActionResponse.
play - play.
@action_response = $renderer->play(
InstanceID => $instanceID, # 0
Speed => $url, # 1
);
Play the specified content.
stop - stop.
@action_response = $renderer->stop(
InstanceID => $instanceID, # 0
);
Stop the playing content.
SEE ALSO
Net::UPnP::AV::Content
Net::UPnP::AV::Item
Net::UPnP::AV::Container
AUTHOR
Satoshi Konno skonno@cybergarage.org
CyberGarage http://www.cybergarage.org
COPYRIGHT AND LICENSE
Copyright (C) 2005 by Satoshi Konno
It may be used, redistributed, and/or modified under the terms of BSD
License.
perl v5.14.0 2009-07-27 Net::UPnP::AV::MediaRenderer(3)