Re^5: CGI button -onClick not working

Here is a simple example

#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use diagnostics;

my $who = param('name') || 'unknown';

print header();

print <<HERE;
<html>
<head>
<title>Hello to $who</title>
<script language="JavaScript">
<!--  Begin
function drawAlert () {
alert ("Hello $who !");
}
// End -->
</script>
</head>
<body>
<center>
<form>
<input type=button value="Click here to try the JavaScript!"
onClick="drawAlert()">
</form>
</center>
</body>
</html>
HERE
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re^5: CGI button -onClick not working Download Code