500 Internal Server Error, Please help me with my form! Options

[michelle]

Hi

I am new to this whole web design business and am having quite a bit of trouble using forms, I am making this site for my Dad's business, and would really appreciate any help you could offer.

I would first like to apologise for the size of this post, but thought I would include all code and scripting relevant to my problem!

Secondly, I realise that I probably need to 'neaten up' my html code, and will be working on this once I have my site functional! I have basically made it using trial and error to make it look how I want it to, and have since learnt a little more about CSS - this page was the first I made using notepad rather than dreamweaver/frontpage/word (i got sick of the others and tried this instead!).

I have made two failed attemps, basically I am trying to allow potential customers to give me their details and also a bit of a description of what type of product they are after. I want this form to simply send to my email address. I was using the ACTION="mailto:..." but found this was a little impractical.

I have uploaded both scripts to my cgi-bin on my host's server using MS DOS ftp, making sure that the transfer type was ASCII rather than binary, I have also set the permissions of my cgi files to the following:
Owner: Read/Write/Execute
Group: Read/Execute
All Users: Read/Execute

I have also checked with my hosting company and their perl thing is: /usr/bin/perl

Now I have tried the BNB script in both ways:
"#!/usr/bin/perl"
and
"/usr/bin/perl" as the first line. I am not sure which is correct, but neither seems to work for me!

My first failed attempt is at http://www.darcyengineering.com.au/RequestQuote.html

I used Visual Form Mail, a program I downloaded to make the cgi script, which gave me the following:

CODE

/usr/bin/perl
$mail_prog = '/usr/sbin/sendmail';
# This script was generated automatically by Visual Form Mail: http://www.oneseek.com

&GetFormInput;

$Your_Name = $field{'Your Name'};
$Company_Name = $field{'Company Name'};
$Email_Address = $field{'Email Address'};
$Phone_Number = $field{'Phone Number'};
$Mobile_Number = $field{'Mobile Number'};
$Job_Description = $field{'Job Description'};
$submit_quote_request = $field{'submit quote request'};

$recip = "info\@darcyengineering.com.au";
$frm_ = "info\@darcyengineering.com.au";
$sbj_ = "Website Quote Request";
$hd_ = $recip.$frm_.$sbj;
if (($hd =~ /(\n|\r)/m) || ($recip =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) || ($recip !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/)) {
print "Fatal Error - Invalid email";
exit 0;
}

open (MAIL, "|$mail_prog -t");
print MAIL "To: $recip\n";
print MAIL "Reply-to: $frm_\n";
print MAIL "From: $frm_\n";
print MAIL "Subject: $sbj_\n";
print MAIL "\n\n";
print MAIL "Name: ".$Your_Name."\n";
print MAIL "\n";
print MAIL "Company: ".$Company_Name."\n";
print MAIL "\n";
print MAIL "Email Address: ".$Email_Address."\n";
print MAIL "\n";
print MAIL "Phone: ".$Phone_Number."\n";
print MAIL "\n";
print MAIL "Mobile: ".$Mobile_Number."\n";
print MAIL "\n";
print MAIL "Description: ".$Job_Description."\n";
print MAIL "\n";
print MAIL "Submitted: ".$submit_quote_request."\n";
print MAIL "\n\n";
close (MAIL);
print "Location: http://www.darcyengineering.com.au/QuoteRe...html\nURI: http://www.darcyengineering.com.au/QuoteRe...n\n";
sub GetFormInput {

(*fval) = @_ if @_;

local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}
if ($buf eq "") {
return 0;
}
else {
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val=~tr/+/ /;
$val=~ s/%(..)/pack("c",hex($1))/ge;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;

if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= ",$val";

#if you want multi-selects to goto into an array change to:
#$field{$name} .= "\0$val";
}


}
}
return 1;
}

This script applies to the following form:

CODE

