#!/usr/bin/perl -wT
############################################################
## Written and copyright 2002 by 
## Jacqueline D. Hamilton (kira@cgi101.com)
##
## This code is excerpted from "CGI Programming 201"
## (http://www.cgi101.com/advanced)
##
## You may use this code on your own website, however
## you may not publish or sell any copy or derivative work
## without permission of the author.
#############################################################
use strict;
use lib '../';
use MyBoard;

&do_header("Delete Forum");
my($forum);
if ($ENV{QUERY_STRING} !~ /^(\d+)$/) {
   &dienice("$ENV{QUERY_STRING} isn't a valid forum number.");
} else {
   $forum = $1;
}

my($sth) = $dbh->prepare("select * from forums where id=?") or &dbdie;
my($rv) = $sth->execute($forum) or &dbdie;
if ($rv < 1) {
   &dienice("Forum $forum doesn't exist.");
}
my($f);
$f = $sth->fetchrow_hashref;

$sth = $dbh->prepare("select count(*) from messages where forum=?") or &dbdie;
$rv = $sth->execute($forum) or &dbdie;
my($msgct) = $sth->fetchrow_array;

print <<EndHTML;
<h2>Are You Sure?</h2>
<p>
Deleting forum \#$forum - $f->{name}
</p>
<form action="delete2.cgi" method="POST">
<input type="hidden" name="forum" value="$forum">
<p>
This forum contains $msgct messages. Do you really want to delete it?
<input type="submit" value="Yes">
</form></p>
<p>
Or <b><a href="index.cgi">Return to Administration</a></b> if you don't want to
delete this forum.
</p>
EndHTML

&do_footer;