Re^3: WWW::Mechanize click_button() not working in AIX

Replies are listed 'Best First'.
Re^4: WWW::Mechanize click_button() not working in AIX by perl_monster (Novice) on Jul 10, 2012 at 21:31 UTC
The WWW::Mechanize version in both the machines is 1.54 (latest) they were installed on the same day on the Win machine and AIX machine. The Perl version in Win machine is 5.10.1 and AIX version of perl is 5.8.8, I am not sure if that should make any difference. Also, I am thinking if this is problem due to "Https". I am wondering if I need Net::SSLeay.	[reply]
Re^5: WWW::Mechanize click_button() not working in AIX by onelesd (Pilgrim) on Jul 10, 2012 at 21:45 UTC
LWP::UserAgent which WWW::Mechanize inherits from takes care of SSL for you. Have you tried `$mech->find_all_submits( ... criteria ... )` and debugging that to make sure the button is recognized?	[reply] [d/l]
Re^6: WWW::Mechanize click_button() not working in AIX by onelesd (Pilgrim) on Jul 10, 2012 at 23:07 UTC
WWW::Mechanize is a subclass of LWP::UserAgent, so this should work: `$mech->add_handler("request_send", sub { shift->dump; return }); $mech->add_handler("response_done", sub { shift->dump; return });` [download] After that, do you see the request after you `click_button()`?	[reply] [d/l] [select]
Re^7: WWW::Mechanize click_button() not working in AIX by perl_monster (Novice) on Jul 11, 2012 at 00:09 UTC
Re^8: WWW::Mechanize click_button() not working in AIX by onelesd (Pilgrim) on Jul 11, 2012 at 03:26 UTC
Some notes below your chosen depth have not been shown here
Re^6: WWW::Mechanize click_button() not working in AIX by perl_monster (Novice) on Jul 10, 2012 at 22:02 UTC
I have used the below which is somewhat similar to what you mentioned `my $inputobject=$mech->current_form()->find_input( undef,'submit' ); print $inputobject->value . "\n"; $mech->click_button(input => $inputobject); print $mech->status() . "\n";` [download] The `$inputobject` shows the correct button element as in the HTML source and the second print returns a status of 200 which apparently stands for OK. All of this still doesn't work, can't even see any errors anywhere. I attempted including `LWP::Debug qw(+);` in the code, but its not returning me any logging info either	[reply] [d/l] [select]


Perl-Sensitive Sunglasses
	PerlMonks