<form METHOD="POST" ACTION="/cgi-bin/requestquoteform.cgi">
<table border=0 cellpadding=0 style='margin-left:270px;margin-top:30px' colspan="2">
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your name</p>
</td>
<td width=5%></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="Your Name" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>company name</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="Company Name" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your email address</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="Email Address" MAX SIZE="150">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your phone number</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="Phone Number" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your mobile number</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="Mobile Number" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>job description:</p>
<p style='font-family:"AvantGarde Bk BT"'>please include measurements
and specify materials where applicable</p>
</td>
<td width="5%"></td>
<td width="60%">
<TEXTAREA ROWS="10" COLS="50" NAME="Job Description"></TEXTAREA>
</td>
</tr>
</table>
<p style='font-family:"AvantGarde Bk BT";margin-left:500px;margin-top:60px'>
<INPUT TYPE="submit" NAME="submit quote request"></p>
</form>

The second is basically a carbon copy of the above, using Big Nose Bird's script, and is on http://www.darcyengineering.com.au/RequestQuote2.html:

CODE

#!/usr/bin/perl

use Socket;
##################################################################
# ©1998-2000 Bignosebird.com bnbform v4.0
# Use of this script means that you accept the disclaimer and
# agree to the terms of use located at the bottom of the
# script.
#
# Updated January 31, 2000
#
# This script is provided without support. Please read the
# README.TXT file, as well as following the troubleshooting
# links and information at http://bignosebird.com/cgi.shtml
# Our BBS is located at http://bignosebird.com/bbs.shtml
#
# Socket based e-mail for cross platform capability!
#
# Attention users of earlier versions of BNBFORM-
# You MUST read the README.TXT file to know how to configure
# your forms for use with this new version. Otherwise your
# logfile, countfile, autorespond, etc... will stop working.
# It was necessary to make these changes for security reasons.
#
#
############## SPECIAL FORM VARIABLES ############################
#required: comma delimited list of required entry fields
#data_order: comma delimited list indicating what fields to actually
# print and in what order.
#outputfile: the name of the file to save the data in if using a file.
# the file will automatically be named ending with .bout
#emailfile: the name of the file to hold only the sender e-mail address
# the file will automatically be named ending with .bemf
#ok_url: URL to go to if successful
#not_ok_url URL to go to if unsuccessful
#submit_to: email address of person to input receive data by mail
# this can be a comma seperated list of e-mail addresses
#cc_to: email address of Cc Recipient
# this can be a comma seperated list of e-mail addresses
#submit_by: email address of person completing form
#autorespond: NO LONGER USED AS OF JAN 31, 2000
#automessage: text to print for autoconfirmation e-mail
# the file will automatically be named ending with .baut
#form_id: name of form for e-mail subject
#countfile: name of file for serial number counter
# the file will automatically be named ending with .bcnt
#okaydomains: prevents calling the script from other sites,
# without restricting e-mail addresses.
# replaces $SECURE_NAME from earlier versions.
# use only lower case letters.
#SMTP_SERVER: the full host name of the server providing e-mail
# gateway service
##################################################################


## MAIN ##########################################################

# uncomment the line below, and change bignosebird to your domain
# name if you wish to make is so the script can only be called
# from your site.

#@okaydomains=("http://mydomain.com", "http://www.mydomain.com");

#SMTP_SERVER: indicates the name of the host acting as the e-mail
# gateway. "localhost" should work on most systems.

#$SMTP_SERVER="localhost";

#OR IF SMTP IS UNAVAILABLE TO YOU, USE SEND_MAIL-
# BUT NOT BOTH!

$SEND_MAIL="/usr/sbin/sendmail -t";

$lockfile="/tmp/bnbform.lck";

$SD=&sys_date;
$ST=&sys_time;

&decode_vars;

&valid_page;

if ($fields{'countfile'} ne "") { &get_number; }

&valid_data;

&write_data;

if ($fields{'automessage'} ne "") { &answer_back; }

