Net::UPnP::GW::GatewayUser Contributed Perl DocumentaNet::UPnP::GW::Gateway(3)NAMENet::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->getportmappingentry();
$port_num = 0;
foreach $port_entry (@port_mapping) {
if ($port_entry) {
$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";
}
}
else {
print " [$port_num] : Unknown\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->getexternalipaddress();
Get the number of the port mapping entries.
getportmappingentry - PortMappingEntry
$gw->getexternalipaddress();
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.
perl v5.14.0 2009-07-27 Net::UPnP::GW::Gateway(3)
