$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(&db_setocean &db_writer &db_connect $dbh
- &db_filename &db_doall &db_onconflict);
+ &db_filename &db_doall &db_onconflict
+ &db_setdatadir $db_datadir);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw();
our $dbfn;
our $dbh;
+our $db_datadir= '.';
+sub db_setdatadir ($) {
+ $db_datadir= $_[0];
+}
sub db_setocean ($) {
my ($oceanname) = @_;
- $dbfn= "OCEAN-$oceanname.db";
+ $dbfn= "$db_datadir/OCEAN-$oceanname.db";
}
sub db_filename () {
return $dbfn;