#!/bin/perl
require "config";
use lib '../..';
use CGI;
$query = new CGI;
if (!($qstring = $query->param('keywords'))) {
&show_threads;
}
else {
($threadnum, $postnum, $confirm) = split(/,/,$qstring,3);
if ($postnum || ($postnum eq '0')) {
if ($confirm eq 'y') {
&remove_message;
}
elsif ($confirm eq 'n') {
print "Location: $base_url/ADMIN/removepost.cgi\n\n";
}
else {
&ask_for_confirmation;
}
}
else {
&show_messages;
}
}
###
sub show_threads {
open(LOCK,"../list.lock"); flock(LOCK,2);
open(DATABASE,"$main_thread_file") || die;
print "Cache-Control: no-cache\nPragma: no-cache\nContent-type: text/html\n\nRemove a MessageBack to AdministrationRemove a Message
Click on the thread that contains the message you want to remove:
";
# get, print $listlength threads
while() {
chop;
($num,$title,$author,$email,$date_mod,$replies,$last_mod,
$mod_val,$mod_num) = split(/\t/);
if (!$mod_val) {
$date = &date_format($date_mod);
$last = &date_format($last_mod);
print "$num $date $title - $author [ $replies - $last ]
\n";
}
}
print "";
flock(LOCK,8);
close(DATABASE);
}
sub remove_message {
open(LOCK,"../list.lock"); flock(LOCK,2);
open(BAK,">$main_thread_file.bak") || die;
open(THREADFILE,"../DATA/$threadnum.th") || die;
$x = 0;
while() {
if ($postnum != $x) {
print BAK;
}
$x++;
}
open(BAK,"../DATA/main.th.bak") || die;
open(THREADFILE,">../DATA/$threadnum.th") || die;
select(THREADFILE); $| = 1; select(STDOUT);
while() {
print THREADFILE;
}
open(BAK,">../DATA/main.th.bak") || die;
open(MAINFILE,"$main_thread_file") || die;
while() {
if (/^$threadnum\t/) {
($thread_num_new,$title,$author,$email,$date_1,$replies,$date_2,
$mod_val,$mod_num) = split(/\t/,$_,9);
if ($postnum != 0) {
$replies--;
print BAK "$thread_num_new\t$title\t$author\t$email\t$date_1\t$replies\t$date_2\t$mod_val\t$mod_num";
}
elsif ($replies != 0) {
print BAK "$thread_num_new\t$title\t$author\t$email\t$date_1\t$replies\t$date_2\t$mod_val\t$mod_num";
}
}
else {
print BAK;
}
}
open(BAK,"../DATA/main.th.bak") || die;
open(MAINFILE,">$main_thread_file") || die;
select(MAINFILE); $| = 1; select(STDOUT);
while() {
print MAINFILE;
}
flock(LOCK,8);
print "Location: $base_url/ADMIN/removepost.cgi\n\n";
}
sub ask_for_confirmation {
open(THREADFILE,"../DATA/$threadnum.th") || die;
$x = 0;
while() {
($title,$author,$email,$date_sec,$mod_val,$post)
= split(/\t/,$_,6);
if (!$mod_val) {
if ($postnum == $x) {
$date = &date_format($date_sec);
last;
}
$x++;
}
}
print "Content-type: text/html\n\n";
print <Remove a Message
Are you sure you want to remove this message?
| Title: | $title
|
| Name: | $author $email
|
| Date: | $date
|
Message:
$post
Yes
No