Gustl: + ajax + perl

Beitrag lesen

hi, wieso aktualisiert sich der timewert nicht? meiner logik nach stupst jeder request das test.cgi neu an um zu liefern, oder nicht?

<html><head><title>so ein glump</title>

<script type="text/javascript">  
  
    var AJAX = new XMLHttpRequest();  
  
    function MACH1(url) {  
        AJAX = new XMLHttpRequest();  
        AJAX.open('GET', url, true);  
        AJAX.onreadystatechange = liefern;  
        AJAX.send(null);  
    }  
	  
    function MACH2(url) {  
        AJAX = new XMLHttpRequest();  
        AJAX.open('GET', url, true);  
        AJAX.onreadystatechange = liefern;  
        AJAX.send(null);  
    }  
  
   function liefern() {  
        if (AJAX.readyState == 4) {  
          var wasdas = AJAX.responseText;  
          document.getElementById("kuckmal").innerHTML = wasdas;  
        }  
   }  
	  
  setInterval("MACH1('test.cgi')",1000);  
  setInterval("MACH2('test.cgi?do=wasanderes')",1500);  
  
</script>
</head><body>  
  
<span style="cursor: pointer; text-decoration: underline" onclick="MACH2('test.cgi?do=wasanderes')">  
Mach das mal bitte</span><br><br><div id="kuckmal"></div>  
  
</body></html>

einfaches test.cgi:

#!/usr/bin/perl  
  
use CGI qw/:standard/;  
use strict;  
use CGI::Carp "fatalsToBrowser";  
  
my $do=param("do");  
  
print header('text/html');  
  
if (!$do) {  
  my $data=time(); print $data;  
} else {  
  my $data="machanderes"; print $data;  
}
  • Gustl