#!/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("Board Administration");
print qq(<h2>Board Administration</h2>\n);

# code will go here

# Cancel Messages
print <<EndCancel;
<form action="cancel.cgi" method="POST">
<u>Cancel Article</u> #:<input type="text" name="msgid" size=5>
<input type="submit" value="Cancel Article">
<font size=-1>You will be able to view the article, and the IP address it was posted from, before canceling it.</font>
</form>
<hr>
EndCancel

# Create New Groups
print <<EndCreate;
<u>Create Forum:</u><br>
<form action="create.cgi" method="POST">
<table border=0>
<tr><th>Forum Name</th>
<th>Description</th>
<th>Rank</th>
<th>Expire Days*</th>
<th></th></tr>
</tr>
<tr><td><input type="text" size=25 name="name"></td>
<td><input type="text" name="desc" size=60></td>
<td><select name="rank">
<option>1
<option>2
<option>3
<option>4
<option>5
</select></td>
<td><input type="text" name="expire" size=3 value="90"></td>
<td><input type="submit" value="Create"></td>
</tr>
</table>
</form>
<p>*Expire days - the maximum # of days to keep posts. Default is 90 days.
</p>
<hr>
EndCreate

# Edit/Delete Forums
#
print qq(
<u>Edit Forums:</u>
<p>
<table border=0>
<tr>
   <th align="LEFT">Forum Name</th>
   <th align="LEFT">Description</th>
   <th>Rank</th>
   <th># of Posts</th>
   <th>Expire Days</th>
   <th></th>
   <th></th>
</tr>
);

my($sth) = $dbh->prepare("select forums.*, count(messages.id) as msgcount from forums left join messages on forums.id = messages.forum group by forums.id order by rank, name") or &dbdie;
my($rv) = $sth->execute;
my($f);
while ($f = $sth->fetchrow_hashref) {
    print qq(
<tr>
   <td> <a href="../forum.cgi?forum=$f->{id}">$f->{name}</a> </td>
   <td> $f->{description} </td>
   <td align="CENTER"> $f->{rank} </td>
   <td align="CENTER"> $f->{msgcount} </td> 
   <td align="CENTER"> $f->{expiretime} </td> 
   <td> <a href="edit.cgi?$f->{id}">[edit]</a> </td> 
   <td> <a href="delete.cgi?$f->{id}">[delete]</a> </td>
</tr>
    );
}

print qq(</table>\n <hr>\n);



print qq(<p><a href="$url/">Back to Groups</a></p>\n);

&do_footer;