-
-
23 Dec 2018 09:57:55 UTC
- Distribution: Net-UPnP
- Source (raw)
- Browse (raw)
- Changes
- How to Contribute
- Issues (17)
- Testers (1980 / 0 / 0)
- Kwalitee
Bus factor: 0- License: unknown
- Activity
24 month- Tools
- Download (19.15KB)
- MetaCPAN Explorer
- Permissions
- Subscribe to distribution
- Permalinks
- This version
- Latest version
- Dependencies
- Test::More
- version
- and possibly others
- Reverse dependencies
- CPAN Testers List
- Dependency graph
NAME
Net::UPnP::GW::Gateway - Perl extension for UPnP.
SYNOPSIS
use Net::UPnP::ControlPoint; use Net::UPnP::GW::Gateway; my $obj = Net::UPnP::ControlPoint->new(); @dev_list = (); while (@dev_list <= 0 || $retry_cnt > 5) { # @dev_list = $obj->search(st =>'urn:schemas-upnp-org:device:InternetGatewayDevice:1', mx => 10); @dev_list = $obj->search(st =>'upnp:rootdevice', mx => 3); $retry_cnt++; } $devNum= 0; foreach $dev (@dev_list) { my $device_type = $dev->getdevicetype(); if ($device_type ne 'urn:schemas-upnp-org:device:InternetGatewayDevice:1') { next; } print "[$devNum] : " . $dev->getfriendlyname() . "\n"; unless ($dev->getservicebyname('urn:schemas-upnp-org:service:WANIPConnection:1')) { next; } my $gwdev = Net::UPnP::GW::Gateway->new(); $gwdev->setdevice($dev); print "\tExternalIPAddress = " . $gwdev->getexternalipaddress() . "\n"; print "\tPortMappingNumberOfEntries = " . $gwdev->getportmappingnumberofentries() . "\n"; @port_mapping = $gwdev->getportmappingentries(); $port_num = 0; foreach $port_entry (@port_mapping) { $port_map_name = $port_entry->{'NewPortMappingDescription'}; if (length($port_map_name) <= 0) { $port_map_name = "(No name)"; } print " [$port_num] : $port_map_name\n"; foreach $name ( keys %{$port_entry} ) { print " $name = $port_entry->{$name}\n"; } $port_num++; } }
DESCRIPTION
The package is a extention UPnP/GW.
METHODS
- new - create new Net::UPnP::GW::Gateway.
-
$mservier = Net::UPnP::GW::Gateway();
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.
- setdevice - set a UPnP devices
-
$gw->setdevice($dev);
Set a device to the object.
- getexternalipaddress - External IP address
-
$gw->getexternalipaddress();
Get the external IP address.
- getportmappingnumberofentries - PortMappingNumberOfEntries
-
$gw->getportmappingnumberofentries();
Get the number of the port mapping entries.
- getportmappingentries - PortMappingEntry
-
$gw->getportmappingentries();
Get the port mapping entries.
- addportmapping - add new port mapping.
-
$result = gw->addportmapping( NewRemoteHost # '', NewExternalPort # '', NewProtocol # '', NewInternalPort # '', NewInternalClient # '', NewEnabled #1, NewPortMappingDescription # '', NewLeaseDuration # 0);
Add a new specified port mapping.
- deleteportmapping - delete a port mapping.
-
$result = gw->deleteportmapping( NewRemoteHost # '', NewExternalPort # '', NewProtocol # '');
Delete the specified port mapping.
- gettotalbytesrecieved - Total recieved bytes.
-
$gw->gettotalbytesrecieved();
Get the total recieved bytes.
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.
Module Install Instructions
To install Net::UPnP, copy and paste the appropriate command in to your terminal.
cpanm Net::UPnP
perl -MCPAN -e shell install Net::UPnP
For more information on module installation, please visit the detailed CPAN module installation guide.