[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl-WebCGI] Quoting body from a WWWboard posting



This is the same question I submitted incorrectly to macperl-porters, 
thinking that was the place for an issue of translating PERL code 
that works correctly on Unix to Macperl.

The script is by Matt Wright, "WWWboard". The problem has to do with 
getting the body of a previous posting quoted properly in a followup 
posting.

This is the code I thought I had identified as containing the 
problem, but one of my kind responders said I might need to post more 
code.

if ($quote_text == 1) {
       @chunks_of_body = split(/\&lt\;p\&gt\;/,$hidden_body);
       foreach $chunk_of_body (@chunks_of_body) {
          @lines_of_body = split(/\&lt\;br\&gt\;/,$chunk_of_body);
          foreach $line_of_body (@lines_of_body) {
             print NEWFILE ": $line_of_body\n";
          }
          print NEWFILE "\n";
       }
    }

The split function never seems to find any &lt etc., or insert any 
colons, except at the beginning of the text.

$hidden_body is set to $body when the posting is to contain a quote. 
$body comes from what someone has typed into a TEXTAREA on the 
previous posting. Here is the beginning of the program, as modified 
by me:

#!/usr/local/bin/perl
##############################################################################
# WWWBoard                      Version 2.0 ALPHA 2                          #
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 10/21/95              Last Modified 11/25/95                       #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# WWWBoard 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 it's 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.#
##############################################################################
# Define Variables

$basedir = "WebServer 6gig:Web Site:WebSTAR Folder:wwwboard";
$baseurl = "http://www.draco.com/wwwboard";
$cgi_url = "http://www.draco.com/cgi-bin/wwwboard.cgi";

$mesgdir = "messages";
$datafile = "data.txt";
$mesgfile = "wwwboard.html";
$faqfile = "faq.html";

$ext = "html";

$title = "Draco Casablanca Dealers Forum";

# Done
###########################################################################

###########################################################################
# Configure Options

$show_faq = 1;		# 1 - YES; 0 = NO
$allow_html = 1;	# 1 = YES; 0 = NO
$quote_text = 1;	# 1 = YES; 0 = NO
$subject_line = 0;	# 0 = Quote Subject Editable; 1 = Quote Subject
			#   UnEditable; 2 = Don't Quote Subject, Editable.
$use_time = 1;		# 1 = YES; 0 = NO

# Done
###########################################################################

# Get the Data Number
&get_number;

# Get Form Information
&parse_form;

# Put items into nice variables
&get_variables;

# Open the new file and write information to it.
&new_file;

# Open the Main WWWBoard File to add link
&main_page;

# Now Add Thread to Individual Pages
if ($num_followups >= 1) {
    &thread_pages;
}

# Return the user HTML
&return_html;

# Increment Number
&increment_num;

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org