use DBI;
use Commods;
+use CommodsDatabase;
@ARGV==1 or die;
my ($oceanname) = @ARGV;
-my $dbfn= "OCEAN-$oceanname.db";
-
-our $dbh;
-
-sub dbdoall ($) {
- foreach my $cmd (split /\;/, $_[0]) {
- $dbh->do("$cmd;") if $cmd =~ m/\S/;
- }
-}
-
#---------- setup ----------
parse_masters_ocean($oceanname);
our $ocean= $oceans{$oceanname};
-$dbh= DBI->connect("dbi:SQLite:$dbfn",'','',
- { AutoCommit=>0,
- RaiseError=>1, ShowErrorStatement=>1,
- unicode=>1 })
- or die "$dbfn $DBI::errstr ?";
+db_setocean($oceanname);
+db_connect();
#---------- schema ----------
foreach my $bs (qw(buy sell)) {
- dbdoall(<<END)
+ db_doall(<<END)
CREATE TABLE IF NOT EXISTS $bs (
commodid INTEGER NOT NULL,
islandid INTEGER NOT NULL,
;
}
-dbdoall(<<END)
+db_doall(<<END)
CREATE TABLE IF NOT EXISTS commods (
commodid INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
commodname TEXT UNIQUE NOT NULL,
distance_propagate_now(@$ref);
}
- dbdoall(<<END)
+ db_doall(<<END)
DELETE FROM dists;
END
;