#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<body bgcolor=fffffff text=000000>\n";
$flag = 0;
open(F,"/var/spool/news/htdocs/tlcplus/dev/locked.html");
while(<F>){
	print "$_<BR>\n";
	$flag += 1;
}
close(F);
if($flag == 0){
	print "No one locked";
}
