#chop $line;
my ($file, $rest, $ext) = ($1, $2, $3);
print "<code>";
print "<a href=\"/cgi-bin/cvs/viewcvs.cgi/$file\" style=\"text-decoration: none;\">";
print HTML_encode($file);
print "</a> ";
#chop $line;
my ($file, $rest, $ext) = ($1, $2, $3);
print "<code>";
print "<a href=\"/cgi-bin/cvs/viewcvs.cgi/$file\" style=\"text-decoration: none;\">";
print HTML_encode($file);
print "</a> ";