#! /perl/bin/perl -w

use strict;
use CGI();
use DBI;
use Data::Dumper;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use LC::SchemaClassMaker;
use LC::DBMaint;

my $file_in = '/web/lc/perllib/schema.xm';
my $drh = 'dbi:CSV:f_dir=/web/lc/database';
my $dbh = DBI->connect($drh);

my $cm = LC::SchemaClassMaker->new({
	  schema_filename => $file_in
	, base_class => 'LC::PersistentSQL'
	, dbh => $dbh
	, class_prefix => 'XT'
});

my $tm = LC::DBMaint->new({
	  dbc_classname => 'XT::book'
});

$tm->set_attr('default', 'widgets', {
	  review => {widget => 'scrolling_list'}
	, author => {widget => 'scrolling_list'}
});
$tm->execute;
my $header_args = $tm->get_cookie ? {-cookie => $tm->get_cookie} : {};
print CGI::header($header_args), CGI::start_html();
print $tm->default_html();
print CGI::end_html();