X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=AwayMsg.pm;h=72c594695e69c9bd1ad84bc2f4e2c4d13d6de7ae;hp=3e95f713bc7763b8be455920704a17545b444b21;hb=7e5c4c2668078b9ac51c5a4e6ee4519a5f6dd5fe;hpb=210e7d351f034881e4a5e111a323c0084a0d0c20;ds=sidebyside

diff --git a/AwayMsg.pm b/AwayMsg.pm
index 3e95f71..72c5946 100644
--- a/AwayMsg.pm
+++ b/AwayMsg.pm
@@ -12,7 +12,7 @@ BEGIN {
     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
     $VERSION     = 1.00;
     @ISA         = qw(Exporter);
-    @EXPORT      = qw(db_connect db_commit www_begin
+    @EXPORT      = qw(db_connect db_commit www_begin hquote
                       $dbh);
     %EXPORT_TAGS = ( );
     @EXPORT_OK   = qw();
@@ -31,14 +31,7 @@ sub hquote ($) {
 }
 
 sub db_connect () {
-    my $dbf;
-    foreach my $d (@INC) {
-	$dbf = "$d/data/away.db";
-	if (stat $dbf) {
-	    chdir($d) or die $!;
-	    last;
-	}
-    }
+    my $dbf = "$ENV{'NJAWAYMSG'}/data/away.db";
     $dbh = DBI->connect("dbi:SQLite:$dbf",'','',
 			 { AutoCommit=>0,
 			   RaiseError=>1, ShowErrorStatement=>1