#!/usr/bin/perl ############################################################################### # formMail: Mail the content of an HTML form ############################################################################### $addr = 'sam.sultan@nyu.edu'; # setup recipient email address use CGI "param"; # use CGI param method @elementNames = param(); # get all FORM element names &mailData(); # Call mailData to e-mail &printHTML(); # Call printHTML to print HTML ############################################################################### # mailData: Mail content of the form fields ############################################################################### sub mailData { open(MAIL, "| /usr/sbin/sendmail $addr "); #pipe to unix sendmail command 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 print MAIL "\n $name: "; # send name to mail cmd @values = param($name); # get the values of field foreach $value (@values) { # for each value print MAIL "$value "; # send value to mail cmd } } close(MAIL); } ############################################################################### # printHTML: Generate a simple output HTML page ############################################################################### sub printHTML { print "Content-type: text/html \n"; print "\n"; print "
$name: | "; # print name
@values = param($name); # get the values
foreach $value (@values) { # for each value
print "$value "; # print to html page } } print " |