Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: log into a website via perl client

by newrisedesigns (Curate)
on Feb 06, 2004 at 17:56 UTC ( #327167=note: print w/ replies, xml ) Need Help??


in reply to log into a website via perl client

Simple question, no simple solution.

If your router is like mine (dLink) it uses Basic Authentication (mentioned by Sol-Invictus) to allow access to the router's functions. What you'll have to do is provide your password like mentioned above, then use LWP to do either a GET or POST (no difference, really) to the page on your router in which you want to modify settings. You'll send the variables in the GET/POST request, and what should be returned is the HTML of the page confirming the changes.

Pseudo-code:

use LWP; use HTTP::Request::Common; my $ua = LWP::UserAgent->new(); my $resp = $ua->request(GET 'http://192.168.0.1/admin.cgi'); if($resp->is_success){ # returned 200; request sent/page received print $resp->content; #content of page returned, check this } #to see if it looks like your router's "settings changed" page. else{ print "Couldn't fetch page. Something's wrong!!!\n"; }

Read the documentation on LWP. It's really useful stuff.
Hope that helps. Best of luck to you.

John J Reiser
newrisedesigns.com


Comment on Re: log into a website via perl client
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://327167]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2014-07-31 20:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (253 votes), past polls