git://git.jankratochvil.net
/
redirector-ad.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
70c9059
)
Autodetect database directory pathname.
author
short
<>
Wed, 1 Dec 2004 04:39:23 +0000
(
04:39
+0000)
committer
short
<>
Wed, 1 Dec 2004 04:39:23 +0000
(
04:39
+0000)
redirector
patch
|
blob
|
history
diff --git
a/redirector
b/redirector
index
f72d82d
..
3801742
100755
(executable)
--- a/
redirector
+++ b/
redirector
@@
-4,13
+4,14
@@
use strict;
use warnings;
use strict;
use warnings;
+use File::Basename;
use re 'eval';
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;
select STDOUT;
$|=1;
my @got;