#!/usr/bin/perl5 my $TITLE = "Send message"; my $BGCOLOR = "#FFFFFF"; my $TEXT_COLOR_NORMAL = "#000000"; my $REQUIRED_TEXT_COLOR = "#000000"; my $BACKGROUND_URL = ""; my $CGI_DIR = "/cgi-bin"; my $SENDMAIL = "/usr/sbin/sendmail"; ## my $SENDMAIL = "/usr/lib/sendmail"; my $IMAGE_DIR = "http://research.cirp.org/images"; ## my $CC_EMAIL = "harrisond\@telus.net"; my $CC_EMAIL = ""; my $MODULE = "feedbk2.cgi"; &get_form_data; if (!$FORM_DATA{'mail'}) { &print_header; &print_html_form; } else { $error = 0; &print_header; &check_form_data; if (!$error) { &send_mail; &reply_to_user; } } exit(0); ######## THE SUBROUTINES ######## ######## # #sub get_form_data # # Gets the information submitted, decodes it, and puts it # into the $FORM_DATA associative array. # ######### sub get_form_data { $request_method = $ENV{'REQUEST_METHOD'}; if ($request_method eq "GET") { $form_info = $ENV{'QUERY_STRING'}; } else { $size_of_form_information = $ENV{'CONTENT_LENGTH'}; read (STDIN, $form_info, $size_of_form_information); } @key_value_pairs = split (/&/, $form_info); foreach $key_value (@key_value_pairs) { ($key, $value) = split (/=/, $key_value); $value =~ tr/+/ /; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; if (defined($FORM_DATA{$key})) { $FORM_DATA{$key} = join (", ", $FORM_DATA{$key}, $value); } else { $FORM_DATA{$key} = $value; } } } #get_form_data ######## # #sub print_header # # Prints out HTML page headers. # ######## sub print_header { print ("Content-type: text/html\n\n"); print <<__END_OF_HTML_CODE__; \ \<\!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"\> \ \n
\n