# Create a user agent object use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("AgentName/0.1 " . $ua->agent); # Create a request my $req = new HTTP::Request POST=> 'http://www.genesisreports.com/ge +nesis/user/mypage.asp'; # Pass request to the user agent and get a response back $ua->credentials('http://www.genesisreports.com/genesis/user/mypage. +asp', 'admin', 'username', 'password'); my $res = $ua->request($req); print $req->as_string(); # Check the outcome of the response if ($res->is_success) { print $res->content; } else { print "Bad luck this time\n"; }
In reply to Using credentials method of UserAgent by mak
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |