Hi, I just got SBC/Yahoo dsl, using a Speedstream 4100 modem. To connect and disconnect, you access it's internal web server at http://192.168.0.1 thru a web browser, but sometimes I would like to do this from the commandline using LWP or WWW::Mechanize.

The problem is that sometimes the modem prompts you to fill in a form to enter the "modem access number", which is printed on the bottom of the modem. Sometimes it dosn't.

So I've discovered a few ways to control it:

#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;

my $url = 'http://192.168.0.1/';

my $agent = new WWW::Mechanize;

$agent->get($url);
$agent->submit_form(
                    'form_number' => 1,
                    'fields'      => {
                        'username'  => 'myuser@sbcglobal.net',
                        'password' => 'goombah',
                    }
                    );

print  $agent->content;

#sometimes it asks for the access code, sometimes not 
if ($agent->content =~ /Access Code Required/){
    print "Access Code Required\n";
  }
 else{print "sucess\n"}

[download]

Once the access code has been entered, it can be controlled with a simple get, passing ?conn=0 or ?conn=1 

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request( "GET", "http://192.168.0.1/connect.cg
+i?conn=0" );
my $response = $ua->simple_request( $request );
my $contents = $response->content();
print "$contents\n";

[download]

I'm trying to figure out how to use WWW::Mechanize to handle the second page which prompts for the access number and "posts" it to accessLogin.cgi

Has anyone done this yet, and can show the way?

I'm not really a human, but I play one on earth. flash japh

In reply to Accessing a DSL modem with LWP by zentara

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.