Neo_Matrix
Deleted
May 8, 2000, 4:20 PM
Post #3 of 6
(555 views)
|
I got in touch with my Server Admin and he said the file had Write abled. So below is the code. I really appreciate this.
ntformmail.pl
#!/usr/bin/perl
##############################################################################
# FormMail Version 1.6 #
# Copyright 1995-1997 Matt Wright mattw@worldwidemart.com #
# Created 06/09/95 Last Modified 05/02/97 #
# Matt's Script Archive, Inc.: http://www.worldwidemart.com/scripts/ #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1995-1997 Matthew M. Wright All Rights Reserved. #
# #
# FormMail may be used and modified free of charge by anyone so long as this #
# copyright notice and the comments above remain intact. By using this #
# code you agree to indemnify Matthew M. Wright from any liability that #
# might arise from its use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. In other words, please ask first before you try and #
# make money off of my program. #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact #
##############################################################################
# Slightly modified to use direct SMTP instead of SENDMAIL (for NT users) #
# on Jun 4, 1998 by Andrey Bobkov, 9 Net Avenue, inc. #
##############################################################################
# Updated By Michael Bloomfield for Media Solutions #
# Web Applications & Software Development #
# Last Modified: May 7,2000 #
# Phone: (718)333-1235 #
# EMail: MCompServices@usa.net #
##############################################################################
##############################################################################
# Define Variables #
# Detailed Information Found In README File. #
# @referers allows forms to be located only on servers which are defined #
# in this field. This security fix from the last version which allowed #
# anyone on any server to use your FormMail script on their web site. #
do 'ntformmail.cfg';
# Done #
##############################################################################
use Socket;
# Check Referring URL
#&check_url;
# Retrieve Date
&get_date;
# Parse Form Contents
&parse_form;
# Check Required Fields
&check_required;
# Return HTML Page or Redirect User
# Michael - Append Database
&appendit;
# Send E-Mail
if (&send_mail2) {
print "Content-type: text/html\n\n";
print qq~
<html><h1>Your email was not sent.<BR>~;
if ( $Error_Message =~ /MAIL FROM/) {
print qq~
e-mail address you entered may not be valid.<BR>
~;
}
print qq~
$Error_Message<BR>\n
Please try again!\n<BR>
</h1>\n~;
die "Error = $Error_Message";
}
else
{
&return_html;
}
sub check_url {
# Localize the check_referer flag which determines if user is valid. #
local($check_referer) = 0;
# If a referring URL was specified, for each valid referer, make sure #
# that a valid referring URL was passed to FormMail. #
if ($ENV{'HTTP_REFERER'}) {
foreach $referer (@referers) {
if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) {
$check_referer = 1;
last;
}
}
}
else {
$check_referer = 1;
}
# If the HTTP_REFERER was invalid, send back an error. #
if ($check_referer != 1) { &error('bad_referer') }
}
sub get_date {
# Define arrays for the day of the week and month of the year. #
@days = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday');
@months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
# Get the current time and format the hour, minutes and seconds. Add #
# 1900 to the year to get the full 4 digit year. #
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$year += 1900;
# Format the date. #
$date = "$days[$wday], $months[$mon] $mday, $year at $time";
}
sub parse_form {
# Define the configuration associative array. #
%Config = ('recipient','', 'subject','',
'email','', 'realname','',
'redirect','', 'bgcolor','',
'background','', 'link_color','',
'vlink_color','', 'text_color','',
'alink_color','', 'title','',
'sort','', 'print_config','',
'required','', 'env_report','',
'return_link_title','', 'return_link_url','',
'print_blank_fields','', 'missing_fields_redirect','',
# Michael - Add The Database Variables to be Parsed
'data_filename','', 'data_fields_to_log','',
'data_env_to_log','', 'data_delimiter','',
'data_listvertical','');
# Determine the form's REQUEST_METHOD (GET or POST) and split the form #
# fields up into their name-value pairs. If the REQUEST_METHOD was #
# not GET or POST, send an error. #
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
# Split the name-value pairs
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
}
else {
&error('request_method');
}
# For each name-value pair: #
foreach $pair (@pairs) {
# Split the pair up into individual variables. #
local($name, $value) = split(/=/, $pair);
# Decode the form encoding on the name and value variables. #
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# If they try to include server side includes, erase them, so they
# aren't a security risk if the html gets returned. Another
# security hole plugged up.
$value =~ s/<!--(.|\n)*-->//g;
# If the field name has been specified in the %Config array, it will #
# return a 1 for defined($Config{$name}}) and we should associate #
# this value with the appropriate configuration variable. If this #
# is not a configuration form field, put it into the associative #
# array %Form, appending the value with a ', ' if there is already a #
# value present. We also save the order of the form fields in the #
# @Field_Order array so we can use this order for the generic sort. #
if (defined($Config{$name})) {
$Config{$name} = $value;
}
else {
if ($Form{$name} && $value) {
$Form{$name} = "$Form{$name}, $value";
}
#BSS - Bug fix provided by JJ Steward: below line prevents print_blank_fields
#from working correctly. - Added By Michael Bloomfield
# elsif ($value) {
else {
push(@Field_Order,$name);
$Form{$name} = $value;
}
}
}
# The next six lines remove any extra spaces or new lines from the #
# configuration variables, which may have been caused if your editor #
# wraps lines after a certain length or if you used spaces between field #
# names or environment variables. #
$Config{'required'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'required'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'env_report'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'env_report'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'data_env_to_log'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'data_env_to_log'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'print_config'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'print_config'} =~ s/(\s+)?\n+(\s+)?//g;
# Split the configuration variables into individual field names. #
@Required = split(/,/,$Config{'required'});
@Env_Report = split(/,/,$Config{'env_report'});
@Data_env_to_log = split(/,/,$Config{'data_env_to_log'});
@Print_Config = split(/,/,$Config{'print_config'});
}
sub check_required {
# Localize the variables used in this subroutine. #
local($require, @error);
if (!$Config{'recipient'}) {
if (!defined(%Form)) { &error('bad_referer') }
else { &error('no_recipient') }
}
# For each require field defined in the form: #
foreach $require (@Required) {
# If the required field is the email field, the syntax of the email #
# address if checked to make sure it passes a valid syntax. #
if ($require eq 'email' && !&check_email($Config{$require})) {
push(@error,$require);
}
# Otherwise, if the required field is a configuration field and it #
# has no value or has been filled in with a space, send an error. #
elsif (defined($Config{$require})) {
if (!$Config{$require}) {
push(@error,$require);
}
}
# If it is a regular form field which has not been filled in or #
# filled in with a space, flag it as an error field. #
elsif (!$Form{$require}) {
push(@error,$require);
}
}
# If any error fields have been found, send error message to the user. #
if (@error) { &error('missing_fields', @error) }
}
sub return_html {
# Local variables used in this subroutine initialized. #
local($key,$sort_order,$sorted_field);
# If redirect option is used, print the redirectional location header. #
if ($Config{'redirect'}) {
print "Location: $Config{'redirect'}\n\n";
}
# Otherwise, begin printing the response page. #
else {
# Print HTTP header and opening HTML tags. #
print "Content-type: text/html\n\n";
print "<html>\n <head>\n";
# Print out title of page #
if ($Config{'title'}) { print " <title>$Config{'title'}</title>\n" }
else { print " <title>Thank You</title>\n" }
print " </head>\n <body";
# Get Body Tag Attributes #
&body_attributes;
# Close Body Tag #
print ">\n <center>\n";
# Print custom or generic title. #
#if ($Config{'title'}) { print " <h1>$Config{'title'}</h1>\n" }
#else { print " <h1>Thank You For Filling Out This Form</h1>\n" }
#print "</center>\n";
#print "Below is what you submitted to $Config{'recipient'} on ";
#print "$date<p><hr size=1 width=75\%><p>\n";
# Sort alphabetically if specified: #
if ($Config{'sort'} eq 'alphabetic') {
foreach $field (sort keys %Form) {
# If the field has a value or the print blank fields option #
# is turned on, print out the form field and value. #
if ($Config{'print_blank_fields'} | | $Form{$field}) {
print "<b>$field:</b> $Form{$field}<p>\n";
}
}
}
# If a sort order is specified, sort the form fields based on that. #
elsif ($Config{'sort'} =~ /^order:.*,.*/) {
# Set the temporary $sort_order variable to the sorting order, #
# remove extraneous line breaks and spaces, remove the order: #
# directive and split the sort fields into an array. #
$sort_order = $Config{'sort'};
$sort_order =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$sort_order =~ s/(\s+)?\n+(\s+)?//g;
$sort_order =~ s/order://;
@sorted_fields = split(/,/, $sort_order);
# For each sorted field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $sorted_field (@sorted_fields) {
if ($Config{'print_blank_fields'} | | $Form{$sorted_field}) {
print "<b>$sorted_field:</b> $Form{$sorted_field}<p>\n";
}
}
}
# Otherwise, default to the order in which the fields were sent. #
else {
# For each form field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $field (@Field_Order) {
if ($Config{'print_blank_fields'} | | $Form{$field}) {
print "<b>$field:</b> $Form{$field}<p>\n";
}
}
}
print "<p><hr size=1 width=75%><p>\n";
# Check for a Return Link and print one if found. #
if ($Config{'return_link_url'} && $Config{'return_link_title'}) {
print "<ul>\n";
print "<li><a href=\"$Config{'return_link_url'}\">$Config{'return_link_title'}</a>\n";
print "</ul>\n";
}
# Print the page footer. #
# print <<"(END HTML FOOTER)";
# <hr size=1 width=75%><p>
# <center><font size=-1><a href="http://www.worldwidemart.com/scripts/formmail.shtml">FormMail</a> V1.6 © 1995 -1997 Matt Wright<br>
#A Free Product of <a href="http://www.worldwidemart.com/scripts/">Matt's Script Archive, Inc.</a></font></center>
# </body>
# </html>
#(END HTML FOOTER)
}
}
# Send The Mail
sub send_message
{
# Localize variables used in this subroutine. #
local($print_config,$key,$sort_order,$sorted_field,$env_report);
print SMTP "Below is the result of your feedback form. It was submitted by\n";
print SMTP "$Config{'realname'} ($Config{'email'}) on $date\n";
print SMTP "-" x 75 . "\n\n";
if (@Print_Config) {
foreach $print_config (@Print_Config) {
if ($Config{$print_config}) {
print SMTP "$print_config: $Config{$print_config}\n\n";
}
}
}
# Sort alphabetically if specified: #
if ($Config{'sort'} eq 'alphabetic') {
foreach $field (sort keys %Form) {
# If the field has a value or the print blank fields option #
# is turned on, print out the form field and value. #
if ($Config{'print_blank_fields'} | | $Form{$field} | |
$Form{$field} eq '0') {
print SMTP "$field: $Form{$field}\n\n";
}
}
}
# If a sort order is specified, sort the form fields based on that. #
elsif ($Config{'sort'} =~ /^order:.*,.*/) {
# Remove extraneous line breaks and spaces, remove the order: #
# directive and split the sort fields into an array. #
$Config{'sort'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'sort'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'sort'} =~ s/order://;
@sorted_fields = split(/,/, $Config{'sort'});
# For each sorted field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $sorted_field (@sorted_fields) {
if ($Config{'print_blank_fields'} | | $Form{$sorted_field} | |
$Form{$sorted_field} eq '0') {
print SMTP "$sorted_field: $Form{$sorted_field}\n\n";
}
}
}
# Otherwise, default to the order in which the fields were sent. #
else {
# For each form field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
# Unformatted Just For EMail
# No need for NonCompleted To Show Up Here
print SMTP "Below Are The Results Of the Form:\n\n";
foreach $field (@Field_Order)
{
# Remove The print_blank_fiels
# if ($Config{'print_blank_fields'} | | $Form{$field} | | $Form{$field} eq '0')
if ($Form{$field} | | $Form{$field} eq '0')
{
print SMTP "$field: $Form{$field}\n";
}
}
# No Need For Formatted Anymore
#
# print SMTP "\nBelow Is The Formatted Results:\n\n";
#
# foreach $field (@Field_Order)
# {
# if ($Config{'print_blank_fields'} | | $Form{$field} | | $Form{$field} eq '0') {
# print SMTP "$Form{$field},";
# }
# }
}
print SMTP "\n\n";
print SMTP "-" x 75 . "\n\n";
# Send any specified Environment Variables to recipient. #
foreach $env_report (@Env_Report) {
if ($ENV{$env_report}) {
print SMTP "$env_report: $ENV{$env_report}\n";
}
}
}
sub send_mail {
$mailprog.=" -t $Config{'recipient'} -server mail.9netave.com";
if ($Config{'email'}) {
$mailprog.=" -f $Config{'email'}";
} else {
$mailprog.=" -f ntformmail\@9netave.com";
}
if ($Config{'subject'}) {
$mailprog.=" -s \"$Config{'subject'}\"";
} else {
$mailprog.=" -s \"WWW Form Submission\"";
}
#open (PP,">log");
#print PP "$mailprog\n";
#close (PP);
open (MAIL,"|$mailprog >>log") | | die "can't open BLAT";
&send_message;
close (MAIL);
}
sub send_mail2
{
$SMTP_SERVER = "mail.9netave.com";
local($CRLF) = "\015\012";
local($SMTP_SERVER_PORT) = 25;
local($AF_INET) = ($] > 5 ? AF_INET : 2);
local($SOCK_STREAM) = ($] > 5 ? SOCK_STREAM : 1);
local(@bad_addresses) = ();
$, = ', ';
$" = ', ';
$WEB_SERVER = "mail.9netave.com\n";
chop ($WEB_SERVER);
local($local_address) = (gethostbyname($WEB_SERVER))[4];
local($local_socket_address) = pack('S n a4 x8', $AF_INET, 0, $local_address);
local($server_address) = (gethostbyname($SMTP_SERVER))[4];
local($server_socket_address) = pack('S n a4 x8', $AF_INET, $SMTP_SERVER_PORT, $server_address);
# Translate protocol name to corresponding number
local($protocol) = (getprotobyname('tcp'))[2];
# Make the socket filehandle
if (!socket(SMTP, $AF_INET, $SOCK_STREAM, $protocol)) {
$Error_Message = "Could not make socket filehandle ($!).";
return(1);
}
# Give the socket an address
bind(SMTP, $local_socket_address);
# Connect to the server
if (!(connect(SMTP, $server_socket_address))) {
$Error_Message = "Could not connect to server ($!).";
return(1);
}
# Set the socket to be line buffered
local($old_selected) = select(SMTP);
$| = 1;
select($old_selected);
# Set regex to handle multiple line strings
$* = 1;
# Read first response from server (wait for .75 seconds first)
select(undef, undef, undef, .75);
sysread(SMTP, $_, 1024);
print "<P>1:$_";
print SMTP "HELO $WEB_SERVER$CRLF";
sysread(SMTP, $_, 1024);
print "<P>2:$_";
while (/(^|(\r?\n))[^0-9]*((\d\d\d).*)$/g) { $status = $4; $message = $3}
if ($status != 250) {
$Error_Message = $message; return(3)
}
# Tell the server where we're sending from
$from="";
print SMTP "MAIL FROM:<$from>$CRLF";
sysread(SMTP, $_, 1024);
print "<P>3:$_";
if (!/[^0-9]*250/) {
$Error_Message = $_; return(4)
}
# Tell the server where we're sending to
local(@to) = split(/, */, $Config{'recipient'});
local($good_addresses) = 0;
foreach $address (@to) {
if ($address) {
print SMTP "RCPT TO:<$address>$CRLF";
sysread(SMTP, $_, 1024);
print "<P>4:$_";
/[^0-9]*(\d\d\d)/;
if ($1 ne '250') { push(@bad_addresses, $name.$address, $_) }
else { ++$good_addresses }
}
}
if (!$good_addresses) {
$Error_Message = $_; return(5, @bad_addresses)
}
# Give the server the message header
print SMTP "DATA$CRLF";
sysread(SMTP, $_, 1024);
print "<P>5:$_";
if (!/[^0-9]*354/) {
$Error_Message = $_; return(6)
}
print SMTP "To: $Config{'recipient'}$CRLF";
print SMTP "From: $Config{'email'}$CRLF";
print SMTP "Subject: $Config{'subject'}$CRLF";
print SMTP "$CRLF";
&send_message;
print SMTP "$CRLF.$CRLF";
sysread(SMTP, $_, 1024);
print "<P>6:$_";
if (!/[^0-9]*250/) {
$Error_Message = $_; return(7)
}
# Disconnect from the server
if (!shutdown(SMTP, 2)) {
$Error_Message = "Could not shut down server ($!).";
return(8, @bad_addresses);
}
elsif (@bad_addresses) {
return(2, @bad_addresses);
}
else {
return(0)
}
}
sub check_email {
# Initialize local email variable with input to subroutine. #
$email = $_[0];
# If the e-mail address contains: #
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ | |
# the e-mail address contains an invalid syntax. Or, if the #
# syntax does not match the following regular expression pattern #
# it fails basic syntax verification. #
$email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
# Basic syntax requires: one or more characters before the @ sign, #
# followed by an optional '[', then any number of letters, numbers, #
# dashes or periods (valid domain/IP characters) ending in a period #
# and then 2 or 3 letters (for domain suffixes) or 1 to 3 numbers #
# (for IP addresses). An ending bracket is also allowed as it is #
# valid syntax to have an email address like: user@[255.255.255.0] #
# Return a false value, since the e-mail address did not pass valid #
# syntax. #
return 0;
}
else {
# Return a true value, e-mail verification passed. #
return 1;
}
}
sub body_attributes {
# Check for Background Color
if ($Config{'bgcolor'}) { print " bgcolor=\"$Config{'bgcolor'}\"" }
# Check for Background Image
if ($Config{'background'}) { print " background=\"$Config{'background'}\"" }
# Check for Link Color
if ($Config{'link_color'}) { print " link=\"$Config{'link_color'}\"" }
# Check for Visited Link Color
if ($Config{'vlink_color'}) { print " vlink=\"$Config{'vlink_color'}\"" }
# Check for Active Link Color
if ($Config{'alink_color'}) { print " alink=\"$Config{'alink_color'}\"" }
# Check for Body Text Color
if ($Config{'text_color'}) { print " text=\"$Config{'text_color'}\"" }
}
# Begin Addition Of Database
# Database addition based on YForm's with few modifications
# ASHLEY: The code to write form submissions to a text file on your server
# This feature ONLY WORKS IF you specify fields in the "data_fields_to_log"
# and/or "data_env_to_log" in your form config. - YForm
sub appendit {
# Localize variables used in this subroutine. #
local($sort_order,$sort_env,$sorted_field,$sorted_env);
if ($Config{'data_fields_to_log'} | | $Config{'data_env_to_log'}) {
if ($Config{'data_filename'})
{
if (-w $Config{'data_filename'})
{
&lockit ("$Config{'data_filename'}.lock");
open (Database, ">>$Config{'data_filename'}");
# Put Config(data_fields_to_log) into array.
# For each field, replace all Return codes in fields (unless Vertical listing)
# with ¶ (alt+0182)to avoid line breaks within our database
# rows and then print the form field and value.
$sort_order = $Config{'data_fields_to_log'};
$sort_order =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$sort_order =~ s/(\s+)?\n+(\s+)?//g;
@sorted_fields = split(/,/, $sort_order);
# Dont Log the Date & Time - Not Needed
# print Database "$date";
# print Database "$Config{'data_delimiter'}"; #use this only if loggin date AND time
# print Database "$time";
foreach $sorted_field (@sorted_fields) {
$holder = $Form{$sorted_field};
if ($Config{'data_listvertical'}) {
print Database "\n$sorted_field: $holder";
### the line above writes empty fields; the line below does not ####
#if ($Form{$sorted_field}) {print Database "\n$sorted_field: $holder";}
}
else {
$holder =~ s/\r\n/¶/g;
print Database "$Config{'data_delimiter'}$holder";
}
}
foreach $sorted_envfield (@Data_env_to_log) {
$holder = $ENV{$sorted_envfield};
if ($Config{'data_listvertical'}) {
print Database "\n$sorted_envfield: $holder";
### the line above writes empty fields; the line below does not ####
#if ($Form{$sorted_envfield}) {print Database "\n$sorted_field: $holder";}
}
else {
$holder =~ s/\r\n/¶/g;
print Database "$Config{'data_delimiter'}$holder";
}
}
if ($Config{'data_listvertical'}) {print Database "\n\n==============================\n\n";}
else {print Database "\n"; }
close (Database);
&unlockit ("$Config{'data_filename'}.lock");
}
}
}
}
# ASHLEY: A required routine for the database append feature - YForm
sub lockit
{
local ($lock_file) = @_;
local ($endtime);
$endtime = 20;
$endtime = time + $endtime;
while (-e $lock_file && time < $endtime)
{sleep(1);}
open(LOCK_FILE, ">$lock_file") | |
&file_open_error ("$lock_file", "Lock File Routine", __FILE__, __LINE__);
}
# ASHLEY: Another required routine for the database append feature - YForm
sub unlockit
{
local ($lock_file) = @_;
close(LOCK_FILE);
unlink($lock_file);
}
# ASHLEY: Another required routine for the database append feature - YForm
sub file_open_error
{
local ($bad_file, $script_section, $this_file, $line_number) = @_;
print "Content-type: text/html\n\n";
&CgiDie ("I am sorry, but I was not able to access $bad_file.")
}
# End Addition of Database
sub error {
# Localize variables and assign subroutine input. #
local($error,@error_fields) = @_;
local($host,$missing_field,$missing_field_list);
if ($error eq 'bad_referer') {
if ($ENV{'HTTP_REFERER'} =~ m|^https?://([\w\.]+)|i) {
$host = $1;
print <<"(END ERROR HTML)";
Content-type: text/html
<html>
<head>
<title>Bad Referrer - Access Denied</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Bad Referrer - Access Denied</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>The form attempting to use
<a href="http://www.worldwidemart.com/scripts/formmail.shtml">FormMail</a>
resides at <tt>$ENV{'HTTP_REFERER'}</tt>, which is not allowed to access
this cgi script.<p>
If you are attempting to configure FormMail to run with this form, you need
to add the following to \@referers, explained in detail in the README file.<p>
Add <tt>'$host'</tt> to your <tt><b>\@referers</b></tt> array.<hr size=1>
<center><font size=-1>
<a href="http://www.worldwidemart.com/scripts/formmail.shtml">FormMail</a> V1.6 © 1995 - 1997 Matt Wright<br>
A Free Product of <a href="http://www.worldwidemart.com/scripts/">Matt's Script Archive, Inc.</a>
</font></center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
else {
print <<"(END ERROR HTML)";
Content-type: text/html
<html>
<head>
<title>FormMail v1.6</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>FormMail</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><th><tt><font size=+1>Copyright 1995 - 1997 Matt Wright<br>
Version 1.6 - Released May 02, 1997<br>
A Free Product of <a href="http://www.worldwidemart.com/scripts/">Matt's Script Archive,
Inc.</a></font></tt></th></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
}
elsif ($error eq 'request_method') {
print <<"(END ERROR HTML)";
Content-type: text/html
<html>
<head>
<title>Error: Request Method</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Error: Request Method</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>The Request Method of the Form you submitted did not match
either <tt>GET</tt> or <tt>POST</tt>. Please check the form and make sure the
<tt>method=</tt> statement is in upper case and matches <tt>GET</tt> or <tt>POST</tt>.<p>
<center><font size=-1>
<a href="http://www.worldwidemart.com/scripts/formmail.shtml">FormMail</a> V1.6 © 1995 - 1997 Matt Wright<br>
A Free Product of <a href="http://www.worldwidemart.com/scripts/">Matt's Script Archive, Inc.</a>
</font></center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
elsif ($error eq 'no_recipient') {
print <<"(END ERROR HTML)";
Content-type: text/html
<html>
<head>
<title>Error: No Recipient</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Error: No Recipient</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>No Recipient was specified in the data sent to FormMail. Please
make sure you have filled in the 'recipient' form field with an e-mail
address. More information on filling in recipient form fields can be
found in the README file.<hr size=1>
<center><font size=-1>
<a href="http://www.worldwidemart.com/scripts/formmail.shtml">FormMail</a> V1.6 © 1995 - 1997 Matt Wright<br>
A Free Product of <a href="http://www.worldwidemart.com/scripts/">Matt's Script Archive, Inc.</a>
</font></center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
elsif ($error eq 'missing_fields') {
if ($Config{'missing_fields_redirect'}) {
print "Location: $Config{'missing_fields_redirect'}\n\n";
}
else {
foreach $missing_field (@error_fields) {
$missing_field_list .= " <li>$missing_field\n";
}
print <<"(END ERROR HTML)";
Content-type: text/html
<html>
<head>
<title>Error: Blank Fields</title>
</head>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Error: Blank Fields</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>The following fields were left blank in your submission form:<p>
<ul>
$missing_field_list
</ul><br>
These fields must be filled in before you can successfully submit the form.<p>
Please use your browser's back button to return to the form and try again.<hr size=1>
<center><font size=-1>
All rights reserved. Copyright 2000 <a href="http://www.mygbi.com/">Gaines Berland, Inc</a>.
</font></center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
}
exit;
}
Thanks again.
|
MAIN
SEARCH
WHO'S 
LOG 