X-Git-Url: https://git.jankratochvil.net/?p=redirector-ad.git;a=blobdiff_plain;f=redirector;h=380174238fb17f0088e8c4d471bb84e2c410f0be;hp=f72d82d443be62e3fc38a3a9ef941d2fc2a0dc8f;hb=HEAD;hpb=2d54bc9c92a9ebdb55ad951cad8ee63ff6e67d2e

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;