debian man page for net::upnp::actionresponse

Query: net::upnp::actionresponse

OS: debian

Section: 3pm

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

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

NAME
Net::UPnP::ActionResponse - 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 = $actionres->getstatuscode(); Get the status code of the SOAP response. getargumentlist - get the argument list. \%argument_list = $actionres->getargumentlist(); Get the argument list 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::ActionResponse(3pm)
Related Man Pages
net::upnp::device(3pm) - debian
net::dbus::dumper(3pm) - debian
net::epp::frame::command::delete::contact(3pm) - debian
net::upnp::actionresponse(3pm) - debian
net::upnp::queryresponse(3pm) - debian
Similar Topics in the Unix Linux Community
Coherence 0.5.2 (Default branch)
Coherence 0.5.4 (Default branch)
Coherence 0.6.0 (Default branch)
Coherence 0.6.2 (Default branch)
My router has UPnP, as do its work with ubuntu to automatically open ports