| Net::UPnP::AV::MediaServer(3pm) | User Contributed Perl Documentation | Net::UPnP::AV::MediaServer(3pm) |
Net::UPnP::AV::MediaServer - Perl extension for UPnP.
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);
}
}
The package is a extension UPnP/AV media server.
$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.
$mservier->setdevice($dev);
Set a device to the object.
@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.
@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::Content
Net::UPnP::AV::Item
Net::UPnP::AV::Container
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.
| 2018-12-26 | perl v5.28.1 |