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=472850a81149ae3bcb0d5fd0e5b0ee4e07f8236c;hb=7e5c4c2668078b9ac51c5a4e6ee4519a5f6dd5fe;hpb=e610519ad3777729efc46d377791e63a2349fc0e

diff --git a/AwayMsg.pm b/AwayMsg.pm
index 472850a..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();
@@ -25,15 +25,13 @@ sub www_begin ($$) {
     $r->header_out("Cache-Control: no-cache");
 }
 
+sub hquote ($) {
+    my ($raw) = @_;
+    return pack "H*", $raw;
+}
+
 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