home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _6858d9063891f50c2825f4c47c006fea < prev    next >
Encoding:
Text File  |  2000-03-15  |  3.1 KB  |  106 lines
  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.  
  106.