#! /usr/bin/perl
#
#	clx_idx - Index Files fr Datenbank einrichten
#
# Last Change: Tue Apr 14 19:28:52 GMT 1998

require 'getopts.pl';

$| = 1;
$db_name = "clx_db";
$psql = "psql -d $db_name";
$tabdir = "$ENV{'HOME'}/db";
$verbose = 0;

&Getopts('v');

if (length($opt_v) > 0) {
    $verbose = 1;
    $psql = "psql -ed $db_name";
}

opendir(DIR,$tabdir);
@files = grep (/\.idx/,readdir(DIR));
foreach $f (@files) {
	$tab = $f;
	$tab =~ s|\.idx||;
	if (! $verbose) { print "creating index for $tab from $f.\n"; }
	system "$psql < $tabdir/$f";
}
closedir(DIR);
