1 | #!/usr/local/bin/perl
|
---|
2 |
|
---|
3 | # This script illustrates how to use JavaScript to validate fill-out
|
---|
4 | # forms.
|
---|
5 | use CGI qw(:standard);
|
---|
6 |
|
---|
7 | # Here's the javascript code that we include in the document.
|
---|
8 | $JSCRIPT=<<EOF;
|
---|
9 | // validate that the user is the right age. Return
|
---|
10 | // false to prevent the form from being submitted.
|
---|
11 | function validateForm() {
|
---|
12 | var today = new Date();
|
---|
13 | var birthday = validateDate(document.form1.birthdate);
|
---|
14 | if (birthday == 0) {
|
---|
15 | document.form1.birthdate.focus()
|
---|
16 | document.form1.birthdate.select();
|
---|
17 | return false;
|
---|
18 | }
|
---|
19 | var milliseconds = today.getTime()-birthday;
|
---|
20 | var years = milliseconds/(1000 * 60 * 60 * 24 * 365.25);
|
---|
21 | if ((years > 20) || (years < 5)) {
|
---|
22 | alert("You must be between the ages of 5 and 20 to submit this form");
|
---|
23 | document.form1.birthdate.focus();
|
---|
24 | document.form1.birthdate.select();
|
---|
25 | return false;
|
---|
26 | }
|
---|
27 | // Since we've calculated the age in years already,
|
---|
28 | // we might as well send it up to our CGI script.
|
---|
29 | document.form1.age.value=Math.floor(years);
|
---|
30 | return true;
|
---|
31 | }
|
---|
32 |
|
---|
33 | // make sure that the contents of the supplied
|
---|
34 | // field contain a valid date.
|
---|
35 | function validateDate(element) {
|
---|
36 | var date = Date.parse(element.value);
|
---|
37 | if (0 == date) {
|
---|
38 | alert("Please enter date in format MMM DD, YY");
|
---|
39 | element.focus();
|
---|
40 | element.select();
|
---|
41 | }
|
---|
42 | return date;
|
---|
43 | }
|
---|
44 |
|
---|
45 | // Compliments, compliments
|
---|
46 | function doPraise(element) {
|
---|
47 | if (element.checked) {
|
---|
48 | self.status=element.value + " is an excellent choice!";
|
---|
49 | return true;
|
---|
50 | } else {
|
---|
51 | return false;
|
---|
52 | }
|
---|
53 | }
|
---|
54 |
|
---|
55 | function checkColor(element) {
|
---|
56 | var color = element.options[element.selectedIndex].text;
|
---|
57 | if (color == "blonde") {
|
---|
58 | if (confirm("Is it true that blondes have more fun?"))
|
---|
59 | alert("Darn. That leaves me out.");
|
---|
60 | } else
|
---|
61 | alert(color + " is a fine choice!");
|
---|
62 | }
|
---|
63 | EOF
|
---|
64 | ;
|
---|
65 |
|
---|
66 | # here's where the execution begins
|
---|
67 | print header;
|
---|
68 | print start_html(-title=>'Personal Profile',-script=>$JSCRIPT);
|
---|
69 |
|
---|
70 | print h1("Big Brother Wants to Know All About You"),
|
---|
71 | strong("Note: "),"This page uses JavaScript and requires ",
|
---|
72 | "Netscape 2.0 or higher to do anything special.";
|
---|
73 |
|
---|
74 | &print_prompt();
|
---|
75 | print hr;
|
---|
76 | &print_response() if param;
|
---|
77 | print end_html;
|
---|
78 |
|
---|
79 | sub print_prompt {
|
---|
80 | print start_form(-name=>'form1',
|
---|
81 | -onSubmit=>"return validateForm()"),"\n";
|
---|
82 | print "Birthdate (e.g. Jan 3, 1972): ",
|
---|
83 | textfield(-name=>'birthdate',
|
---|
84 | -onBlur=>"validateDate(this)"),"<p>\n";
|
---|
85 | print "Sex: ",radio_group(-name=>'gender',
|
---|
86 | -value=>[qw/male female/],
|
---|
87 | -onClick=>"doPraise(this)"),"<p>\n";
|
---|
88 | print "Hair color: ",popup_menu(-name=>'color',
|
---|
89 | -value=>[qw/brunette blonde red gray/],
|
---|
90 | -default=>'red',
|
---|
91 | -onChange=>"checkColor(this)"),"<p>\n";
|
---|
92 | print hidden(-name=>'age',-value=>0);
|
---|
93 | print submit();
|
---|
94 | print end_form;
|
---|
95 | }
|
---|
96 |
|
---|
97 | sub print_response {
|
---|
98 | import_names('Q');
|
---|
99 | print h2("Your profile"),
|
---|
100 | "You claim to be a ",b($Q::age)," year old ",b($Q::color,$Q::gender),".",
|
---|
101 | "You should be ashamed of yourself for lying so ",
|
---|
102 | "blatantly to big brother!",
|
---|
103 | hr;
|
---|
104 | }
|
---|
105 |
|
---|