Danny: fehler bei javascript in perl

Beitrag lesen

Moin!

Kommentiere einzele Javascript-Blöcke doch einfach mit // aus und setze alert(variable) an kritische Stellen. Dann solltest Du den Fehler irgendwann finden...

Viel Glück! ;)

#!/usr/local/bin/perl

use strict;
print "Content-Type:text/html\n\n";
print qq~<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Strict//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
  <head>
    <title>javascript test</title>
    <script type="text/javascript">
    <!--
    function CheckPara()
    {
      var i = 0;
      var bool = 1;
      while (document.forms[0].elements[i++].name)
      {
        if (!(document.forms[0].elements[i].value))
        {
          bool = 0;
        }
      }
      if (bool == 0)
      {
        alert("Not all mandantory parameters are enterd !!!");
      }
      else
      {
        document.Formular.action = "/cgi-bin/lol.cgi";
        document.Formular.method = "post';
        document.Formular.submit();
      }
    }
    //-->
    </script>
  </head>
  <body>
    <form name="Formular" action="">Application:<br>
      <input type="text" name="app"><br>new one:<br>
      <input type="text" name="lol"><br><br>
      <input type="button" value="ckeck para" onClick="CheckPara()" style="width:120px">
    </form>
  </body>
</html>~;