Hi everyone,
Can anyone please tell me what's wrong with this code?
When I try to submit the form, it just reloads the page.
It never gets to the "sub addreport"
Thanks so much.
#!/usr/bin/perl
# Locate and load required files
eval {
# Get the script location (for UNIX and Windows)
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
# Get the script location (for Windows)
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");
# Load files
require "settings.cgi";
require "common.sub";
};
# Read the form
&readform;
&reportit;
########################### SUBROUTINES ###########################
# Display new member registration form
sub reportit {
# Load common vocabulary
require "$tmplpath/common.txt";
# Load Registration Form template
require "$tmplpath/reportit.tmpl";
# Smut filter indicator
$showsmutswitch = "<a
href=\"javascript:popup('$scripturl/members.cgi?action=showsmut')\">$commonv
oc[35]</a>$commonvoc[36]" if $badwords;
# Registration Form
$FORM_SUB = qq(<SCRIPT LANGUAGE="JavaScript">
<!-- Hide from non-JavaScript browsers
function Check_Data() {
if (!document.adform.name.value || !document.adform.email.value ||
!document.adform.title.value ||
!document.adform.description.value) {
alert("$commonvoc[30]");
return false;
} else {
return true;
}
}
function popup(url)
{
newwindow=window.open(url,'name','height=200,width=300,scrollbars');
if (window.focus) {newwindow.focus()}
}
// Stop hiding --->
</SCRIPT>
<div align="center">
<h3><font face="$fontname" size="$fontsize"><b>$tempvoc[0]</b></font></h3>
<form method="post" action="$scripturl/reportit.cgi" name="adform"
onSubmit="return Check_Data();">
<input type="hidden" name="action" value="addreport">
<table width="$tablewidth" border="0" cellspacing="1" cellpadding="3">
<tr>
<td bgcolor="$headcolor" colspan="2"><font face="$sfontname"
size="$sfontsize">$tempvoc[1]</font></td>
</tr>
<tr bgcolor="$primcolor">
<td><font face="$fontname"
size="$fontsize"><b>$commonvoc[66]*</b></font></td>
<td>
<input type="text" name="name" maxlength="35" size="30">
</td>
</tr>
<tr bgcolor="$seconcolor">
<td><font face="$fontname"
size="$fontsize"><b>$commonvoc[67]*</b></font></td>
<td>
<input type="text" name="email" maxlength="50" size="30">
</td>
</tr>
<tr bgcolor="$seconcolor">
<td><font face="$fontname"
size="$fontsize"><b>$commonvoc[68]*</b></font></td>
<td bgcolor="$seconcolor">
<input type="text" name="title" maxlength="100" size="30">
</td>
</tr>
<tr bgcolor="$primcolor">
<td><font face="$fontname"
size="$fontsize"><b>$commonvoc[69]*</b></font></td>
<td>
<textarea NAME="description" WRAP="virtual" ROWS="6"
COLS="40"></textarea>
</td>
</tr>
<tr>
<td bgcolor="$headcolor" colspan="2"><font face="$sfontname"
size="$sfontsize">$commonvoc[21] $showsmutswitch</font></td>
</tr>
</table>
<br>
<input type="submit" name="submit" value="$commonvoc[24]">
<input type="button" name="cancel" value="$commonvoc[26]"
onClick="history.back()">
<br>
</form>
</div>);
# Perform template substitutions
$temphtml =~ s/\{FORM\}/$FORM_SUB/g;
# Display the screen
&showscreen;
}
# Add new member to the database
sub addreport {
# Check referring URL
&urlcheck;
# Check form fields
if ($FORM{'name'} !~ /\S/) {
push(@badfields, 3);
}
if ($FORM{'email'} !~ /[\w\-]+\@[\w\-]+\.[\w\-]+/) {
push(@badfields, 4);
}
if ($FORM{'title'} !~ /\S/) {
push(@badfields, 6);
}
if ($FORM{'description'} !~ /\S/) {
push(@badfields, 7);
}
# Display errors, if any
&formerror;
# Block Checker
&blocker($ENV{'REMOTE_ADDR'}, "IP Address",
$FORM{'email'}, "E-Mail Address");
# Check for bad/rude words
&smut_detect($FORM{'name'},$FORM{'email'},$FORM{'title'},$FORM{'description'
});
# Strip html tags
&htmlstrip($FORM{'name'},$FORM{'email'},$FORM{'title'},$FORM{'description'})
;
# Get current time
$curtime = time();
# Add member to the waiting list
open(RLIST,">>$membpath/reportit.cgi") || err("Could not update
reportit.cgi: $!");
flock(RLIST,2);
seek(RLIST,0,2);
print RLIST
"$ENV{'REMOTE_ADDR'}\t$curtime\t$FORM{'name'}\t$FORM{'email'}\t$FORM{'title'
}\t$FORM{'description'}\n";
close(RLIST);
# Notify administrator of new application
if ($regadmin) {
$msgtext = "$FORM{'name'} has just applied to register with
your Top
Sites script!\n".
"-----------------------------------------------------------------------\n\n
".
"Note: this message was generated by Top Sites
script.\n".
"You can turn this notification off by adjusting
the script
options.\n";
&sendmail($adminemail, $adminemail, "New Top Sites membership
application!", $msgtext);
}
# Send Waiting Approval Message
if ($appuseremail) {
$appmsg =~ s/\[name\]/$FORM{'name'}/g;
$appmsg =~ s/\[email\]/$FORM{'email'}/g;
$appmsg =~ s/\[title\]/$FORM{'title'}/g;
&sendmail($adminemail, $FORM{'email'}, $appsubject,
$appmsg);
}
# Show Success Screen
&confirm(14,8,"$scripturl/index.cgi");
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
