#!/usr/bin/perl

$ID = $ENV{'QUERY_STRING'};

&comments;

sub comments{

open (IN,"log/$ID.dat");
@log_data = <IN>;
close IN;

$count = @log_data;
print "Content-type: text/html\n\n";

if($count == 0){print"document.write(\'Comment &gt;&gt;\')";}
if($count == 1){print"document.write(\'Comment($count)\')";}
if($count > 1){print"document.write(\'Comment($count)\')";}



}


__END__