if ($fields{'ok_url'} ne ""){
print "Location: $fields{'ok_url'}\n\n"; exit;
}
else { &thank_you; }

##################################################################
sub write_data
{

if ($fields{'submit_by'} ne "") {
if (&valid_address == 0) {
&bad_email;
exit;
}
}

if ($fields{'submit_by'} ne "" && $fields{'emailfile'} ne "") {
open (EMF,">>$fields{'emailfile'}");
print EMF "$fields{'submit_by'}\n";
close (EMF);
}

if ($fields{'submit_to'} ne "") {
$msgtext="";
$msgtext .= "On $SD at $ST,\n";
$msgtext .= "The following information was submitted:\n";
$msgtext .= "From Host: $ENV{'REMOTE_ADDR'}\n";
}

if ($fields{'outputfile'} ne "") {
&get_the_lock;
open(OUT_FILE,">>$fields{'outputfile'}");
}

foreach $to_print (@sortlist) {
if ($fields{'outputfile'} ne "")
{ print OUT_FILE "$fields{$to_print}\|"; }
if ($fields{'submit_to'} ne "")
{ $msgtext .= "$to_print = $fields{$to_print}\n"; }
}
if ($fields{'outputfile'} ne "") {
print OUT_FILE "$SD\|$ST\|\n";
close(OUT_FILE);
&drop_the_lock;
}

foreach $to_get (@recipients) {
$mailresult=&sendmail($fields{submit_by}, $fields{submit_by}, $to_get, $SMTP_SERVER, $fields{form_id}, $msgtext);
if ($mailresult ne "1") {
print "Content-type: text/html\n\n";
print "MAIL NOT SENT. SMTP ERROR: $mailcodes{'$mailresult'}\n";
exit
}
}
foreach $to_cc (@cc_tos) {
$mailresult=&sendmail($fields{submit_by}, $fields{submit_by}, $to_cc, $SMTP_SERVER, $fields{form_id}, $msgtext);
if ($mailresult ne "1") {
print "Content-type: text/html\n\n";
print "MAIL NOT SENT. SMTP ERROR: $mailcodes{'$mailresult'}\n";
exit
}
}

}

##################################################################
sub decode_vars
{
$i=0;
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs) {
($key,$content)=split(/=/,$item,2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$content=~s/\t/ /g;
$content=~s/\0//g; #strip nulls
$fields{$key}=$content;
if ($key eq "data_order") {
$content=~s/\012//g;
$content=~s/\015//g;
$content=~s/ //g;
$content=~s/ //g;
@sortlist=split(/,/,$content);
}
if ($key eq "required") {
$content=~s/\012//g;
$content=~s/\015//g;
$content=~s/ //g;
@mandatory=split(/,/,$content);
}
if ($key eq "submit_to") {
$content=~s/\012//g;
$content=~s/\015//g;
$content=~s/ //g;
@recipients=split(/,/,$content);
}
if ($key eq "cc_to") {
$content=~s/\012//g;
$content=~s/\015//g;
$content=~s/ //g;
@cc_tos=split(/,/,$content);
}

}
if (
( ($fields{automessage}=~ /^([-\/\w.]+)$/ || $fields{automessage} eq "") &&
($fields{countfile}=~ /^([-\/\w.]+)$/ || $fields{countfile} eq "") &&
($fields{emailfile}=~ /^([-\/\w.]+)$/ || $fields{emailfile} eq "") &&
($fields{outputfile}=~ /^([-\/\w.]+)$/ || $fields{outputfile} eq "") )
) {$donothing=0;}
else {
print "Content-type: text/html\n\n sorry, invalid characters...\n";
exit;
}
if ($fields{automessage} ne "") {$fields{automessage} .= ".baut";}
if ($fields{countfile} ne "") {$fields{countfile} .= ".bcnt";}
if ($fields{emailfile} ne "") {$fields{emailfile} .= ".bemf";}
if ($fields{outputfile} ne "") {$fields{outputfile} .= ".bout";}
}

