MediaServer CDSでBrowseした結果を解析する(Attributeの表示)
ここでは、CDS::Browseを行った結果に含まれるオブジェクトに含まれるAttribute(属性)情報を表示する方法を説明したいと思います。
サンプルコード
サンプルです。
このサンプルはBrowse Actionに対するResponseに入っているResultを解析しています。 XMLのパースにはXML::DOMを利用しています。
itemやcontainerに含まれるAttributeを表示しています。 例えば、object id (id)やparentIDやrestrictedが表示されます。 containerであれば、childCountなどが入ることもあります。 その他、実装によって様々なAttributeがあり得ます。
#!/usr/bin/perl
use Net::UPnP::ControlPoint;
use XML::DOM;
$upnp = Net::UPnP::ControlPoint->new();
@devs = $upnp->search(st => 'upnp:rootdevice', mx => 3);
foreach $dev (@devs) {
$type = $dev->getdevicetype();
if ($type ne 'urn:schemas-upnp-org:device:MediaServer:1') {
next;
}
$serv = $dev->getservicebyname(
'urn:schemas-upnp-org:service:ContentDirectory:1');
unless ($serv) {
next;
}
print $dev->getfriendlyname();
print "\n";
$inarg{'ObjectID'} = "0";
$inarg{'BrowseFlag'} = "BrowseDirectChildren";
$inarg{'Filter'} = "";
$inarg{'StartingIndex'} = "0";
$inarg{'RequestedCount'} = "0";
$inarg{'SortCriteria'} = "";
$resp = $serv->postaction('Browse', \%inarg);
if ($resp->getstatuscode() != 200) {
print "ERROR : status code ";
print $resp->getstatuscode();
print "\n";
next;
}
$args = $resp->getargumentlist();
print $args->{'Result'};
print "\n";
print $args->{'NumberReturned'};
print "\n";
print $args->{'TotalMatches'};
print "\n";
print $args->{'UpdateID'};
print "\n";
print "===\n";
print "Print Result\n";
print "===\n";
$parser = new XML::DOM::Parser;
$doc = $parser->parse($args->{'Result'});
$didl = $doc->getFirstChild();
$nodes = $didl->getChildNodes();
for ($i=0; $i<$nodes->getLength(); $i++) {
$node = $nodes->item($i);
print $node->getNodeName();
print "\n";
}
}
exit;