in reply to Multiple NONAME buttons and WWW::Mechanize

Could you show the HTML source of the respective page?  Is there any Javascript involved?

  • Comment on Re: Multiple NONAME buttons and WWW::Mechanize

Replies are listed 'Best First'.
Re^2: Multiple NONAME buttons and WWW::Mechanize
by Anonymous Monk on Feb 06, 2010 at 03:32 UTC
    Sorry about that. Here's the page.

    <html>
<head>
<link rel="stylesheet" type="text/css" href="libcss.css">
<script src="jslib.js" type="text/javascript"></script>
<script language="javascript" type="text/javascript">
function CA()
{
  switch(0)
  {
     case 0:
     var msg="C B alarm?"; 
     break;
     case 1:
     var msg="Aas de la B?"; 
     break;
  }
  if(confirm(msg))
     location.href='BAC';
}
function CResults()
{
  switch(0)
  {
     case 0:
     var msg="C B r?"; 
     break;
     case 1:
     var msg="B R B?"; 
     break;
  }
  if(confirm(msg))
     location.href='BResultsC';
}
function checkfields()
{
   var msg0;
   var msg1;
   var msg2;
   var msg3;
   switch(0)
   {
      case 0:
         msg0="T A V lt Bus V!";
         msg1="T A V gt R St V!";
         msg2="T D gt 0.";
         msg3="R St V gt LVD!";
         break;
      case 1:
         msg0="E V de Bus actual!";
         msg1="El V de V del R!";
         msg2="La d 0.";
         msg3="El v e";
         break; 
   }
  if (4!=2)
  {
     if(parseFloat(document.bForm.rect_stby_volt.value)<=42.0)
     {
      alert(msg3);
      document.bForm.rect_stby_volt.focus();
      return false;
     }
   if(parseFloat(document.bForm.bminvolt.value)<=parseFloat(document.b
+Form.rect_stby_volt.value))
   {
      alert(msg1);
      document.bForm.bminvolt.focus();
      return false;
   }
  }
   if( parseFloat(document.bForm.bminvolt.value) >= "54.5")
   {
      alert(msg0)
      document.bForm.bminvolt.focus();
      return false;
   }
   if (parseFloat(document.bForm.bmaxtime.value) <= 0)
   {
      alert(msg2);
      document.bForm.bmaxtime.focus();
      return false;
   }
   return true;
}
function BSubmit()
{
   if (checkfields()==false)
      return false; 
    handle=EventHandlingNum(document.getElementById('level_99').value,
+document.getElementById('trap_99').value,document.getElementById('mai
+l_99').value,1);
    document.bForm.TAG99.value=handle;
//   document.bForm.submit();     
}
function onLoadB(rate)
{
    
//    if(document.getElementById('runbutton').disabled)//b running,kee
+p refreshing
    var disable_str="";
//    if(disable_str.indexOf('disable')>=0)//B running
    if(0==2)//brunning
    {
       document.getElementById('stopbutton').disabled=false;
  //     document.getElementById('level_99').disabled=true;       
  //     document.getElementById('mail_99').disabled=true;
  //     document.getElementById('trap_99').disabled=true;
       
       window.setTimeout("location.href=document.location.href",rate);
    }
    else
    {
       document.getElementById('stopbutton').disabled=true;     
    }   
}
</script>
</head>
<body onLoad="onLoadB(5000); parent.OnLoadFunc()" onUnload="parent.OnU
+nloadFunc()">
<form name="bForm" ACTION="/bcfg_gen.shtml" METHOD="POST" onSubmit="re
+turn BSubmit()">
  <TABLE align="center" BORDER=0 CELLSPACING=1 CELLPADDING=5>
    <TR>
      <td bgcolor="white">&nbsp;</td>    
                                                     <!--BT-->
      <TD colspan=4 align=center bgcolor=#e0e0e0> <b>BT</b></TD>  
    </TR>    
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
                           <!--Last E-->
          <td align="left">Last E</td>
          <td colspan="3" nowrap="nowrap" align="center">2010-02-05 16
+:44:57</td>
        </tr>
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
      
      <td>S/E/T</td><td colspan="2"> 54.5 V/ 49.8 V/ 0.02 Hrs </td>   
      
      <td align="center" bgcolor="#e0e0e0">U</td>
      
    </tr>    
                                       <!--AC S-->  
    <tr><td></td><td><b><i>AC S/Mode:</td><td align=center style="bord
+er:double" bgcolor="#00ff00"><b>F</b></td>
    <td><input type="button"  disabled  value="C A..." onclick="CA()">
+</td>
    <tr bgcolor="#e0e0e0">
    <td><input type="button"  value="C R" onclick="CResults()"></td>
        </tr>
    
    
    <tr bgcolor="#e0e0e0"><td bgcolor="white"></td><td>B T R</td><td a
+lign="center" colspan="3" >(NC)</td></tr> <!--bat T r-->
    <tr bgcolor="#e0e0e0"><td bgcolor="white">&nbsp;</td><td>Sys DC Bu
+s V</td><td align="right">54.5</td> <td nowrap>V</td><td align=center
+ bgcolor="#00ff00"> No</td></tr> <!-- sys v -->     
  
    <tr bgcolor="#e0e0e0"><td bgcolor="white"></td><td>B AC</td><td al
+ign="center" colspan="3" >(NSC)</td></tr> <!-- bat current -->
    
    <tr bgcolor="#e0e0e0"><td bgcolor="white">&nbsp;</td><td>B MP V (1
+.3*2)</td><td align="right">2.6</td> <td>V</td><td align=center bgcol
+or="#00ff00"> No</td></tr> <!-- bat mP -->     
    <tr bgcolor="#FFCC00">
      <td bgcolor="white">&nbsp;</td>
      <td>Low Sys V A</td>
      <td align="right">    
      
      <input name="low_volt" type="text" style="text-align: right; fon
+t-weight:bold;" value="52.0" size="5" maxlength="5" />   
      
      </td>
      
      <td>V</td>
      <td>&nbsp;</td>
    </tr>
    <tr><td></td><td colspan="4"><b><i>T Param:</td></tr>
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
      <td>T A V </td>
    <tr><td></td><td colspan="4"><b><i>T Param:</td></tr>
      <td align="right">        
          <input name="bminvolt" id="bminvolt" type="text" style="text
+-align: right; font-weight:bold; " value="49.0" size="5" maxlength="5
+" /> 
      </td>
      <td>V</td>
      <td>&nbsp;</td>
    </tr>
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
      <td>T D</td>
      <td align="right">        
          <input name="bmaxtime" type="text" style="text-align: right;
+ font-weight:bold;" value="0.3" size="5" maxlength="5" />   
      </td>
      
      <td>Hrs</td>
      <td>&nbsp;</td>
    </tr>
<script language="javascript" type="text/javascript">
 if(0==2)
   document.write("<tr bgcolor=#e0e0e0 style=visibility:hidden>");
 else
   document.write("<tr bgcolor=#e0e0e0>");  
</script>
    
      <td bgcolor="white">&nbsp;</td>
      <td>R St V</td>
      
      <td align="right">      
      <input name="rect_stby_volt" type="text" style="text-align: righ
+t; font-weight:bold; " value="45.0" size="5" maxlength="5" />
      </td>      
      <td>V</td>
      <td>&nbsp;</td>
      <td bgcolor="white">&nbsp;</td>
    </tr>
    <tr><td></td><td colspan="4">L B N</td></tr>
    <tr bgcolor="#FF0000">
      <td bgcolor="white">&nbsp;</td>
      <td>VLSVA</td>
      
      <td align="right">      
      <input name="very_low_volt" type="text" style="text-align: right
+; font-weight:bold;" value="48.0" size="5" maxlength="5" />   
      </td>
      <td>V</td>
      <td>&nbsp;</td>
    </tr>
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
      <td>E LVD </td>      
      <td align="right">           
      42.0
      </td>      
      <td>V</td>
      <td>&nbsp;</td>
    </tr>
    <tr><td></td><td colspan="4"><b><i>A E of T:</i></b></td></tr>
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
      <td>C30</td>
      <td align="right">
          <input name="bcycle" type="text" style="text-align: right; f
+ont-weight:bold; " value="13" size="4" maxlength="4" />
      </td>
      <td colspan="2">0 D</td>
    </tr>
    <tr bgcolor="#e0e0e0">
      <td bgcolor="white">&nbsp;</td>
      <td align="left">Next E</td>
      <td colspan="3" nowrap="nowrap" align="center">2011-03-02 17:06:
+59</td>
    </tr>
    <tr>
     <td></td>
      <td colspan="4"><b><i>EH:</i></b></td>
    </tr>
    <tr>
     <td></td>
     <td colspan="4">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<TD></TD>
<td>B F</td><td>No</td><td>Yes</td>
<td></td>
<td><select  id="level_99"><option value=3 SELECTED>Obs<option value=4
+>Min<option value=5>Maj<option value=6>Crit</select></td>
<td><select  id="trap_99"><option value=0>None<option value=1>On Raise
+<option value=2 SELECTED>On R &amp; C<option value=3>On Cease</select
+></td>
<td><select  id="mail_99"><option value=0>None<option value=1>On Raise
+<option value=2 SELECTED>On R &amp; C<option value=3>On Cease</select
+></td>
</tr>
</table>
    <tr>
      <td></td>
     <td colspan="4">
      <div align="center" >
        <input type="submit"  value="Save No Start" onClick="document.
+bForm.b_event_id.value=0" />
        <input type="submit" id="runbutton"  value="Save'n Start" onCl
+ick="document.bForm.b_event_id.value=1;" />                
        <input type="submit" id="stopbutton" value="Stop" onClick="doc
+ument.bForm.b_event_id.value=2"/>
    
        <input type="reset"  value="Reset" />
        <INPUT TYPE="BUTTON"  VALUE="FD" onClick="ConfirmPersReset('BR
+eset','',0)">
      </div>
     </td>
    </tr>
</table>
  <input name="b_event_id" type="hidden" value="0" />
<input type="hidden" name="TAG99" value="117">
  </form>
</body>
</HTML>

    [download]
[reply]
[d/l]
      You're setting fields that don't exist - rename 'bdtminvolt' to 'bminvolt' and 'bdtmaxtime' to 'bmaxtime' and see what happens.
[reply]
Re^2: Multiple NONAME buttons and WWW::Mechanize
by dneedles (Sexton) on Feb 06, 2010 at 04:07 UTC
    As you can see there is JAVASCRIPT code. Could that screw up the parsing? Should I use LWP module instead or do a one off hack?
[reply]
      I see that Mechanize doesn't handle java script and the buttons invoke java script. I'll see if I can preprocess within PERL and hack around to invoke the button.
[reply]
        A quick follow up. In short the problem was that Mechanize and LWP do not interpret client side java script. There is a module that was just released that hooks into mechanize: WWW::Scripter::Plugin::JavaScript But it is very new and not yet recognized by the Mechanize owner. In the end the java script was rather simplistic. I added two lines to the form call, adding values for the two hidden variables and the server side CGI did the rest.
[reply]
        Did you find a resolution for this problem? I'm stuck at exactly the same place.
[reply]

In Section Seekers of Perl Wisdom