##################################################################
sub valid_data
{
if ($fields{'data_order'} eq "") #make sure we have work to do!
{
print "Content-type: text/html\n\n";
print <<__W1__;

<H1>NO data_order list SPECIFIED!</H1>

__W1__
exit;
}

foreach $to_check (@mandatory) #test all required fields, bail on 1st bad
{
if ($fields{$to_check} eq "") {
if ($fields{'not_ok_url'} ne "") {
print "Location: $fields{'not_ok_url'}\n\n";
exit;
}
else { &try_again; }
}
}

}

##################################################################
sub thank_you
{
print "Content-type: text/html\n\n";
print <<__W2__;
<BODY BGCOLOR="#FFFFFF">
<CENTER>
<TABLE WIDTH=550 BORDER=1>
<TR>
<TD>
<H1>Thank you!</H1>
Your information has been sent and I will be in touch
with you as soon as I can
<P>
Here is the information you provided:
<P>
__W2__

foreach $itm (@sortlist) {
print <<__W2A__;
$itm: $fields{$itm}
<BR>
__W2A__
}

print <<__W2B__;
</TD>
</TR>
</TABLE>

__W2B__

exit;
}

##################################################################
sub try_again
{
print "Content-type: text/html\n\n";
print <<__W3__;

<H1>Missing Data!</H1>
<B>Please press the back button and fill in
all required fields!<P></B>

__W3__
exit;
}

##################################################################
sub answer_back
{

$subject = "Thank you";
$msgtext="";
if ($fields{'automessage'} ne "") {
open (AM,"< $fields{'automessage'}");
while (<AM>) {
chop $_;
$msgtext .= "$_\n";
}
close(AM);
}
else {
$msgtext =<<__W4__;

Thank you for your submission. I will be
getting in touch with you soon.

__W4__
}
$replyaddr=$recipients[0];
$mailresult=&sendmail($replyaddr, $replyaddr, $fields{submit_by}, $SMTP_SERVER, $subject, $msgtext);
}

##################################################################

sub get_number
{
$newnum=0;
open(COUNTER,"<$fields{'countfile'}");
while($thisnum=<COUNTER>) {
if ($thisnum eq "") { $thisnum = 0;}
$newnum = $thisnum + 1;
}
close(COUNTER);
open(COUNTER,">$fields{'countfile'}");
print COUNTER "$newnum";
close (COUNTER);
$fields{'counter'}=$newnum
}

##################################################################
sub valid_address
{
$testmail = $fields{'submit_by'};
if ($testmail =~/ /)
{ return 0; }
if ($testmail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
$testmail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/)
{ return 0; }
else { return 1; }
}

##################################################################
sub bad_email
{
print <<__STOP_OF_BADMAIL__;
Content-type: text/html

<FONT SIZE="+1">
<B>
SORRY! Your request could not be processed because of an
improperly formatted e-mail address. Please use your browser's
back button to return to the form entry page.
</B>
</FONT>
__STOP_OF_BADMAIL__
}

sub get_the_lock
{
local ($endtime);
$endtime = 60;
$endtime = time + $endtime;
while (-e $lockfile && time < $endtime)
{
# Do Nothing
}
open(LOCK_FILE, ">$lockfile");
}

sub drop_the_lock
{
close($lockfile);
unlink($lockfile);
}


##################################################################
sub valid_page
{
if (@okaydomains == 0)
{return;}
$DOMAIN_OK=0;
$RF=$ENV{'HTTP_REFERER'};
$RF=~tr/A-Z/a-z/;
foreach $ts (@okaydomains) {
if ($RF =~ /$ts/)
{ $DOMAIN_OK=1; }
}
if ( $DOMAIN_OK == 0) {
print "Content-type: text/html\n\n Sorry....Cant run from here!";
exit;
}
}


