use POSIX;
use MIME::Parser;
+BEGIN {
+ my $selfdir= $0;
+ $selfdir =~ s,/+[^/]*$,,;
+ chdir("$selfdir") or die "$selfdir $!";
+}
+
use Commods;
use CommodsDatabase;
db_setocean($md{'ocean'});
my $dbfn= db_filename();
(stat $dbfn) or die "stat database $dbfn failed $!\n";
+ db_writer();
db_connect();
+ db_onconflict(sub { print STDERR "temporary failure: @_\n"; exit 75; });
my ($islandid) = $dbh->selectrow_array(
"SELECT islands.islandid