Net::UPnP::AV::MediaServer - Perl extension for UPnP.

       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.

perl v5.36.0                                       2022-12-06                    Net::UPnP::AV::MediaServer(3pm)

       The package is a extension UPnP/AV media server.

new - create new Net::UPnP::AV::MediaServer.
               $mservier = Net::UPnP::AV::MediaServer();

           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
               $mservier->setdevice($dev);

           Set a device to the object.

       browse - browse the content directory.
               @action_response = $mservier->browse(
                                                   ObjectID => $objid, # 0
                                                   BrowseFlag => $browseFlag, # 'BrowseDirectChildren'
                                                   Filter => $filter, # "*'
                                                   StartingIndex => $startIndex, # 0
                                                   RequestedCount => $reqCount, # 0
                                                   SortCriteria => $sortCrit # ''
                                                   );

           Browse the content directory and return the action response, Net::UPnP::ActionResponse.

       getcontentlist - get the content list.
               @content_list = $mservier->getcontentlist(
                                                   ObjectID => $objid, # 0
                                                   Filter => $filter, # "*'
                                                   StartingIndex => $startIndex, # 0
                                                   RequestedCount => $reqCount, # 0
                                                   SortCriteria => $sortCrit # ''
                                                   );

           Browse  the  content  directory  and  return  the  content  list.  Please see Net::UPnP::AV::Content,
           Net::UPnP::AV::Item and Net::UPnP::AV::Container.

       Net::UPnP::AV::MediaServer - Perl extension for UPnP.

       Net::UPnP::AV::Content

       Net::UPnP::AV::Item

       Net::UPnP::AV::Container

           use Net::UPnP::ControlPoint;
           use Net::UPnP::AV::MediaServer;

           my $obj = Net::UPnP::ControlPoint->new();

           @dev_list = $obj->search(st =>'upnp:rootdevice', mx => 3);

           $devNum= 0;
           foreach $dev (@dev_list) {
               $device_type = $dev->getdevicetype();
               if  ($device_type ne 'urn:schemas-upnp-org:device:MediaServer:1') {
                   next;
               }
               print "[$devNum] : " . $dev->getfriendlyname() . "\n";
               unless ($dev->getservicebyname('urn:schemas-upnp-org:service:ContentDirectory:1')) {
                   next;
               }
               $mediaServer = Net::UPnP::AV::MediaServer->new();
               $mediaServer->setdevice($dev);
               @content_list = $mediaServer->getcontentlist(ObjectID => 0);
               foreach $content (@content_list) {
                   print_content($mediaServer, $content, 1);
               }
               $devNum++;
           }

           sub print_content {
               my ($mediaServer, $content, $indent) = @_;
               my $id = $content->getid();
               my $title = $content->gettitle();
               for ($n=0; $n<$indent; $n++) {
                   print "\t";
               }
               print "$id = $title";
               if ($content->isitem()) {
                   print " (" . $content->geturl();
                   if (length($content->getdate())) {
                       print " - " . $content->getdate();
                   }
                   print " - " . $content->getcontenttype() . ")";
               }
               print "\n";
               unless ($content->iscontainer()) {
                   return;
               }
               @child_content_list = $mediaServer->getcontentlist(ObjectID => $id );
               if (@child_content_list <= 0) {
                   return;
               }
               $indent++;
               foreach my $child_content (@child_content_list) {
                   print_content($mediaServer, $child_content, $indent);
               }
           }