Friends,
I would like to learn how to enter a name and password with Perl, using LWP.
I'm sure this exercise will be instructive for others looking in, also.
I have set up an e-mail account for this purpose. The address is
"[EMAIL PROTECTED]" and the password is "perl". Use it as you see fit.
You may go to web7.seanic.net/mywebmail and sign in to see that it works.
Feel free to test sending and recieving mail.
Here is my attempt:
use strict;
use LWP::UserAgent;
my $bowser = LWP::UserAgent->new;
my $presponse = $bowser->post (
'http://web7.seanic.net/mywebmail/', [
'1'=> '[EMAIL PROTECTED]', # source:<INPUT TYPE=TEXT NAME="l"
size=30>
'passwd'=> 'perl' ],
);
print "\n\n", $presponse->content;
<>;
exit;
Here is what I receive back for all my effort:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>405 Method Not Allowed</TITLE>
</HEAD><BODY>
<H1>Method Not Allowed</H1>
The requested method POST is not allowed for the URL
/mywebmail/index.html.<P>
</BODY></HTML>
I'm on a Windows machine.
Jerry
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
