#!/usr/local/bin/perl -w
require "Util.pm";
use strict;
 
# From this script, run the isrch_srch utility and pass a single argument
# that is the directory where your database are stored.
#
# For example:
#
# /path/to/Isearch-cgi/isrch_srch /path/to/my/databases

unless (@ARGV){
    Util->PrintHeader();
    Util->ErrorMessage("This script <strong>MUST</strong>".
	" be called with one argument. Please contact the <strong>RIB".
	" </strong>maintainers.");
}

my $ipath = Util->GetRibDir() . "/repositories/" . $ARGV[0] . 
    "/index/";
#print $ipath;
my $droot = "/rib-test/repositories/" . $ARGV[0] . "/catalog/";
$ENV{'DOCUMENT_ROOT'} = $droot;
exec './isrch_srch', $ipath;
