debian man page for net::upnp::queryresponse

Query: net::upnp::queryresponse

OS: debian

Section: 3pm

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

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

NAME
Net::UPnP::QueryResponse - 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 the action response.
METHODS
getstatuscode - get the status code. $status_code = $queryres->getstatuscode(); Get the status code of the SOAP response. getvalue - get the return value. $value = $queryres->getvalue(); Get the value of the SOAP response.
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::QueryResponse(3pm)
Related Man Pages
net::upnp::device(3pm) - debian
net::epp::frame::command::delete::contact(3pm) - debian
net::upnp(3pm) - debian
net::upnp::actionresponse(3pm) - debian
net::upnp::controlpoint(3pm) - debian
Similar Topics in the Unix Linux Community
Coherence 0.5.2 (Default branch)
Coherence 0.5.8 (Default branch)
Coherence 0.6.0 (Default branch)
BRisa UPnP Framework 0.8 (Default branch)
My router has UPnP, as do its work with ubuntu to automatically open ports