#!/usr/bin/perl -Tw
############################################################
## 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;

my($sth,$rv,$msgid);

$msgid = $cgi->param('msgid');

$sth = $dbh->prepare("update messages set message=? where id=?");
$rv = $sth->execute($cgi->param('message'), $msgid);

print $cgi->redirect("$url/message.cgi?$msgid");