use CgiLib;
use ScmConf;
use ScmLib;
use LWP::Simple;
use AnyDBM_File;

&ScmConf::Init();

$starting_time = time;

&PrintHead(*STDOUT,"Document Index", "");

&ReadParse() ||
  &PrintErrorMessage("Error in parameter list");

$key = $input{"key"};
$key =~ s/\s*$//;
($search_string = $key) =~ s/-/ /g;

$selected_category = $input{"category"};
@selected_status = split(",", $input{"status"});

if ($key =~ /^\w\w\w ?\d\d\d\d\d[ \w]*$/) {
  print "<br><strong>Note</strong>: Search time can be greatly improved if a document number is specified using dashes '-' between prefix, regnumber, variant and doctype<br><br>\n";
}

print "<table style=\"border: 1px solid #666666; margin-left: 20px; margin-right: 20px;\" cellpadding=\"2\" cellspacing=\"4\">\n";
print "  <tr>\n";
print "    <th class=\"colheader\">Number<br><nobr>[Document Info]</nobr></th>\n";
print "    <th class=\"colheader\">Title<br>[Document]</th>\n";
print "    <th class=\"colheader\">Author</th>\n";
print "    <th class=\"colheader\">Status</th>\n";
print "    <th class=\"colheader\">Last Updated</th>\n";
print "  </tr>\n";
&flush();

my $count = 0;
my $count2 = 0;
my @result;
tie(%DOC, 'AnyDBM_File', &documentdb, O_RDONLY, 0664);