Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 wandering the Monastery: (17)
As of 2015-07-31 14:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (278 votes), past polls