#! /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 -ad $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";
}

$destroy = `/bin/sh -c \"type -p destroydb\"` || 
	`/bin/sh -c \"type -p dropdb\"`;
chop($destroy);
$destroy = `basename $destroy`;
chop($destroy);

print "$destroy $db_name.\n";
system "$destroy $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);
