#!/usr/bin/perl
require "filereview.setup";
use CGI;
$q = new CGI;
$cat = $q->param('category');
if($cat){ $link_file = "$filedir/$cat.dat"; }
else { $link_file = "$filedir/$default.dat"; }
&category;
&search;
open(BRAVO, "$link_file");
if ($display == 1) { @johnny = reverse(<BRAVO>); }
if ($display == 0) { @johnny = (<BRAVO>); }
close(BRAVO);
print "Content-type: text/html\n\n";
print &Template("$templatedir/display_top.html");