sub db_connect () {
my $dbf;
foreach my $d (@INC) {
- $dbf = "$d/away.db";
+ $dbf = "$d/data/away.db";
if (stat $dbf) {
chdir($d) or die $!;
last;
}
}
- $dbh = DBI->connect("dbi:SQLite:away.db",
+ $dbh = DBI->connect("dbi:SQLite:$dbf",'','',
{ AutoCommit=>0,
RaiseError=>1, ShowErrorStatement=>1
})