#!/usr/local/bin/perl
#
# program name : indexwot.cgi (send INDEX file WithOut Tacf.cgi call)
#
# function     : send index.html(or index.htm(change $html_file)) to
#                browser except <IMG SRC="tacf.cgi"> line, in order to
#                prevent double count of access counter. 
#
# note         : this indexwot is made for tacf.cgi (text-type access 
#                counter for first page), where CGI is available.
#
# programmer   : makoto takenaka : takesoft@mxs.meshnet.or.jp
#
# copyright    : (C) 1996 by Takesoft
#
# version(date): version  1. 0(August 3, 1996)
#
#(1) set constant.
#
#  if you use index.htm file for first Web page, change 
#  "./index.html" to "./index.htm" in the next line.
#
   $html_file      = "./index.html";      # html file with tacf.cgi call
#
#(2) Send $html_file except <IMG SRC="tacf.cgi" ALT=""> line.
#
#
   print "Content-type: text/html\n\n";
#

   open(HTML_FILE, "$html_file")
      ||die "indexwot: Unable to open $html_file.";
#
   while(<HTML_FILE>)
      {
#
#  If this line $_ contains "tacf.cgi", do not send this line.
#
      unless(/\"tacf.cgi\"/)
         {
         print $_;
         }
      }
#
   close(HTML_FILE);
#