Net::UPnP::AV::MediaRenderer.3pm

Langue: en

Version: 2009-07-27 (ubuntu - 24/10/10)

Section: 3 (Bibliothèques de fonctions)

Sommaire

NAME

Net::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 (C) 2005 by Satoshi Konno

It may be used, redistributed, and/or modified under the terms of BSD License.