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=acfb0ce848d64d2876085ec7245458583bc8d227;hb=7e5c4c2668078b9ac51c5a4e6ee4519a5f6dd5fe;hpb=caf762dbfcd20ba1e64ac6dd5586eb7c5206c74c

diff --git a/AwayMsg.pm b/AwayMsg.pm
index acfb0ce..72c5946 100644
--- a/AwayMsg.pm
+++ b/AwayMsg.pm
@@ -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