###################################################################
###################################################################
sub sendmail {

# error codes below for those who bother to check result codes <gr>

# 1 success
# -1 $smtphost unknown
# -2 socket() failed
# -3 connect() failed
# -4 service not available
# -5 unspecified communication error
# -6 local user $to unknown on host $smtp
# -7 transmission of message failed
# -8 argument $to empty
#
# Sample call:
#
# &sendmail($from, $reply, $to, $smtp, $subject, $message );
#
# Note that there are several commands for cleaning up possible bad inputs - if you
# are hard coding things from a library file, so of those are unnecesssary
#

my ($fromaddr, $replyaddr, $to, $smtp, $subject, $message) = @_;

$to =~ s/[ \t]+/, /g; # pack spaces and add comma
$fromaddr =~ s/.*<([^\s]*?)>/$1/; # get from email address
$replyaddr =~ s/.*<([^\s]*?)>/$1/; # get reply email address
$replyaddr =~ s/^([^\s]+).*/$1/; # use first address
$message =~ s/^\./\.\./gm; # handle . as first character
$message =~ s/\r\n/\n/g; # handle line ending
$message =~ s/\n/\r\n/g;
$smtp =~ s/^\s+//g; # remove spaces around $smtp
$smtp =~ s/\s+$//g;

if (!$to)
{
return(-8);
}

if ($SMTP_SERVER ne "")
{
my($proto) = (getprotobyname('tcp'))[2];
my($port) = (getservbyname('smtp', 'tcp'))[2];

my($smtpaddr) = ($smtp =~
/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
? pack('C4',$1,$2,$3,$4)
: (gethostbyname($smtp))[4];

if (!defined($smtpaddr))
{
return(-1);
}

if (!socket(MAIL, AF_INET, SOCK_STREAM, $proto))
{
return(-2);
}

if (!connect(MAIL, pack('Sna4x8', AF_INET, $port, $smtpaddr)))
{
return(-3);
}

my($oldfh) = select(MAIL);
$| = 1;
select($oldfh);

$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-4);
}

print MAIL "helo $SMTP_SERVER\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-5);
}

print MAIL "mail from: <$fromaddr>\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-5);
}

foreach (split(/, /, $to))
{
print MAIL "rcpt to: <$_>\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-6);
}
}

print MAIL "data\r\n";
$_ = <MAIL>;
if (/^[45]/)
{
close MAIL;
return(-5);
}

}

if ($SEND_MAIL ne "")
{
open (MAIL,"| $SEND_MAIL");
}

print MAIL "To: $to\n";
print MAIL "From: $fromaddr\n";
print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
print MAIL "X-Mailer: Perl Powered Socket Mailer\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message";
print MAIL "\n.\n";

if ($SMTP_SERVER ne "")
{
$_ = <MAIL>;
if (/^[45]/)
{
close(MAIL);
return(-7);
}

print MAIL "quit\r\n";
$_ = <MAIL>;
}

close(MAIL);
return(1);
}

sub sys_date
{
%mn = ('Jan','01', 'Feb','02', 'Mar','03', 'Apr','04',
'May','05', 'Jun','06', 'Jul','07', 'Aug','08',
'Sep','09', 'Oct','10', 'Nov','11', 'Dec','12' );
$sydate=localtime(time);
($day, $month, $num, $time, $year) = split(/\s+/,$sydate);
$zl=length($num);
if ($zl == 1)
{ $num = "0$num";}
$yyyymmdd="$year\-$mn{$month}\-$num";
return $yyyymmdd;
}


sub sys_time
{
$sydate=localtime(time);
($day, $month, $num, $time, $year) = split(/\s+/,$sydate);
return $time;
}
#--------DISCLAIMER-AND-COPYRIGHT-INFORMATION---------------------------#
# ANY SOFTWARE PROVIDED BY BIGNOSEBIRD.COM, INC. IS ``AS IS'' AND ANY
# EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BIGNOSEBIRD.COM, INC. OR
# ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
# USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
# THIS SCRIPT IS PROVIDED WITHOUT SUPPORT
#
# THIS SCRIPT IS FREEWARE AND CAN BE USED FOR BOTH COMMERCIAL AND
# NON-COMMERCIAL USE. REPUBLICATION OF THE SCRIPT REQUIRES OUR PERMISSION.
# webmaster\@bignosebird.com
#-----------------------------------------------------------------------#

