From bbc1892bdfc4e0ed6c1b505fcf69e8a38da6ef50 Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 1 Dec 2004 04:39:23 +0000
Subject: [PATCH] Autodetect database directory pathname.

---
 redirector | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/redirector b/redirector
index f72d82d..3801742 100755
--- a/redirector
+++ b/redirector
@@ -4,13 +4,14 @@
 
 use strict;
 use warnings;
+use File::Basename;
 
 use re 'eval';
 
-use constant DIR_AD => "/usr/local/squid/etc/ad";
+my $DIR_AD=dirname($0)."/ad";
 
 
-chdir DIR_AD or die "chdir ".DIR_AD.": $!";
+chdir $DIR_AD or die "chdir $DIR_AD: $!";
 select STDOUT;
 $|=1;
 my @got;
-- 
1.8.3.1