12 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
15 @EXPORT = qw(db_connect db_commit
25 foreach my $d (@INC) {
32 $dbh = DBI->connect("dbi:SQLite:away.db",
34 RaiseError=>1, ShowErrorStatement=>1
36 or die "$DBI::errstr ?";
41 my $sth= $dbh->prepare($stmt);
44 if ($row= $sth->fetchrow_hashref()) {
45 die("REFERENTIAL INTEGRITY ERROR\n".
46 "\n$stmt\n". Dumper($row),"\n");
51 nooutput("SELECT * FROM addresses LEFT JOIN config".
52 " USING (emailaddr) WHERE forwardfile IS NULL");
53 nooutput("SELECT * FROM addresses LEFT JOIN texts".
54 " USING (textid) WHERE desc IS NULL");