This script applies to the following form:

CODE

<form METHOD="POST" ACTION="/cgi-bin/bnbform.cgi">
<pre>
<table border=0 cellpadding=0 style='margin-left:270px;margin-top:30px' colspan="2">
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your name</p>
</td>
<td width=5%></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="name" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>company name</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="company" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your email address</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="email" MAX SIZE="150">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your phone number</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="phone" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>your mobile number</p>
</td>
<td width="5%"></td>
<td width="60%">
<INPUT TYPE="text" SIZE="30" NAME="mobile" MAX SIZE="50">
</td>
</tr>
<tr><td></td></tr>
<tr>
<td width="20%">
<p style='font-family:"AvantGarde Bk BT"'>job description:</p>
<p style='font-family:"AvantGarde Bk BT"'>please include measurements
and specify materials where applicable</p>
</td>
<td width="5%"></td>
<td width="60%">
<TEXTAREA ROWS="10" COLS="50" NAME="description"></TEXTAREA>
</td>
</tr>
</table>
<p style='font-family:"AvantGarde Bk BT";margin-left:500px;margin-top:60px'>
<INPUT TYPE="submit" NAME="submit quote request"></p>
</pre>
<!-- SCRIPT CONFIGURATION SECTION -->
<INPUT TYPE="HIDDEN" NAME="data_order"
VALUE="name,company,email,phone,mobile,description">
<INPUT TYPE="HIDDEN" NAME="submit_to" VALUE="info@darcyengineering.com.au">
<INPUT TYPE="HIDDEN" NAME="outputfile" VALUE="form1">
<INPUT TYPE="HIDDEN" NAME="emailfile" VALUE="form1">
<INPUT TYPE="HIDDEN" NAME="form_id" VALUE="Website Quote Request">
<INPUT TYPE="HIDDEN" NAME="ok_url"
VALUE="http://www.darcyengineering.com.au/QuoteRequestReceived.html">
<!-- END OF SCRIPT CONFIGURATION SECTION -->
</form>

Thank you for looking at my very long question!

I apologise if any of my beginner code frusterated any of you - I promise I am looking into making it better!

Michelle

[Peter1968]

Silly question, but what do your logs say? If your host uses Cpanel or something similar, you should be able to see the error reason in the logs.

Failing that, telnet/SSH in to your host and run the script manually

CODE

perl /path/to/script

and yep, it's #!/usr/bin/perl

This post has been edited by Peter1968: Apr 23 2007, 01:43 AM

[michelle]

Hi Peter1968

Thanks for your reply

Silly question, but what do your logs say? If your host uses Cpanel or something similar, you should be able to see the error reason in the logs.

I am very new to all of this and am not sure what you mean by "logs", I have gone in and viewed my web stats on my hosting company which have told me the following, which may be useful:

HTTP Status codes
HTTP Status codes* Hits Percent Bandwidth
404 Document Not Found 486 92.3 % 163.43 KB
500 Internal server Error 20 3.8 % 12.30 KB
302 Moved temporarily (redirect) 10 1.9 % 3.48 KB
403 Forbidden 6 1.1 % 30.38 KB
206 Partial Content 4 0.7 % 24.99 KB

* Codes shown here gave hits or traffic "not viewed" by visitors, so they are not included in other charts.

and

