sub sendMail
{
    $email = $FORM{'Email'} ;
    if (length $email > 80) {
      &Show_Critical_Error ('Email Address too long!');
    }
    if ($email =~ /^[^@]+@([-\w]+\.)+[A-Za-z]{2,4}$/)
        {
    open(MAIL, "|$email_path -t -oi -odq") || &Show_Critical_Error('Sy
+stem Error.  Unable to open mail application.') ;
    print MAIL "To: myemail\@mydomain.com(my domain name)\n" ;
    print MAIL "From: $FORM{'Email'} (JazzKids SITE)\n" ;
    print MAIL "Subject: WEBSITE CONTACT-jazzkids\n" ;
    print MAIL "\n" ;
    print MAIL "Name: $FORM{'Name'}\n\n" ;
    print MAIL "Email: $FORM{'Email'}\n\n" ;
    print MAIL "Address: $FORM{'Address'}\n\n" ;
    print MAIL "City: $FORM{'City'}\n\n" ;
    print MAIL "State: $FORM{'State'}\n\n" ;
    print MAIL "Zip: $FORM{'Zip'}\n\n" ;
    print MAIL "Specialty: $FORM{'Specialty'}\n\n" ;
    print MAIL "Best to reach by: $FORM{'Reachby'}\n\n" ;
    print MAIL "Best to reach when: $FORM{'Reachwhen'}\n\n" ;
    print MAIL "Comments: $FORM{'Comments'}\n\n" ;
    print MAIL "----------------------------------------\n\n" ;
    print MAIL "Sent from: $FORM{'form'}\n\n" ;
    close(MAIL) ;
    }
    
    else {&Show_Critical_Error('EMAIL ADDRESS INVALID.') ;}
}
[download]

sub Parse_Post_Form
{
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
    @pairs = split(/&/, $buffer) ;
    $valid = "[A-Za-z]\@\:\." ;
    foreach $pair (@pairs) 
    {
        ($name, $value) = split(/=/, $pair) ;
        $value =~ tr/+/ / ;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg ;
        $value =~ s/[^$valid]/./go; 
        $FORM{$name} = $value ;
        if ($value =~ s/`//) {
          &Show_Critical_Error ('No back ticks allowed!');
    }
    }
}
[download]