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

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

一、创建基于 CGI 的留言板

1.1 留言板概述

我们可以使用多个程序协同创建一个功能较为强大的在线留言板。其中， display.pl 脚本用于显示主题，而 post.pl 脚本则用于创建新主题和添加回复。

1.2 post.pl 脚本详解

1.2.1 脚本功能

post.pl 脚本有两个主要用途：一是创建新主题，二是为现有主题添加回复。

1.2.2 脚本代码

#!/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;

    # The form to create a new topic has been submitted
    if ($action eq “new”) {
        my $error_