#********* BEGIN BODY********************
open (LOGFILE, ">>guestbook.log");
$newline=join('::',@value);
print LOGFILE ("$newline\n");
close LOGFILE;
print "<BODY BGCOLOR=\'BEIGE\'><H1>Thank you. Your comments have been
added</H1>";
#******** END BODY************************
这是guestbook.cgi程序的BODY部分。你应该这样:
- 拷贝以上代码到template.txt文件的BODY部分。
- 保存为guestbook.cgi。
- 上传guestbook.cgi到服务器的perltour文件夹中。
- 在命令提示符下敲入chmod a+rx guestbook.cgi。
现在可以测试form了。如果没有错误,将返回一个米色的感谢你的页。可以在Unix命令提示符下敲入cat guestbook.log查看文件的内容。
|