#!/usr/mesh/bin/perl
#
# program name : sorry.cgi (Show sorry message)
#
# function : Show sorry message if message number of old title
# page or old message page is clicked.
# note : This sorry.cgi is used for CLWB.
# Link to commsg.cgi is change to sorry.cgi after
# title page or message page is replaced to new one.
# programmer : makoto takenaka : takesoft@mxs.meshnet.or.jp
#
# version(date):
# 1.0(Dec 12, 1996)
#
# calling form : [7]
#
#(0) Print object headder.
#
print "Content-type: text/html\n\n";
#
#(1) set constants.
#
$home_page = "../index.html"; # first web page html file
$base_dir = "./"; # base directory of CLWB
$title_page = $base_dir."clwb.cgi"; # file name of book1
#
#(2) Show sorry message.
#
print <
Takesoft/CLWB/Sorry
CLWB: Sorry
This title page or message page is old, so no new comment is acceptable.
Please write message to new page. Thank you.
[To new title page]
[To home page]