°¨»çÇÕ´Ï´Ù. -_-

±×·±µ¥ ¿Ö Á¦°¡ § ¼Ò½º°¡ Ʋ¸°Áö ¾Ë¾Ò¾î¿ä..

Àú´Â ¾Æ·¡Ã³·³.. list.cgiÆÄÀÏ¿¡¼­ ÅÛÇø´À¸·Î viewbody.htmlÀ» ¸¸µé°Åµç¿ä

±×·±µ¥. ?msg_id=1 °°Àº°ÍÀº. viewbody.html?msg_id=1 ·Î µÇ°Åµç¿ä..

ÀúÂÊ¿¡¼­ ³Ñ±ä°ÍÀ» list.cgi¿¡¼­ ¹Þ¾Æ¾µ¼ö ¾ø³ª¿ä?

sub view {

        my ( $title, $name, $email, $message, $uptime, $count) = getMessage($dbh, $msg_id);
        $count ++;

        my $sql = "update bbs set count=count+1 where msg_id='$msg_id'";
        print $email;

        my $sth = $dbh->prepare($sql) or die print "DBI::errstr\n";

        $sth->execute();
        $dbh->disconnect;

        my $tbl;
        $tbl .=qq!<tr><td>$FF<h3>$title</h3>$FA</td></tr><tr bgcolor="#ffffef"><td>$FF$message$FA</td></tr><tr><td border="right">!;
        $tbl .=qq!<table border="0"><tr><td>$FF USername $FA</td><td>$FF$name<a href="mailto:$email">$email</a>$FA</td></tr><tr><td>$FF Time $FA</td><td>$FF:$uptime&nbsp;&nbsp;&nbsp;</td></tr></table>!;

        $V{'viewbody'} = $tbl;
        $T->process("b.tmpl", \%V, "/home/hncho/work/perlboard/ex/view.html" )  || die $T->error(), "\n";

}