#!/usr/mesh/bin/perl
#
# program name  : clwb.cgi(Comment Link Web Board CGI)
#
# function      : Show title***.htm file.
#
# programmer    : makoto takenaka   (takesoft@mxs.meshnet.or.jp)
#
# copyright     : (c) 1996 by Takesoft
#
# version(date) :
#    version 1.0 (Dec 7, 1996)
#
#(1) Send header lines to browser.
#
   print "Content-type: text/html\n\n";
#
#(2) set constants.
#
    $base_dir     = "./";                       # base directory of CLWB
    $title_html   = "${base_dir}title001.html"; # CLWB title page
    $msg_f        =              "msg001.html"; # message file name(last name)
    $msg_html     = "${base_dir}$msg_f";        # message file name(full path)
    $c_count_file = "${base_dir}c_count.txt";   # CLWB counter file 
    $m_count_file = "${base_dir}m_count.txt";   # number of messages
#
   if(-e $title_html)
      {$title_html_byte = (-s $title_html);}     # Get size of $title_html.
   else
      {&error_message("(2): File $title_html is not found.");}
#
   if(-e $msg_html)
      {$msg_html_byte = (-s $msg_html);}     # Get size of $msg_html.
   else
      {&error_message("(2): File $msg_html is not found.");}
#
   open(COUNT_FILE, "$m_count_file")
      || &error_message("(2):Unable to open $m_count_file");
   $m_count = <COUNT_FILE>;
   close(COUNT_FILE);
#
#(3) Set counter number.
#
         open(COUNT_FILE, "+< $c_count_file")
            || &error_message("(3):Unable to open $c_count_file");
         flock(COUNT_FILE, 2);
         $count = <COUNT_FILE>;
         $count++;
         seek(COUNT_FILE, 0, 0);
         print COUNT_FILE $count;
         flock(COUNT_FILE, 8);
         close(COUNT_FILE);
#
#(4) Print $title_html file.
#
   open(HTML_FILE, $title_html)
      || &error_message("(4):Unable to open $title_html");
   while(<HTML_FILE>)
      {
#
#   If this line contains "INSERT_COUNTER", send guest number.
#
      if (/INSERT_COUNTER/)
         {
print "[Access #$count][Message #$m_count]";
print "[Title File: ${title_html_byte} bytes][Message File: ${msg_html_byte} bytes]\n";
         }
      else
         {print $_;}
      }
   close(HTML_FILE);
   exit 0;
#
sub error_message
   {
   local($message) = @_;
   print "Error Message from clwb.cgi of Web page: \n";
   print "$message\n";
   exit 1;
   }