$TITLE

#!/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 = "feedbk1.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$TITLE __END_OF_HTML_CODE__ }#print_header ######## # #sub print_html_form # # This subroutine prints out the HTML form the user fills in to # send an email message. # ######### sub print_html_form { print <<__END_OF_HTML_CODE__;

__END_OF_HTML_CODE__ } #print_html_form ######## # #sub check_form_data # # This subroutine checks the information submitted via the # html form to make sure it has all the required information. # ######## sub check_form_data { $FORM_DATA{"users_email"} = &escape_input($FORM_DATA{"users_email"}) ; $FORM_DATA{"users_name"} = &escape_input($FORM_DATA{"users_name"}) ; $FORM_DATA{"message"} = &escape_input($FORM_DATA{"message"}) ; #The array which holds all the error code numbers, and the error message #associated with that code number. my %error_codes = ( "1" => "Email address is blank.", "2" => "Email address must contain \@.", "3" => "Comment field is blank.", "4" => "Comment field must not contain urls.", "5" => "Referring Web page is blank.", "6" => "Unknown referring Web page."); if ($FORM_DATA{'users_email'} !~ /\w/) { $error = 1; } elsif ($FORM_DATA{'users_email'} !~ /@/) { $error = 2; } elsif ($FORM_DATA{'message'} !~ /\w/) { $error = 3; } elsif ($FORM_DATA{'message'} =~ /href/) { $error = 4; } elsif ($FORM_DATA{'referrer'} !~ /\w/) { $error = 5; } elsif ($FORM_DATA{'referrer'} =~ /Unknown/) { $error = 6; } if ($error) { print <<__END_OF_HTML_CODE__;

Ridged Band
SPECIALIZED TISSUE OF THE PENIS

The form you submitted contained the following error: $error_codes{$error} Please click on your browser’s Back button to correct your input.

__END_OF_HTML_CODE__ } if ($FORM_DATA{'cc'} ne "") { $CC_EMAIL = $FORM_DATA{'cc'}; } } #check_form_data ######## # #sub send_mail # # This subroutine writes and sends the email message. # ######## sub send_mail { open (MESSAGE, "| $SENDMAIL -t -oi "); print MESSAGE <<__END_OF_MESSAGE__; To: no_circ\@sbcglobal.net From: research\@cirp.org Subject: RB comments Cc: harrisond\@telus.net __END_OF_MESSAGE__ print MESSAGE ("Respondent: $FORM_DATA{'users_email'}\n"); print MESSAGE ("Name: $FORM_DATA{'users_name'}\n\n"); print MESSAGE ("Message:\n"); print MESSAGE ("$FORM_DATA{'message'}\n\n"); print MESSAGE ("###\n"); print MESSAGE ("SYSTEM INFORMATION\n"); print MESSAGE ("Browser: $FORM_DATA{'browserName'}\n"); print MESSAGE ("Version: $FORM_DATA{'browserVersion'}\n"); print MESSAGE ("Screen Resolution: $FORM_DATA{'screenSize'}\n"); print MESSAGE ("Operating System: $FORM_DATA{'platform'}\n"); print MESSAGE ("System Language: $FORM_DATA{'systemLanguage'}\n"); print MESSAGE ("Referrer: $FORM_DATA{'referrer'}\n"); close (MESSAGE); } #send_mail ######## # #sub reply_to_user # # Provided everything submitted from the form checks out ok, # this subroutine returns an acknowledgement to the user. # ######## sub reply_to_user { print <<__END_OF_HTML_CODE__;

Ridged Band

SPECIALIZED TISSUE OF THE PENIS

Feedback

Thank you...

...your message has been sent.

__END_OF_HTML_CODE__ print ("\n\n"); } #reply_to_user sub escape_input { local ($stringin) = @_; $_ = $stringin; s/&/&/g; s//\>/g; s/"/"/g; s/\\\\/\/g; s/\\\{/{/g; s/\\\}/}/g; s/\\,/,/g; s/$/(/g; s/$/)/g; s/\[/[/g; s/\]/]/g; s/\*/*/g; s/\+/+/g; s/\|/|/g; s/'/'/g; s/\r\n/\n/g; s/\r/\n/g; s/\n/
/g; return $_; } #FILE: $MODULE