WWW::Mechanize click() returns "Unexpected field value"

[Timur Tabi]

A friend of mine wrote a Perl script that works fine on his machine
but dies on mine. I know very little about Perl, so I need help in
determining the problem. Here's the code that fails:

my $agent = WWW::Mechanize->new();
$agent->get("http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm");
die "Couldn't get login screen" unless $agent->success;
my $id = "userid";
$agent->field("newUsername",$id);
my $password = "password";
$agent->field("newPassword",$password);
$agent->click();

When it tries to execute the click() call, it generates this message:

Unexpected field value
[url]http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm[/url] at (eval 15) line
1

I added the line "use Carp 'verbose';" to the Perl module, and now I
get this:

Unexpected field value
[url]http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm[/url] at
/usr/lib/perl5/vendor_perl/5.6.1/HTTP/Headers.pm line 256
HTTP::Headers::_header('HTTP::Headers=HASH(0x846bd 44)',
'Referer', 'http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm')
called at /usr/lib/perl5/vendor_perl/5.6.1/HTTP/Headers.pm line 150
HTTP::Headers::header('HTTP::Headers=HASH(0x846bd4 4)') called
at (eval 15) line 1
HTTP::Message::__ANON__('HTTP::Request=HASH(0x846b ce4)',
'Referer', 'http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm')
called at /usr/lib/perl5/site_perl/5.6.1/WWW/Mechanize.pm line 1045
WWW::Mechanize::request('WWW::Mechanize=HASH(0x818 1abc)',
'HTTP::Request=HASH(0x846bce4)') called at
/usr/lib/perl5/site_perl/5.6.1/WWW/Mechanize.pm line 515
WWW::Mechanize::click('WWW::Mechanize=HASH(0x8181a bc)') called
at ./reserve.pl line 30

Can anyone tell me what's going on? I'm running Perl 5.6.1 on Red Hat
Linux 7.3.

[Timur Tabi]

A friend of mine wrote a Perl script that works fine on his machine
but dies on mine. I know very little about Perl, so I need help in
determining the problem. Here's the code that fails:

my $agent = WWW::Mechanize->new();
$agent->get("http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm");
die "Couldn't get login screen" unless $agent->success;
my $id = "userid";
$agent->field("newUsername",$id);
my $password = "password";
$agent->field("newPassword",$password);
$agent->click();

When it tries to execute the click() call, it generates this message:

Unexpected field value
[url]http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm[/url] at (eval 15) line
1

I added the line "use Carp 'verbose';" to the Perl module, and now I
get this:

Unexpected field value
[url]http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm[/url] at
/usr/lib/perl5/vendor_perl/5.6.1/HTTP/Headers.pm line 256
HTTP::Headers::_header('HTTP::Headers=HASH(0x846bd 44)',
'Referer', 'http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm')
called at /usr/lib/perl5/vendor_perl/5.6.1/HTTP/Headers.pm line 150
HTTP::Headers::header('HTTP::Headers=HASH(0x846bd4 4)') called
at (eval 15) line 1
HTTP::Message::__ANON__('HTTP::Request=HASH(0x846b ce4)',
'Referer', 'http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm')
called at /usr/lib/perl5/site_perl/5.6.1/WWW/Mechanize.pm line 1045
WWW::Mechanize::request('WWW::Mechanize=HASH(0x818 1abc)',
'HTTP::Request=HASH(0x846bce4)') called at
/usr/lib/perl5/site_perl/5.6.1/WWW/Mechanize.pm line 515
WWW::Mechanize::click('WWW::Mechanize=HASH(0x8181a bc)') called
at ./reserve.pl line 30

Can anyone tell me what's going on? I'm running Perl 5.6.1 on Red Hat
Linux 7.3.

[Tad McClellan]

Timur Tabi <nospam_timur@tabi.org> wrote:

> A friend of mine wrote a Perl script that works fine on his machine
> but dies on mine. I know very little about Perl, so I need help in
> determining the problem. Here's the code that fails:

Are you going to post this same question every 3 days?


[url]http://www.plover.com/~mjd/perl/Questions.html[/url]


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas

[Tad McClellan]

Timur Tabi <nospam_timur@tabi.org> wrote:

> A friend of mine wrote a Perl script

Then he probably knows a bit of Perl.

> that works fine on his machine
> but dies on mine. I know very little about Perl, so I need help in
> determining the problem.

What did your Perl friend say when you asked him about it?


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas

[Timur Tabi]

[email]tadmc@augustmail.com[/email] (Tad McClellan) wrote in message news:<slrnbmgtp6.7o0.tadmc@magna.augustmail.com>.. .

> What did your Perl friend say when you asked him about it?

He said that it works for him and he has no idea why it doesn't work
for me. He also could not tell me how to debug it.

[Timur Tabi]

[email]tadmc@augustmail.com[/email] (Tad McClellan) wrote in message news:<slrnbmgtmi.7o0.tadmc@magna.augustmail.com>.. .

> Are you going to post this same question every 3 days?
>
> [url]http://www.plover.com/~mjd/perl/Questions.html[/url]

I read that web page, and I don't think any of those "reasons" apply
to my re-post. I believe the reason why my post was ignored was
because almost no one read it. It was posted late at night, and by
the next morning, there were so many other posts that mine was
"crowded out".

I think I put quite a bit of detail in my post, and it should be
obvious that I'm not a lazy individual who wants someone else to do
all the work for me. I'm willing to debug the problem myself, but I
don't know how.

[Randal L. Schwartz]

>>>>> "Timur" == Timur Tabi <nospam_timur@tabi.org> writes:

Timur> I read that web page, and I don't think any of those "reasons" apply
Timur> to my re-post. I believe the reason why my post was ignored was
Timur> because almost no one read it. It was posted late at night,

Who's "night"? There are people here that are reading 24x7, in nearly
every timezone.

Timur> and by
Timur> the next morning, there were so many other posts that mine was
Timur> "crowded out".

Ahh, you've made the "help desk" mistake. This is not a help desk.
People will answer interesting questions, discuss others, and ignore
others. It's not up to you to decide someone else's response
schedule, and reposting a question only irritates the locals.

print "Just another Perl hacker,"

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

[Chris Marshall]

[email]nospam_timur@tabi.org[/email] (Timur Tabi) wrote in message news:<53bb806a.0309171351.44b4ee42@posting.google. com>...

> [email]tadmc@augustmail.com[/email] (Tad McClellan) wrote in message news:<slrnbmgtp6.7o0.tadmc@magna.augustmail.com>.. .
>

> > What did your Perl friend say when you asked him about it?

>
> He said that it works for him and he has no idea why it doesn't work
> for me. He also could not tell me how to debug it.

So your problem is that you're trying to run a perl script which was
written by someone who does't know how to debug it and has no idea why
it doesn't work.

mmmm.