#!perl

#
#   Copyright (C) 1998, 1999, 2000, 2001 Loic Dachary
#
#   This program is free software; you can redistribute it and/or modify it
#   under the terms of the GNU General Public License as published by the
#   Free Software Foundation; either version 2, or (at your option) any
#   later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software 
#   Foundation, Inc. 59 Temple Place, Suite 330, Boston, 
#   MA  02111-1307  USA.
#

use strict;

use Getopt::Long;
use Catalog::dmoz;

sub main {
    my($verbose);
    my($config);
    my($database);
    my($dbopt);

    GetOptions("verbose+" => \$verbose,
	       "config=s" => \$config,
	       "database=s" => \$database,
	       "dbopt=s" => \$dbopt);
    
    local($SIG{__DIE__});

    my($index) = @ARGV;

    if(!defined($index)) {
	print STDERR "
usage: $0 [-verbose] [-config dir] [-database name] [-dbopt options] index
";
	return;
    }

    if(defined($config)) {
	$ENV{'CONFIG_DIR'} = $config;
    }

    my($dmoz) = Catalog::dmoz->new();
    my($hook) = $dmoz->db()->instance()->{'hook'};

    $hook->hook_index(">$index");
}

main();

