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

print qq(<u><a href="newmsg.cgi">Post New Message</a></u><p>\n<hr>\n);

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

# Edit Message
print <<EndEdit;
<form action="edit.cgi" method="POST">
<u>Edit Message</u> #:<input type="text" name="msgid" size=5>
<input type="submit" value="Edit">
</form>
<hr>
EndEdit

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


&do_footer;