11 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
14 @EXPORT = qw(&db_connect $dbh);
22 my $h = DBI->connect("dbi:SQLite:away.db",
24 RaiseError=>1, ShowErrorStatement=>1
26 or die "$DBI::errstr ?";
30 $dbh->do("CREATE TEMPORARY TABLE config (".
31 " emailaddr TEXT PRIMARY KEY NOT NULL,".
32 " username TEXT NOT NULL,".
33 " forwardfile TEXT NOT NULL".
36 open C, "config" or die $!;
43 die "$_ ?" unless @s==3;
44 $dbh->do("INSERT INTO config".
45 " (emailaddr, username, forwardfile)".