12 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
15 @EXPORT = qw(db_connect db_commit www_begin hquote
25 $r->header_out("Cache-Control: no-cache");
30 return pack "H*", $raw;
35 foreach my $d (@INC) {
36 $dbf = "$d/data/away.db";
42 $dbh = DBI->connect("dbi:SQLite:$dbf",'','',
44 RaiseError=>1, ShowErrorStatement=>1
46 or die "$DBI::errstr ?";
51 my $sth= $dbh->prepare($stmt);
54 if ($row= $sth->fetchrow_hashref()) {
55 die("REFERENTIAL INTEGRITY ERROR\n".
56 "\n$stmt\n". Dumper($row),"\n");
61 nooutput("SELECT * FROM addresses LEFT JOIN config".
62 " USING (emailaddr) WHERE forwardfile IS NULL");
63 nooutput("SELECT * FROM addresses LEFT JOIN texts".
64 " USING (textid) WHERE desc IS NULL");