Clicking on a button without a form using Win32::IE::Mechanize

venkatesan_G02 has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,

I am trying to automate an interaction with the web page and i am using Win32::IE::Mechanize module as the page involves javascripting. I am able to login to the page and access all the information i need but the problem arises when i try to log off from the page. The button is not associated to any form tag.

Below is the HTML code of the page i am trying to access.

        <form action="#" name="colorset"><input type="hidden" id="clr"
+ name="c" value=""></form>


<fieldset class="buttonbartop">
  <input class="titlebutton" type="button" name="searchcases" value="S
+earch All Cases" onclick="javascript:searchcases();">

   <input class="titlebutton" type="button" name="getnew" value="Get N
+ew Case" onclick="javascript:searchcase();">
   <input class="titlebutton" type="button" name="create" value="Creat
+e Case" onclick="javascript:makecase();">
   <input class="titlebutton" type="button" name="addressbook" value="
+Address Book" onclick="javascript:addressbook();">
   <input class="newfeaturebtn" type="button" name="userhistory" value
+="My History" onclick="javascript:showhistory();">
   <input class="newfeaturebtn" type="button" name="usersettings" valu
+e="Settings" onclick="javascript:showsettings();">
   <input class="titlebutton" type="button" name="reportproblem" value
+="Report a Problem" onclick="javascript:reportproblem();">
   <input class="titlebutton" type="button" name="logoff" value="Log O
+ff" onclick="javascript:snag('?logoff');">
</fieldset>
[download]

My Perl code is given below:

#!C:/perl/bin/perl.exe

use Win32::IE::Mechanize; 

my $url = 'http://mallet';

my $ie = Win32::IE::Mechanize->new(visible => 1);

$ie->get($url);

sleep(2); #wait for 2 sec so that the requested page will be displayed
+.

$ie->click_button(value => 'Log Off');
[download]

Though the above code is not returning any error, it's not loggin off. I know i can try WWW::Selenium module but i have written most part of my code using Win32::IE::Mechanize module and i think there might be a way to accomplish this.

Any suggestions would be greatly appreciated!!!

Thanks

Comment on Clicking on a button without a form using Win32::IE::Mechanize Select or Download Code

Replies are listed 'Best First'.
Re: Clicking on a button without a form using Win32::IE::Mechanize by marto (Cardinal) on Sep 21, 2009 at 10:31 UTC
No `use strict;` no `use warnings;` is poor practice. Aside from this does IE show that there are any errors with the JavaScript that is running? Can you alter the function do display an 'alert' to see if it has been clicked? Try `$ie->click_button( name => 'logoff' );` in case the space character is causing an issue, this is just a guess. Martin	[reply] [d/l] [select]
Re^2: Clicking on a button without a form using Win32::IE::Mechanize by venkatesan_G02 (Sexton) on Sep 21, 2009 at 10:35 UTC
Hi, IE does not show any error. I tried using the name parameter but it's not working. I even tried other buttons in the fieldset class but of no use.	[reply]
Re^3: Clicking on a button without a form using Win32::IE::Mechanize by vitoco (Hermit) on Sep 21, 2009 at 13:47 UTC
Are other buttons or links with `onclick="javascript:xxx('yyy');"` working? I mean, not from this `fieldset`, but from the same page ... I suspect that javascript is not working.	[reply] [d/l] [select]
Re: Clicking on a button without a form using Win32::IE::Mechanize by Anonymous Monk on Sep 21, 2009 at 15:08 UTC
See Win32::IE:: Mechanize click_button; no form	[reply]

Back to Seekers of Perl Wisdom