$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-f.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__;

Bande striée

TISSU SPECIALISE DU PENIS

Page d’accueil

Nous écrire

Vos commentaires ou questions sont les bienvenus.

Votre adresse email :

Votre nom (facultatif) :

Votre message :

__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" => "Une adresse email est obligatoire.", "2" => "Une adresse légale doit contenir un et un seul « @ ».", "3" => "Vous avez laissé votre message en blanc.", "4" => "Message 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__;

Bande striée
TISSU SPECIALISE DU PENIS

Erreur sur le formulaire : $error_codes{$error} SVP cliquer sur le bouton « Retour » de votre navigateur pour corriger l’erreur.

__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: commentaires bande striée Cc: harrisond\@telus.net __END_OF_MESSAGE__ print MESSAGE ("Répondant : $FORM_DATA{'users_email'}\n"); print MESSAGE ("Nom : $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 ("Navigateur : $FORM_DATA{'browserName'}\n"); print MESSAGE ("Version : $FORM_DATA{'browserVersion'}\n"); print MESSAGE ("Dimensions de l\'écran : $FORM_DATA{'screenSize'}\n"); print MESSAGE ("Système d\'exploitation : $FORM_DATA{'platform'}\n"); print MESSAGE ("Referrer : $FORM_DATA{'referrer'}\n"); print MESSAGE ("Langue du système : $FORM_DATA{'systemLanguage'}\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__;