;
close(NUMBER);
($num,$holdate) = split(/:/,$numdate); # split out number and month
chop $holdate; # get rid of \n
$num++; # increment number
$num = "1" if ($num == 99999); # reset if 99,999
$change_month = 1 if ($month ne $holdate); # new month check, set flag
open(NUM,">$basedir/$datafile") || die $!;
print NUM "$num:$month\n"; # write out nbr and month
close(NUM);
}
#######################
# Parse Form Subroutine
sub parse_form {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
# if($FORM{'action'} ne "post")
# {
if ($allow_html != 1)
{ $value =~ s/<([^>]|\n)*>//g;}
else
{
unless ($name eq 'body')
{ $value =~ s/<([^>]|\n)*>//g;}
}
# }
$FORM{$name} = $value;
}
}
###############
# Get Variables
sub get_variables {
$error_indic = 0;
$followup = "0";
if ($FORM{'followup'})
{
$followup = "1";
@followup_num = split(/,/,$FORM{'followup'});
$num_followups = @followups = @followup_num;
$last_message = pop(@followups);
$origdate = "$FORM{'origdate'}";
$origname = "$FORM{'origname'}";
$origsubject = "$FORM{'origsubject'}";
}
$name = "$FORM{'name'}";
$name =~ s/"//g;
$name =~ s///g;
$name =~ s/\&//g;
$error_indic = 1 if (!$name); # NO NAME
$subject = "$FORM{'subject'}";
$subject =~ s/\&/\&\;/g;
$subject =~ s/"/\&qout\;/g;
$error_indic = 1 if (!$subject); # NO SUBJECT
#
# change - it checked for URL and title, make it check
# for URL, and make title = URL if it is missing
# Also, must start with "http://"
if ($FORM{'url'} =~ /^http\:\/\/.*\..*/i )
{
$message_url = "$FORM{'url'}";
if ($FORM{'url_title'}) { # is there a title?
$message_url_title = "$FORM{'url_title'}"; # yes
} else {
$message_url_title = " $FORM{'url'}"; # no title
}
}
# Check for entry, but bad format. Error.
if ($FORM{'url'} && $FORM{'url'} !~ /^http:\/\/.*\..*/i)
{$error_indic = 1;}
# Check for entry, but bad format. Error.
if ($FORM{'img'} && $FORM{'img'} !~ /^http:\/\/.*\..*/i)
{$error_indic = 1;}
else{$message_img = "$FORM{'img'}";}
if ($FORM{'body'})
{
$body = "$FORM{'body'}";
$body =~ s/\cM//g;
$body =~ s/&/\&/g; # ampersand
$body =~ s/<//g; # by changing "<" and ">"
$body =~ s/"/\"/g; # and quote
$body =~ s/\n\n//g; # change two returns into
$body =~ s/\n/
/g; # change one return into
}
else {$error_indic = 1;} # NO MESSAGE
if ($quote_text == 1){
$hidden_body = "$body";
$hidden_body =~ s/>/>/g;
$hidden_body =~ s/$basedir/$mesgdir/$num\.$ext") || die $!;
#### CHANGE to set file permissions to "664" and lock access #####
flock(NEWFILE,2); # lock the file
$Filenew = "$basedir/$mesgdir/$num\.$ext";
chmod 0664, $Filenew;
### ####################
print NEWFILE "\n";
print NEWFILE "
\n";
print NEWFILE "$subject\n";
print NEWFILE "\n";
print NEWFILE "\n";
print NEWFILE "\n";
print NEWFILE "\n";
print NEWFILE "$subject
\n";
print NEWFILE "\n";
print NEWFILE "
\n";
if ($show_faq) {
print NEWFILE "
[ Follow Ups ]
[ Post Followup ]
[ Go To $title ]
[ FAQ ]
\n";
}
else {
print NEWFILE "
[ Follow Ups ]
[ Post Followup ]
[ Go To $title ]
\n";
}
print NEWFILE "
\n";
print NEWFILE "Posted by ";
if ($email) {
print NEWFILE "$name on $long_date:
\n";
}
else {
print NEWFILE "$name on $long_date:
\n";
}
if ($followup == 1) {
print NEWFILE "In Reply to: $origsubject posted by ";
if ($origemail) {
print NEWFILE "$origname on $origdate:
\n";
}
else {
print NEWFILE "$origname on $origdate:
\n";
}
}
if ($message_img) {
print NEWFILE "
![](\"$message_img\")
\n";
}
print NEWFILE "$body\n";
print NEWFILE "
\n";
if ($message_url) {
print NEWFILE "
\n";
}
print NEWFILE "
\n";
print NEWFILE "Follow Ups:
\n";
print NEWFILE "
\n";
print NEWFILE "
\n";
print NEWFILE "Post a Followup
\n";
#### --- The next line does a post to "../wwwboard.cgi" to
# back up out of the messages directory
print NEWFILE "