25、创建基于 CGI 的留言板与会话管理

创建基于 CGI 的留言板与会话管理

1. 基于 CGI 的留言板创建

1.1 留言板功能概述

在构建在线留言板时，我们需要实现两个主要功能：显示主题和处理用户的新主题创建与回复。显示脚本负责将主题渲染出来，之后调用 print_response_form 子例程打印出用户可以输入回复的表单，该表单会提交到 post.pl 程序进行处理。

1.2 post.pl 脚本详解

post.pl 脚本具有两个重要用途：一是创建新主题，二是为现有主题添加回复。以下是该脚本的详细代码：

#!/usr/local/bin/perl -Tw

use CGI;
use strict;
use CGI::Carp qw(fatalsToBrowser);

my $query = new CGI;
my $topic_directory = "topics";
my $page_title;
my ($action, $author, $title, $post, $response_to) = ("","","","","");

print $query->header;

if ($query->param('action')) {
    &set_variables;

    # 创建新主题表单已提交
    if ($action eq "new") {
        my $error_message = &validate_fo