Netgear::WGT624 - Queries a Netgear WGT624 (108 Mbps Firewall Router) for state information.

use Netgear::WGT624;

my $wgt624 = Netgear::WGT624->new();

$wgt624->username('myusername');

$wgt624->password('mypassword');

$wgt624->address('router-address');

my $retval = $wgt624->getStatus($element);

See the script distributed with this program, get-wgt624-status, for another example.

Netgear::WGT624 is the library that supports programs that query the Netgear WGT624 for state information over HTTP.

$wgt624->username($username)

$wgt624->username()

Returns the username of the active user if called with no parameters, or sets it if a value is passed to this method.

$wgt624->password($password)

$wgt624->password()

Returns the password of the active user if called with no parameters, or sets it if a value is passed to this method.

$wgt624->address($address)

$wgt624->address()

Returns the address of the router if called with no parameters, or sets it if a value is passed to this method. The value that is stored can be an IP address in dotted-octet format, or it can be a hostname.

$wgt624->getStatus($element)

Returns the value of the element passed to this method as the only parameter, provided that WGT624 is able to contact the router with the credentials and address specified above.

The following may be listed in the element field for output to the console:

WAN_Status, WAN_TxPkts, WAN_RxPkts, WAN_Collisions, WAN_TxRate, WAN_RxRate, WAN_UpTime, LAN_Status, LAN_TxPkts, LAN_RxPkts, LAN_Collisions, LAN_TxRate, LAN_RxRate, LAN_UpTime, WLAN_Status, WLAN_TxPkts, WLAN_RxPkts, WLAN_Collisions, WLAN_TxRate, WLAN_RxRate, WLAN_UpTime

None by default.

The perldoc for get-wgt624-status, and the source code of get-wgt624-status, which uses this library.

The home page for this software at http://justin.phq.org/netgear/.

Justin S. Leitgeb, <justin@phq.org>

This program is made available under the Artistic license, see the README file in the package with which it was distributed for more information.

Copyright (C) 2006 by Justin S. Leitgeb

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.