#!/usr/bin/perl
##############################################################################
# WWWBoard Admin 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
require 'setup.lib';
require 'cookie.lib';
require 'html.lib';
$cgi_url = $ENV{'SCRIPT_NAME'};
if ($ENV{'QUERY_STRING'} ne '') {
$command = "$ENV{'QUERY_STRING'}";
}
else {
&parse_form;
}
print "Content-type: text/html\n\n";
###########################################################################
# Remove #
# This option is useful to see how the threads appear in the #
# wwwboard.html document. It can give you a better idea of whether or #
# not you want to remove the whole thread or just part of it. #
###########################################################################
if ($command eq 'remove') {
print "$title - Remove Messages\n";
print "$bodycolor$title - Remove Messages
\n";
print "\n";
print "$msg_separator\n";
print "[ Remove | Remove by Date | Remove by Author | Remove by Message Number]\n";
print "$msg_separator
\n";
print "Select those postings you wish to remove. \n";
print "Checking the Input Box on the left will remove the whole thread\n";
print "while checking the Input Box on the right to remove just that posting.
\n";
print "These messages have been left unsorted, so that you can see the order in\n";
print "which they appear in the $mesgpage page. This will give you an idea of\n";
print "what the threads look like and is often more helpful than the sorted method.\n";
print "
\n";
print "\n";
print "