三、CGI程序的编制

　　要实现虚拟域名的在线申请，就必须编写相应CGI程序动态修改独立的配置文件（即上面的vhostdbm文件）和进行用户的管理（包括用户申请，登录，密码修改等等）。在此只介绍对独立的配置文件的操作，其他属于如何用Perl语言来编写CGI程序，请参考有关资料。

　　vhostdbm文件使用dbm格式来记录数据，与用普通文本文件相比可加快寻找速度，而且易于修改。许多UNIX系统都具有叫做dbm（database management）的标准库。该库将键-值对的集合存贮到一对磁盘文件中，提供简单的数据库管理工具，可以方便的更改、新增或删除数据内容。

　　Perl访问dbm的方式：通过一个类似于打开文件的进程将关联数组与dbm数据库联系起来。在数组中创建新元素时立即就更改了dbm数据库。删除一个元素的同时也删除了dbm数据库中的数值。可使用：

　　1、欲将dbm数据库与dbm数组相关联起来：

　　dbmopen(%arrayname,"dbmfilename",$mode);

　　如果dbmfilename不存在的话就新建该库。%arrayname参数是Perl的关联数组（如果这个数组已经有值，那么这些值就被删除）。该关联数组连接到叫做dbmfilename的dbm数据库中。$mode 参数是当需要创建库时控制库文件权限的数字，该数字被指定为8制，经常被用到的是0644，给除了机主之外的新用户以只读的权限，机主可有全部权限。

　　2、关闭dbm库：

　　dbmclose(%arrayname);
　　%arrayname 是已经与dbm库关联了的数组名。

　　例6、VHOST打开vhostdbm，或新建一个dbm库：

　　dbmopen(%VHOST,"vhostdbm",0644);

　　例7、新建记录或更改已有记录（设从html文件form中传过来的参数名为vhost、rhost）：
　　$VHOST{$FORM{'vhost'}}=$FORM{'rhost'};

　　例8、删除已有记录（设从html文件form中传过来的参数名为vhost）：
　　delete $VHOST{$FORM{'vhost'}};

　　例9、关闭vhostdbm：

　　dbmclose(%VHOST);

　　注：以上已经假设传过来的参数经过了验证，不存在重复的记录，否则会导致已有记录的混乱。

上一篇文章： Linux的IP伪装功能

下一篇文章： Linux下虚拟域名的实现(2)