Required but not found URLs (HTTP code 404)
URL (50) Error Hits Referrers
/Darcy%20Engineering%20Home_files/image001.jpg 184 -
/DOCUME~1/All%20Users/Documents/BUSINESS%20FILING/MASTERS/Website/Darcy%20Engineering%20Engraving_files/image001.jpg 66 -
/Darcy%20Engineering%20Engraving_files/image001.jpg 36 -
/Pattern_Making_files/image001.jpg 30 -
/DOCUME~1/DOCUME~1/All%20Users/Documents/BUSINESS%20FILING/MASTERS/Website/Darcy%20Engineering%20Engraving_files/image001.jpg 22 -
/Engraving_files/image001.jpg 20 http://www.darcyengineering.com.au/Engraving.htm
/DOCUME~1/All%20Users/Documents/BUSINESS%20FILING/MASTERS/Website/Published%20Site/Darcy%20Engineering%20Home_files/image001.jpg 12 -
/images/hex1.gif 11 http://www.darcyengineering.com.au
/index_files/image007.jpg 8 http://www.darcyengineering.com.au/
/robots.txt 7 -
/index_files/image002.png 7 -
/hostingwriting.css 6 http://www.darcyengineering.com.au/
/Engraving_files/image004.png 5 -
/Website_files/darcyengineering.png 5 http://www.darcyengineering.com.au
/Darcy%20Engineering%20Home_files/image002.png 5 -
/Engraving2.htm 5 -
/Engraving_files/image003.jpg 5 -
/Contact_Us_files/image001.jpg 4 http://www.darcyengineering.com.au/Contact_Us.htm
/html/AVANTGA2.eot 4 http://www.darcyengineering.com.au/engraving2.htm
/All%20Users/Documents/BUSINESS%20FILING/MASTERS/Website/index.htm 3 -
/default.htm 3 -
/_vti_bin/shtml.exe/_vti_rpc 2 -
/index_files/image001.jpg 2 http://www.darcyengineering.com.au
/www.darcyengineering.com.au/cgi-bin/requestquoteform.cgi 2 http://www.darcyengineering.com.au/RequestQuote.html
/_vti_inf.html 2 -
/index.htm 2 -
/images/hex0.gif 2 http://www.darcyengineering.com.au
/Darcy%20Engineering%20Home_files/image005.emz 2 -
/Engraving_files/image003.png 2 -
/admin 2 -
/homw.htm 1 -
/Engraving.html 1 -
/Pattern_Making_files/image003.png 1 -
/MSOffice/cltreq.asp 1 -
/engraving_files/brass_plaque.jpg 1 -
/Engraving_files/image006.png 1 -
/Pattern_Making_files/image002.png 1 -
/Engraving_files/image005.png 1 -
/Website_files/brass_plaque1.jpg 1 -
/RequestQuote.htm 1 -
/html 1 -
/_vti_bin/owssvr.dll 1 -
/homelogo 1 -
/_vti_log 1 -
/Pattern_Making.htm 1 -
/Website_files/brass_plaque.jpg 1 -
/Engraving.html) 1 http://forums.htmlhelp.com/index.php
/Darcy%20Engineering%20Home_files/image008.png 1 -
/font/AVANTGA0.eot 1 http://www.darcyengineering.com.au/Dies_and_Stamps2.htm
/Darcy%20Engineering%20Home_files/image002.emz 1 -

A lot of this looks to me to be errors I encountered when first uploading my website onto my hosting server, and I don't think it says much about whats going on with my script?

Failing that, telnet/SSH in to your host and run the script manually

CODE

perl /path/to/script

I am afraid I don't really know what you mean here - it seems a little out of my league, is there an online tutorial that may help me out?

Thanks again for your reply, I am sorry for my lack of knowledge in these things, but I am trying to learn!

Michelle

[michelle]

Hi

I seem to have fixed the problem by giving up on cgi and switching to a php script that I found on

http://www.thesitewizard.com

It seems to be working and I've had some mates test it for me, so for any newbies like me out there having trouble with your forms I recommend this - unless there are any problems with php scripting that I don't know about?

Thanks

Michelle