#!/usr/bin/perl
###############################################################################
# procForm:  Process an HTML form 
#
#      1. Mail the content of the form, if an email address is provided
#         either at the end of URL, or as a hidden field in the form. 
#         such as:  <form ..... action=http://..../procForm/email@addr>   
#           or as:  <input type=hidden name=email value="email@addr">
#
#      2. Save the content of the form in an XML file, if a file is specified
#         as a hidden field in the form.
#         such as:  <input type=hidden name=file value="/dirname/filename">
#
#      3. Redirect to another html page, if a redirect url is specified
#         as a hidden field in the form.
#         such as:  <input type=hidden name=redirect value="http://....">  
###############################################################################

use CGI "param";                              # use CGI param modules
 
@elementNames = param();                      # get all FORM element names
 
&mailData();                                  # Call mailData to e-mail

&saveData();                                  # Call saveData to save data

&printHTML();                                 # Call printHTML to print HTML

###############################################################################
# mailData:  If email address is specified,
#                then mail the form data to the e-mail address.
###############################################################################
sub mailData {

    $email = $ENV{'PATH_INFO'};                  # get email from end of URL
    $email =~ s'/'';                             # strip out first '/'

    $email = param('email') || param('EMAIL') || $email;  #get email from field

    return if (! $email);                        #exit if no email specified

#   open(MAIL, "| /usr/sbin/sendmail $email ");  #pipe to unix sendmail command
    open(MAIL, "| sendmail $email ");  #pipe to unix sendmail command
 
    print (MAIL "From:    party server         \n");
    print (MAIL "To:      $email               \n");
    print (MAIL "Subject: Form Element Content \n");
    print (MAIL "\n");
    print (MAIL "Your Form Elements and Values are:\n");

    foreach $name (@elementNames) {                  # for each form field
        if ($name =~ /(email|file|redirect)/i) {     # if name is one of these
                next;                                # skip it
        }
        print MAIL "\n $name: ";                     # send name to mail
        @values = param($name);                      # get the values of field
        foreach $value (@values) {                   # for each value
            print MAIL "$value  ";                   # send value to mail
        }
    }
    close(MAIL);
}

###############################################################################
# saveData: If a file is specified,
#               then save the form data in the file.
###############################################################################
sub saveData {
 
    $file = param('file') || param('FILE');      # get file name to save data

    return if (! $file);                         # exit if no file specified

    open (INPUT,  "< $file") or die("Cannot open input file $file - $!");

    @array = <INPUT>;				# read file into array

    close(INPUT);

    if ($array[0] =~ /stylesheet/) {		#if first line is <?xml-sty..>
        $array[0] = "";				#get rid of <?xml-stylesheet>
        $array[1] = "";				#get rid of <FORMFILE>
        $array[$array-1] = "";			#get rid of </FORMFILE>
    }

    open (OUTPUT,  "> $file")  or die("Cannot open output file $file - $!");

    print OUTPUT '<?xml-stylesheet type="text/xsl" href="rsvp.xsl"?>';
    print OUTPUT "\n"; 
    print OUTPUT "<FORMFILE> \n"; 
    print OUTPUT @array;			     # write the array
    print OUTPUT "  <FORMDATA> \n"; 

    foreach $name (@elementNames) {                  # for each form field
        if ($name =~ /(email|file|redirect)/i) {     # if name is one of these
                next;                                # skip it
        }
        @values = param($name);                      # get the values of field 
        if (@values <= 1) {			     # if single value
            print OUTPUT  "    <$name>$values[0]</$name> \n";	    #print it
        }
        else {					     # if multi values
            print OUTPUT  "    <$name> \n";	     # print opening tag
            foreach $value (@values) {               # for each value
                print OUTPUT  "      <option>$value</option> \n";    #print it
            }
            print OUTPUT  "    </$name> \n";	     # print closing tag
        }
    }
    print OUTPUT  "  </FORMDATA> \n";
    print OUTPUT  "</FORMFILE> \n";

    close(OUTPUT);
}

###############################################################################
# printHTML: If a redirect is specified, 
#                 then redirect to the requested URL
#                 else generate a simple output HTML page
###############################################################################
sub printHTML {
 
    $redirect = param('redirect') || param('REDIRECT');     # get redirect URL

    print "Content-type: text/html \n";

    if ($redirect) {                            # if a redirect is requested
        print "Location: $redirect \n\n";       # create HTTP Location header
        return;
    }

    print "\n";

    print "
        <HTML>
        <HEAD>
        <TITLE>Thank you</TITLE>
        </HEAD>
        <BODY>
        <H2 ALIGN=center>Thank you for your request</H2>
    ";

    print "<TABLE BORDER=2 ALIGN=center>";
 
    foreach $name (@elementNames) {                  # for each form field
        if ($name =~ /(email|file|redirect)/i) {     # if name is one of these
                next;                                # skip it
        }
        print "\n <TR><TD VALIGN=top><B>$name:</B><TD>";   # print name
        @values = param($name);                      # get the values of field
        foreach $value (@values) {                   # for each value
            print "$value <BR>";                     # print to html page
        }
    }
    print "
        </TABLE>
        </BODY>
        </HTML>
    ";
}
 
exit(0);