NAME

Buffalo::G54 - Limited scraping API for Buffalo WBR2-G54 routers

SYNOPSIS

use Buffalo::G54;

DESCRIPTION

This module implements a limited API to control a Buffalo WBR2-G54 router by scraping its Web interface.

METHODS

Currently, only the following methods are implemented:

my $buf = Buffalo::G54->new()

Constructor.

$buf->connect(...)

Connects to the router's Web interface, takes the following key value pairs:

ip       => "192.168.0.1",
user     => "root",
password => "topsecret!",

Returns 1 if the router's Web interface responded properly, and undef otherwise.

$buf->version()

Ask the router for the version of its firmware. Returns something like "WBR2-G54 Ver.2.21" if successful, or undef on failure.

http://192.168.0.1/advance/advance-admin-system.htm

$buf->reboot()

Reboot the router.

$buf->wireless($status)

Switch the router's wireless network on or off -- or query its status.

To query the status of the router's wireless network, call wireless() without parameters:

  # Returns "on" or "off"
my $status = $buf->wireless();

It will return "on" or "off", or undef if an error occurred.

  # Switch wireless off if it's on
if($buf->wireless() eq "on") {
    $buf->wireless("off");
}

To switch the wireless network on or off, pass a $status value of "on" or "off" to the wireless() method.

Note that switching the wireless network on and off requires having set up the wireless network in the first place. wireless() is just going to toggle the on/off switch, it doesn't configure the SSID, encryption and other important settings.

$buf->dhcp($status)

Turns the DHCP server on or off or queries its status:

$buf->dhcp("on");
$buf->dhcp("off");

if($buf->dhcp() eq "on") {
    print "dhcp is on!\n";
}

LEGALESE

Copyright 2006 by Mike Schilli, all rights reserved. This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

2006, Mike Schilli <cpan@perlmeister.com>