#!/usr/bin/perl

#
#  ResooSite v.0.9 - Resoo 2002
#  resoocount.pl
#

print "Content-type: text/html\n\n";
$PAGE = "../cmp/bbs.cmp";
if (!(-e $PAGE)){open(NEW,"> $PAGE");print NEW "0";close(NEW);exit(0); }
open(COUNTER,"+< $PAGE");
flock(COUNTER,2);
$_=<COUNTER>;
seek(COUNTER,0,0);
$_++;  print;  print COUNTER;
flock(COUNTER,8);
close(COUNTER);