10 |
use URI::Escape; |
use URI::Escape; |
11 |
|
|
12 |
my $dsn = 'dbi:Pg:dbname=new'; |
my $dsn = 'dbi:Pg:dbname=new'; |
13 |
#$dsn = 'dbi:SQLite:dbname=./var/strix.sqlite'; |
$dsn = 'dbi:SQLite:dbname=./var/strix.sqlite'; |
14 |
|
|
15 |
my $schema_file = 'var/schema.' . uri_escape( $dsn ); |
my $schema_file = 'var/schema.' . uri_escape( $dsn ); |
16 |
|
|
19 |
my $source = Fey::DBIManager::Source->new( dsn => $dsn ); |
my $source = Fey::DBIManager::Source->new( dsn => $dsn ); |
20 |
|
|
21 |
my $schema; |
my $schema; |
22 |
if ( -e $schema_file ) { |
if ( 0 ) { # FIXME |
23 |
|
#if ( -e $schema_file ) { |
24 |
$schema = retrieve $schema_file or die "can't read schema from $schema_file: $!"; |
$schema = retrieve $schema_file or die "can't read schema from $schema_file: $!"; |
25 |
} else { |
} else { |
26 |
$schema= Fey::Loader->new( dbh => $source->dbh() )->make_schema(); |
$schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema(); |
27 |
store $schema, $schema_file or warn "can't store schema into $schema_file: $!"; |
store $schema, $schema_file or warn "can't store schema into $schema_file: $!"; |
28 |
} |
} |
29 |
|
|