Autodetect database directory pathname.

diff --git a/redirector b/redirector
index f72d82d..3801742 100755 (executable)
--- 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;