debian man page for net::upnp::device

Query: net::upnp::device

OS: debian

Section: 3pm

Format: Original Unix Latex Style Formatted with HTML and a Horizontal Scroll Bar

Net::UPnP::Device(3pm)					User Contributed Perl Documentation				    Net::UPnP::Device(3pm)

NAME
Net::UPnP::Device - Perl extension for UPnP.
SYNOPSIS
use Net::UPnP::ControlPoint; 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() . " "; unless ($dev->getservicebyname('urn:schemas-upnp-org:service:ContentDirectory:1')) { next; } $condir_service = $dev->getservicebyname('urn:schemas-upnp-org:service:ContentDirectory:1'); unless (defined(condir_service)) { next; } %action_in_arg = ( 'ObjectID' => 0, 'BrowseFlag' => 'BrowseDirectChildren', 'Filter' => '*', 'StartingIndex' => 0, 'RequestedCount' => 0, 'SortCriteria' => '', ); $action_res = $condir_service->postcontrol('Browse', \%action_in_arg); unless ($action_res->getstatuscode() == 200) { next; } $actrion_out_arg = $action_res->getargumentlist(); unless ($actrion_out_arg->{'Result'}) { next; } $result = $actrion_out_arg->{'Result'}; while ($result =~ m/<dc:title>(.*?)</dc:title>/sgi) { print " $1 "; } $devNum++; }
DESCRIPTION
The package is used a object of UPnP device.
METHODS
getdescription - get the description. $description = $dev->getdescription( name => $name # undef ); Get the device description of the SSDP location header. The function returns the all description when the name parameter is not specified, otherwise return a value the specified name. getdevicetype - get the device type. $description = $dev->getdevicetype(); Get the device type from the device description. getfriendlyname - get the device type. $friendlyname = $dev->getfriendlyname(); Get the friendly name from the device description. getmanufacturer - get the manufacturer. $manufacturer = $dev->getmanufacturer(); Get the manufacturer name from the device description. getmanufacturerrul - get the manufacturer url. $manufacturer_url = $dev->getmanufacturerrul(); Get the manufacturer url from the device description. getmodeldescription - get the model description. $model_description = $dev->getmodeldescription(); Get the model description from the device description. getmodelname - get the model name. $model_name = $dev->getmodelname(); Get the model name from the device description. getmodelnumber - get the model number. $model_number = $dev->getmodelnumber(); Get the model number from the device description. getmodelurl - get the model url. $model_url = $dev->getmodelurl(); Get the model url from the device description. getserialnumber - get the serialnumber. $serialnumber = $dev->getserialnumber(); Get the model description from the device description. getudn - get the device UDN. $udn = $dev->getudn(); Get the UDN from the device description. getupc - get the device UPC. $upc = $dev->getupc(); Get the UPC from the device description. getservicelist - get the device type. @service_list = $dev->getservicelist(); Get the service list in the device. Please see Net::UPnP::Service too.
SEE ALSO
Net::UPnP::Service
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.10.1 2009-07-27 Net::UPnP::Device(3pm)
Related Man Pages
device_maps(4) - sunos
device_maps(4) - osx
net::gpsd3::return::device(3pm) - debian
net::upnp::queryresponse(3pm) - debian
sys::virt::nodedevice(3pm) - debian
Similar Topics in the Unix Linux Community
Coherence 0.5.4 (Default branch)
Coherence 0.6.0 (Default branch)
BRisa UPnP Framework 0.8 (Default branch)
Coherence 0.6.2 (Default branch)
My router has UPnP, as do its work with ubuntu to automatically open ports