#! /usr/bin/perl
#
#	clx_db - clx db einrichten
#
# Last Change: Thu May  8 12:02:41 GMT 1997

require 'getopts.pl';

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

&Getopts('v');

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

print "destroydb $db_name.\n";
system "destroydb $db_name";

print "createdb $db_name.\n";
system "createdb $db_name";

opendir(DIR,$tabdir);
@files = grep { /\.c[dl]$/ } readdir(DIR);
# @files = readdir(DIR);
foreach $f (@files) {
	$tab = $f;
	$tab =~ s|.*/||;
	$tab =~ s|\.c.||;
	if (! $verbose) { print "creating class $tab from $f.\n"; }
	system "$psql < $tabdir/$f";
}
closedir(DIR);

opendir(DIR,$datdir);
@files = grep { /\.cd$/ } readdir(DIR);
foreach $f (@files) {
	if (! $verbose) { print "inserting data from $f.\n"; }
	system "$psql < $datdir/$f";
}
closedir(DIR);
