use HTTP::Request;
use LWP::UserAgent;
use strict;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>'http://192.168.0.1/authtest/index.
+html');
$req->authorization_basic('yourname', 'password');
my $content = $ua->request($req)->as_string;
print "Content is $content";
[download]

i tried this to experiment... the goal was to get the content of my default page once ive logged in into $content

#!/usr/bin/perl
use strict;

use HTTP::Request;
use LWP::UserAgent;


my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>'http://perlmonks.com/index.pl');
$req->authorization_basic('maddfisherman', '********');
my $content = $ua->request($req)->as_string;
[download]

but this just gives me the default page not my page after i log in.

Perlmonks doesn't use web server authorization like that. It's all cgi script-based authentication based on cgi params or cookies.

# UNTESTED
use HTTP::Request;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>'http://perlmonks.com/index.pl?op=l
+ogin;user=maddfisherman;passwd=******');
my $content = $ua->request($req)->as_string;
[download]

And if you're thinking of writing a votebot, don't. :)

Why should you expect any different?

Do you even know what authorization_basic does?

Perlmonks doesn't use basic http authentication.

How to RTFM somehow springs to mind.

 


______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

There are a few ways. For a script I used to get AVP information, I used:

LWP::UserAgent

HTTP::Request

HTML::TableExtract

If you want to see an example I put a snippet about McAfee levels McAfee Version Checker

Look into the http server's basic authentication methods. You don't need to do any scripting for that, except for initial signup. Auth is a CPAN search which should give you plenty of ideas.

After Compline,
Zaxo