#!/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
In reply to Re^5: CGI button -onClick not working
by zentara
in thread CGI button -onClick not working
by tarunkhanna
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |