function:
print "<SCRIPT language=JavaScript>";
print "var monat='$months[$mon]';";
print "var day='$mday';";
print "function check_date(tag)";
print '{if(monat != "December")';
print "{if(tag <= day)";
print '{var bild = "http://www.wmf.de/deutsch/weihnachten/" + tag + ".htm";';
print "alert(bild);";
print "parent.location.href = bild;}}}";aufruf erfolgt durch:
print '<area shape="RECT" coords="546,369,584,465" onClick="check_date(6)" href="#" return false target="_self">';
Schau mal in den Quelltext, den der Browser von Deinem Perl-Script erhält, ob alles genauso ankommt wie es soll. Mir scheint das syntaktisch merkwürdig, das Semikoleon innerhalb der Hochkommas. Ich würde es mit einem Backslash maskieren.
cu ToTo
ich hoffe das bringt dir jetzt was !
pat