From: short <>
Date: Wed, 1 Dec 2004 04:39:23 +0000 (+0000)
Subject: Autodetect database directory pathname.
X-Git-Url: https://git.jankratochvil.net/?p=redirector-ad.git;a=commitdiff_plain;h=bbc1892bdfc4e0ed6c1b505fcf69e8a38da6ef50

Autodetect database directory pathname.
---

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;