)) / 4);
close(LOCFILE);
}
unless ($querydate) {
$rootnum = $num;
$rootdate = $gmt_epoch;
$HEADER{"Root MessageID"} = $rootnum;
$HEADER{"Root Date"} = $rootdate;
}
}
###############
# Get Variables
sub get_variables {
# Follow-up variables
if ($FORM{'rootnum'}) {
$rootnum = $FORM{'rootnum'};
$rootdate = $FORM{'rootdate'};
$HEADER{"Root MessageID"} = $rootnum;
$HEADER{"Root Date"} = $rootdate;
if (($rootdate + $expire_time * 3600) < $gmt_epoch) { &error(too_old); }
}
# Get name
if ($FORM{'name'}) {
$name = "$FORM{'name'}";
$name =~ s/"//g;
$name =~ s///g;
$name =~ s/\&//g;
}
else {
&error(no_name);
}
# Load message (if clicked)
if ($FORM{'submit'} eq "Load") {
&load_message;
&error(loaded);
}
# Quote message (if clicked)
if ($FORM{'submit'} eq "Quote") {
"e_message;
&error(quoted);
}
# Get e-mail
if ($FORM{'email'} =~ /\@.*\./) {
$email = $FORM{'email'};
}
# Check if the author of this message wants e-mail responses
if ($FORM{'mailto'}) {
$mailto = $FORM{'mailto'};
}
# Correct/add SpellCheck words
foreach $formkey (keys %FORM) {
if ($formkey =~ /spellcheck-(.*)/) {
$word = $1;
unless ($FORM{$formkey} eq "+") {
$FORM{'body'} =~ s/>$word$FORM{$formkey}$word([^\w<>=\"])/>$FORM{$formkey}$1/g;
$FORM{'body'} =~ s/([^\w<>=\"])$word=\"])/$FORM{$formkey}$1/g;
$FORM{'body'} =~ s/([^\w<>=\"])$word$/$1$FORM{$formkey}/g;
$FORM{'body'} =~ s/([^\w<>=\"])$word([^\w<>=\"])/$1$FORM{$formkey}$2/g;
$FORM{'body'} =~ s/([^\w<>=\"])$word([^\w<>=\"])/$1$FORM{$formkey}$2/g;
}
else {
$soundex = uc(substr($word,0,1));
$soundexnum = lc(substr($word,1));
$soundexnum =~ s/[aehiouwy]//g;
$soundex = $soundex.uc(substr($soundexnum,0,1));
$soundexnum =~ tr/bfpv/1/;
$soundexnum =~ tr/cgjkqsxz/2/;
$soundexnum =~ tr/dt/3/;
$soundexnum =~ tr/l/4/;
$soundexnum =~ tr/mn/5/;
$soundexnum =~ tr/r/6/;
$soundex = $soundex.substr($soundexnum,1,2).uc(substr($word,-1,1));
open(DICTIONARY,">>$basedir/$slangfile") || &tech_error("Can't append to slang dictionary file, $basedir/$slangfile!");
print DICTIONARY "$word=$soundex\n";
close(DICTIONARY);
}
}
}
# Filter words
if ($use_filter) {
foreach $word (keys %filter) {
$word_lower = $word;
$word_lower =~ tr/A-Z/a-z/;
$word_lower =~ tr/À-Ö/à-ö/;
$word_lower =~ tr/Ù-Ý/ù-ý/;
$word_upper = $word;
$word_upper =~ tr/a-z/A-Z/;
$word_upper =~ tr/à-ö/À-Ö/;
$word_upper =~ tr/ù-ý/Ù-Ý/;
$word_capital = substr($word_upper, 0, 1).substr($word_lower, 1);
$replace_lower = $filter{$word};
$replace_lower =~ tr/A-Z/a-z/;
$replace_lower =~ tr/À-Ö/à-ö/;
$replace_lower =~ tr/Ù-Ý/ù-ý/;
$replace_upper = $filter{$word};
$replace_upper =~ tr/a-z/A-Z/;
$replace_upper =~ tr/à-ö/À-Ö/;
$replace_upper =~ tr/ù-ý/Ù-Ý/;
$replace_capital = substr($replace_upper, 0, 1).substr($replace_lower, 1);
$FORM{'subject'} =~ s/\Q$word_lower/$replace_lower/g;
$FORM{'subject'} =~ s/\Q$word_upper/$replace_upper/g;
$FORM{'subject'} =~ s/\Q$word_capital/$replace_capital/g;
$FORM{'subject'} =~ s/\Q$word/$filter{$word}/gi;
$FORM{'body'} =~ s/\Q$word_lower/$replace_lower/g;
$FORM{'body'} =~ s/\Q$word_upper/$replace_upper/g;
$FORM{'body'} =~ s/\Q$word_capital/$replace_capital/g;
$FORM{'body'} =~ s/\Q$word/$filter{$word}/gi;
$FORM{'spoilbody'} =~ s/\Q$word_lower/$replace_lower/g;
$FORM{'spoilbody'} =~ s/\Q$word_upper/$replace_upper/g;
$FORM{'spoilbody'} =~ s/\Q$word_capital/$replace_capital/g;
$FORM{'spoilbody'} =~ s/\Q$word/$filter{$word}/gi;
}
}
# Subjectline
$FORM{'subject'} = substr($FORM{'subject'}, 0, $subjectline_length);
$FORM{'subject'} =~ s/\s*$//g;
if ($FORM{'subject'}) {
$subject = "$FORM{'subject'}";
$subject =~ s/&/&/g;
$subject =~ s/"/"/g;
$subject =~ s//>/g;
$subject =~ s/ / /g;
$subject =~ s/ / /g;
}
else {
&error(no_subject);
}
if ($subject =~ /(.*)[\(\*\-\/\\]nt[\\\/\-\*\)]$/i) {
$subject = $1;
$subject =~ s/\s*$//g;
$FORM{'msgtags'} = "N";
}
if ($FORM{'submit'} eq "*nt*") { $FORM{'msgtags'} = "N"; }
# Optional link
if ($FORM{'url'} =~ /\:.+\..+\// && $FORM{'url_title'}) {
$message_url = "$FORM{'url'}";
$message_url =~ s///g;
$message_url_title = "$FORM{'url_title'}";
$message_url_title =~ s///g;
}
# Optional image
if ($FORM{'img'} =~ /\:.+\..+\// && $use_html >= 2) {
$message_img = "$FORM{'img'}";
$message_img =~ s///g;
}
# Background
if ($FORM{'bgtype'}) {
$bgtype = "$FORM{'bgtype'}";
}
# Message tags
if ($FORM{'msgtags'}) {
$msgtag = "$FORM{'msgtags'}";
}
# Game/Section information
if ($FORM{'section'}) {
$section = "$FORM{'section'}";
$section =~ s///g;
}
if ($msgtag eq "N") {
if ($message_url && $message_img) { $section = "Link/Image Inside" }
elsif ($message_url) { $section = "Link Inside" }
elsif ($message_img) { $section = "Image Inside" }
else { undef $section; }
}
# Message/spoiler body
$FORM{'body'} =~ s/^[\s\n]*$//g;
$FORM{'spoilbody'} =~ s/^[\s\n]*$//g;
unless ($use_html) {
$FORM{'body'} =~ s/<(.*?)>/$1/g;
$FORM{'spoilbody'} =~ s/<(.*?)>/$1/g;
}
elsif ($use_html == 1) {
$FORM{'body'} =~ s/<[\s]*IMG(.*?)>//gi;
$FORM{'body'} =~ s/<[\s]*EMBED(.*?)>//gi;
$FORM{'body'} =~ s/<[\s]*[\/]?TABLE(.*?)>//gi;
$FORM{'body'} =~ s/<[\s]*[\/]?T[DHR](.*?)>//gi;
$FORM{'spoilbody'} =~ s/<[\s]*IMG(.*?)>//gi;
$FORM{'spoilbody'} =~ s/<[\s]*EMBED(.*?)>//gi;
$FORM{'spoilbody'} =~ s/<[\s]*[\/]?TABLE(.*?)>//gi;
$FORM{'spoilbody'} =~ s/<[\s]*[\/]?T[DHR](.*?)>//gi;
}
elsif ($use_html == 2) {
$FORM{'body'} =~ s/<[\s]*[\/]?TABLE(.*?)>//gi;
$FORM{'body'} =~ s/<[\s]*[\/]?T[DHR](.*?)>//gi;
$FORM{'spoilbody'} =~ s/<[\s]*[\/]?TABLE(.*?)>//gi;
$FORM{'spoilbody'} =~ s/<[\s]*[\/]?T[DHR](.*?)>//gi;
}
if ($FORM{'body'}) {
$body = "$FORM{'body'}";
$body =~ s/\cM//g;
if ($FORM{'convert_html'} || !($use_html)) {
$body =~ s/\n\n//g;
$body =~ s/\n/
/g;
$spoilbody =~ s/\n/;
close(BANLIST);
foreach $ban_line (@banlist) {
if ($ban_line =~ /^(.+?)\s.*$/) {
$regexpr = $1;
$regexpr =~ s/^\s*//g;
$regexpr =~ s/\s*$//g;
$regexpr =~ s/\./\\\./g;
$regexpr =~ s/\*/\.\+/g;
$regexpr = "^".$regexpr."\$";
if ($remotehost =~ /$regexpr/) {
&unlock_datefile(&convert_date($gmt_epoch, " 0000", 0).".loc");
&error(banned);
}
elsif ($ENV{'REMOTE_ADDR'} =~ /$regexpr/) {
&unlock_datefile(&convert_date($gmt_epoch, " 0000", 0).".loc");
&error(banned);
}
elsif ($ENV{'HTTP_X_FORWARDED_FOR'} =~ /$regexpr/) {
&unlock_datefile(&convert_date($gmt_epoch, " 0000", 0).".loc");
&error(banned);
}
}
}
}
################
# Spell Checker!
sub spell_check {
if ($dictionaryfile =~ /\.bz2$/) { open(DICTIONARY,"/usr/bin/bzip2 -cd $basedir/$dictionaryfile |") || &tech_error("Can't unbzip and/or read dictionary file $basedir/$dictionaryfile!"); }
elsif ($dictionaryfile =~ /\.gz$/) { open(DICTIONARY,"/bin/gzip -cd $basedir/$dictionaryfile |") || &tech_error("Can't ungzip and/or read dictionary file $basedir/$dictionaryfile!"); }
else { open(DICTIONARY,"$basedir/$dictionaryfile") || &tech_error("Can't read dictionary file $basedir/$dictionaryfile!"); }
@dictionary = split(/\n/,join('',));
close(DICTIONARY);
foreach $wordpair (@dictionary) {
($word,$soundex) = split(/=/,$wordpair);
$dictionary{$word} = $soundex;
$soundex{$soundex} = $soundex{$soundex}.$word." ";
}
open(DICTIONARY,"$basedir/$slangfile");
@dictionary = split(/\n/,join('',));
close(DICTIONARY);
foreach $wordpair (@dictionary) {
($word,$soundex) = split(/=/,$wordpair);
$dictionary{$word} = $soundex;
$soundex{$soundex} = $soundex{$soundex}." ".$word;
}
$wordbody = $FORM{'body'};
$wordbody =~ s/\n/ /g;
$wordbody =~ s/<(.*?)>//g;
$wordbody =~ s/\.\.\./ /g;
$wordbody =~ s/\-/ /g;
$wordbody =~ s/[^\w\s]//g;
$wordbody =~ s/\d//g;
$wordbody =~ s/\_//g;
$wordbody =~ s/[\s]+/ /g;
$wordbody =~ s/^[\s]+//g;
@words = split(/ /,$wordbody);
foreach $word (@words) {
$soundex = uc(substr($word,0,1));
$soundexnum = lc(substr($word,1));
$soundexnum =~ s/[aehiouwy]//g;
$soundex = $soundex.uc(substr($soundexnum,0,1));
$soundexnum =~ tr/bfpv/1/;
$soundexnum =~ tr/cgjkqsxz/2/;
$soundexnum =~ tr/dt/3/;
$soundexnum =~ tr/l/4/;
$soundexnum =~ tr/mn/5/;
$soundexnum =~ tr/r/6/;
$soundex = $soundex.substr($soundexnum,1,2).uc(substr($word,-1,1));
$words{$word} = $soundex;
}
foreach $msgword (keys %words) {
if ($dictionary{lc($msgword)}) {
next;
}
unless ($dictionary{$msgword}) {
$selectline = "$msgword";
$soundex{$words{$msgword}} =~ s/^[\s]+//g;
foreach $dictword (split(/ /,$soundex{$words{$msgword}})) {
if (lc($dictword) eq $msgword) {
$selectline = "$msgword $dictword";
last;
}
elsif ($dictword eq lc($dictword) && $msgword eq uc($msgword)) {
$selectline = $selectline." ".uc($dictword);
}
elsif ($dictword eq lc($dictword) && $msgword eq ucfirst($msgword)) {
$selectline = $selectline." ".ucfirst($dictword);
}
else {
$selectline = $selectline." $dictword";
}
}
$selectline = $selectline." *Add* \n$footerbody";
if ($use_backgrounds) { $j = $bgcolor[$bgtype]; } else { $j = $bgcolor; }
if ($spoilbody) { $spoilbody = "$mesgfont\"$spoilbody \""; }
print "Content-type: text/html; charset=$charset\n\n";
print "\n";
print "
\n";
print " View Your Message \n";
print "\n";
if ($use_backgrounds) {
print "
\n";
}
elsif ($standardbg) {
print "
\n";
}
else {
print "
\n";
}
print "$header\n";
print "$headerfontView Your Message \n";
print "$forumline
\n";
print "This is your message. If you have an error, make your changes below. Any words you select from the SpellCheck will be changed on the next preview, so you don't need to worry about changing them in the message box.
\n";
print "
\n";
&print_credits;
}
#!/usr/bin/perl
##############################################################################
# RPGBoard Message Header Display version 2.10a #
# Copyleft 1999 Brendan Byrd and Resonator Software #
# Contact me at: sineswiper@resonatorsoft.com #
##############################################################################
$SIG{__DIE__} = \&tech_error;
sub tech_error {
print "Content-type: text/plain; charset=$charset\n\n";
print "ERROR: $_[0]";
exit;
}
for $j ("rpgvariables.h", "rpgglobal.h", "rpgheaders.h") {
unless ($k = do $j) {
&tech_error("Couldn't parse $j: $@") if $@;
&tech_error("Couldn't do $j: $!") unless defined $k;
}
}
if ($COOKIE{'Name'}) { $name = $COOKIE{'Name'}; }
&get_default;
&get_master_default;
if ($FORM{'expire'}) { $expire_time = $FORM{'expire'} }
print "Content-type: text/html; charset=$charset\n\n";
print "$forumline\n";
if ($name) {
print "$rpgheadersfont$name on ".&convert_date($gmt_epoch, $timezone, $datemode."0");
if ($masterpassword eq crypt("password", "8e")) { print "Change the master default password! "; }
print "\n";
print "\n";
print " \n";
&print_credits;
exit;
##############################################################################
# RPGBoard Errors version 2.10a #
# Copyleft 1999 Brendan Byrd and Resonator Software #
# Contact me at: sineswiper@resonatorsoft.com #
##############################################################################
sub error {
$error = $_[0];
print "Content-type: text/html; charset=$charset\n\n";
if ($error eq 'no_name') {
print "\n";
print "
\n";
print " Name Needed \n";
print "\n";
print "
\n";
print "$header\n";
print "".$headerfont."No Name
\n";
print "You forgot to fill in the 'Name' field in your posting. Correct it below and re-submit. The necessary fields are Name and Subject.
\n";
if ($ENV{'SCRIPT_NAME'} eq $rpgboard_uri) {
print "$forumline\n";
print "