#!/bin/perl
require "config";
use lib '../..';
use CGI;
$query = new CGI;
if (!($qstring = $query->param('keywords'))) {
&list_threads;
}
else {
($threadnum, $confirm) = split(/,/,$qstring,2);
if ($confirm eq 'y') {
&delete_thread;
}
elsif ($confirm eq 'n') {
print "Location: $base_url/ADMIN/removethread.cgi\n\n";
}
else {
&ask_for_confirmation;
}
}
###
sub list_threads {
open(LOCK,"../list.lock"); flock(LOCK,2);
open(THREADFILE,"$main_thread_file") || die;
print "Cache-Control: no-cache\nPragma: no-cache\nContent-type: text/html\n\nRemove a ThreadBack to AdministrationRemove a Thread
Click on the thread you wish to remove:
";
# get, print 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(THREADFILE);
}
###
sub delete_thread {
open(LOCK,"../list.lock"); flock(LOCK,2);
open(THREADFILE,"$main_thread_file") || die;
open(BAKFILE,">$main_thread_file.bak") || die;
while() {
if (!(/^$threadnum\t/o)) {
print BAKFILE;
}
}
open(THREADFILE,">$main_thread_file") || die;
open(BAKFILE,"$main_thread_file.bak") || die;
while() {
print THREADFILE;
}
unlink "../DATA/$threadnum.th";
flock(LOCK,8);
close(THREADFILE);
print "Location: $base_url/ADMIN/removethread.cgi\n\n";
}
###
sub ask_for_confirmation {
open(LOCK,"../list.lock"); flock(LOCK,2);
open(THREADFILE,"$main_thread_file") || die;
while() {
if (/^$threadnum\t/o) {
chop;
($num,$title,$author,$email,$date_mod,$replies,$last_mod,
$mod_val,$mod_num) = split(/\t/);
$date = &date_format($date_mod);
$last = &date_format($last_mod);
last;
}
}
print "Content-type: text/html\n\n";
print <
Remove a Thread - Confirmation
Are you sure you want to remove this thread?
| Title: | $title
|
| Name: | $author $email
|
| Date Started: | $date
|
| Date Last Changed: | $last
|
| Replies: | $replies
|
Yes
No