#!/usr/bin/perl

# Generates flatdb tables

use DBI;

my @tables = qw(errors warnings generic);

my $fdir = '/var/halogen/recovery/logdb';

foreach (@tables) {
	my $dbh = DBI->connect('DBI:CSV:f_dir=' . $fdir) or print $dbh->errstr;
	$dbh->do("CREATE TABLE $_ (id INT(20), type TEXT, description TEXT, time TEXT)") or print $dbh->errstr;
}

$dbh = undef;


@tables = qw(test);
$fdir = '/var/halogen/recovery/DB';
foreach (@tables) {
	my $dbh = DBI->connect('DBI:CSV:f_dir=' . $fdir) or print $dbh->errstr;
	$dbh->do("CREATE TABLE $_ (id INT(20), type TEXT, description TEXT, time TEXT)") or print $dbh->errstr;
}