11 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
14 @EXPORT = qw(&db_connect &db_commit $dbh);
23 foreach my $d (@INC) {
30 $dbh = DBI->connect("dbi:SQLite:away.db",
32 RaiseError=>1, ShowErrorStatement=>1
34 or die "$DBI::errstr ?";
39 my $sth= $dbh->prepare($stmt);
42 if ($row= $sth->fetchrow_hashref()) {
43 die("REFERENTIAL INTEGRITY ERROR\n".
44 "\n$stmt\n". Dumper($row),"\n");
50 nooutput("SELECT * FROM addresses LEFT JOIN config USING (emailaddr)");
51 nooutput("SELECT * FROM addresses LEFT JOIN texts USING (textid)");