The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

SYNOPSIS

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.

DESCRIPTION

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

METHODS

$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.

LISTABLE ELEMENTS FROM WGT624

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

EXPORT

None by default.

SEE ALSO

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/.

AUTHOR

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

COPYRIGHT AND LICENSE

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.