burak / CPAN-Device-CableModem-Motorola-SB4200
Interface to Motorola SurfBoard 4200 Cable Modem
Clone this repository (size: 17.6 KB): HTTPS / SSH
$ hg clone http://bitbucket.org/burak/cpan-device-cablemodem-motorola-sb4200/
| commit 3: | a5596905febe |
| parent 2: | bed2a97336ac |
| branch: | default |
add pod
- View burak's profile
-
burak's public repos »
- CPAN-Padre-Plugin-HG
- CPAN-Net-Bitbucket
- CPAN-GD-SecurityImage
- CPAN-Lingua-TR-Numbers
- CPAN-Sys-Info-Driver-Windows
- CPAN-Task-Lingua-Any-Numbers
- CPAN-Time-Elapsed
- CPAN-Win32-ASP-CGI
- CPAN-Scalar-Util-Reftype
- CPAN-Parse-HTTP-UserAgent
- CPAN-Acme-CPANAuthors-Turkish
- CPAN-tools
- CPAN-Device-CableModem-Motorola-SB4200
- CPAN-Text-Template-Simple
- CPAN-CGI-Auth-Basic
- CPAN-GD-Thumbnail
- CPAN-Lingua-Any-Numbers
- CPAN-MP3-M3U-Parser
- CPAN-PHP-Session-DBI
- CPAN-Sys-Info
- CPAN-Sys-Info-Base
- CPAN-Sys-Info-Driver-BSD
- CPAN-Sys-Info-Driver-Linux
- CPAN-Sys-Info-Driver-Unknown
- CPAN-Test-Sys-Info
- Send message
10 months ago
Changed (Δ2.7 KB):
raw changeset »
lib/Device/CableModem/Motorola/SB4200.pm (116 lines added, 0 lines removed)
Up to file-list lib/Device/CableModem/Motorola/SB4200.pm:
| … | … | @@ -359,3 +359,119 @@ sub _req { |
359 |
359 |
1; |
360 |
360 |
|
361 |
361 |
__END__ |
362 |
||
363 |
=head1 NAME |
|
364 |
||
365 |
Device::CableModem::Motorola::SB4200 - Interface to Motorola SurfBoard 4200 Cable Modem |
|
366 |
||
367 |
=head1 SYNOPSIS |
|
368 |
||
369 |
use Device::CableModem::Motorola::SB4200; |
|
370 |
||
371 |
my $m = Device::CableModem::Motorola::SB4200->new(%opts); |
|
372 |
||
373 |
my %version = $m->versions; |
|
374 |
my %status = $m->status; |
|
375 |
my %signal = $m->signal; |
|
376 |
my %addr = $m->addresses; |
|
377 |
my %config = $m->config; |
|
378 |
my @logs = $m->logs; |
|
379 |
||
380 |
$m->restart; |
|
381 |
$m->reset; |
|
382 |
||
383 |
my $fw = $version{software}; |
|
384 |
printf "Firmware version is %s-%s\n", $fw->{version}, $fw->{string}; |
|
385 |
die "Unknown device disguised as SB4200" if $fw->{model} ne 'SB4200'; |
|
386 |
||
387 |
=head1 DESCRIPTION |
|
388 |
||
389 |
This module can be used to manage/fetch every setting available via the modem's |
|
390 |
web interface. It is also possible to restart/reset the modem. |
|
391 |
||
392 |
=head1 GENERAL METHODS |
|
393 |
||
394 |
=head2 new |
|
395 |
||
396 |
Contructor. Accepts named parameters listed below. |
|
397 |
||
398 |
=head3 ip |
|
399 |
||
400 |
Highly unlikely, but if the ip address of SB4200 is not C<192.168.100.1>, |
|
401 |
then you can set the ip address with this parameter. |
|
402 |
||
403 |
=head2 agent |
|
404 |
||
405 |
Returns a C<LWP::UserAgent> object. |
|
406 |
||
407 |
=head1 INFORMATION METHODS |
|
408 |
||
409 |
=head2 addresses |
|
410 |
||
411 |
Provides information about the servers the Cable Modem is using, |
|
412 |
and the computers to which it is connected. |
|
413 |
||
414 |
=head2 config |
|
415 |
||
416 |
Provides information about the manually configurable settings of the |
|
417 |
Cable Modem. |
|
418 |
||
419 |
=head2 logs |
|
420 |
||
421 |
Returns a list of available modem logs. |
|
422 |
||
423 |
=head2 set_config |
|
424 |
||
425 |
Can be used to alter every setting available via L</config>. |
|
426 |
||
427 |
$m->set_config( FREQ_PLAN => "EUROPE" ); |
|
428 |
$m->set_config( FREQUENCY_MHZ => 543000001 ); |
|
429 |
||
430 |
=head2 signal |
|
431 |
||
432 |
Provides information about the current upstream and downstream signal status |
|
433 |
of the Cable Modem. |
|
434 |
||
435 |
=head2 status |
|
436 |
||
437 |
Provides information about the startup process of the Cable Modem. |
|
438 |
||
439 |
=head2 versions |
|
440 |
||
441 |
Returns a list of hardware/software versions available in the modem. |
|
442 |
||
443 |
=head1 MODIFICATION METHODS |
|
444 |
||
445 |
=head2 reset |
|
446 |
||
447 |
From the modem page: |
|
448 |
||
449 |
Resetting the cable modem to its factory default configuration will remove |
|
450 |
all stored parameters learned by the cable modem during prior |
|
451 |
initializations. The process to get back online from a factory default |
|
452 |
condition could take from 5 to 30 minutes. Please reference the cable |
|
453 |
modem User Guide for details on the power up sequence. |
|
454 |
||
455 |
=head2 restart |
|
456 |
||
457 |
Restarts the modem. Usually takes 1o seconds. |
|
458 |
||
459 |
=head2 SEE ALSO |
|
460 |
||
461 |
L<Device::CableModem::SURFboard>. |
|
462 |
||
463 |
=head1 AUTHOR |
|
464 |
||
465 |
Burak GE<252>rsoy, E<lt>burakE<64>cpan.orgE<gt> |
|
466 |
||
467 |
=head1 COPYRIGHT |
|
468 |
||
469 |
Copyright 2004-2009 Burak GE<252>rsoy. All rights reserved. |
|
470 |
||
471 |
=head1 LICENSE |
|
472 |
||
473 |
This library is free software; you can redistribute it and/or modify |
|
474 |
it under the same terms as Perl itself, either Perl version 5.8.8 or, |
|
475 |
at your option, any later version of Perl 5 you may have available. |
|
476 |
||
477 |
=cut |
