Commit | Line | Data |
54310121 |
1 | #!/usr/local/bin/perl |
2 | |
3 | # This script illustrates how to use JavaScript to validage 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 are 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 | |