]>
git.ipfire.org Git - thirdparty/squid.git/blob - scripts/merge-cf.data.pre.pl
c818f5d10af441016d8a7f85a6f1a66427ddf137
3 ## Copyright (C) 1996-2016 The Squid Software Foundation and contributors
5 ## Squid software is distributed under GPLv2+ license and includes
6 ## contributions from numerous individuals and organizations.
7 ## Please see the COPYING and CONTRIBUTORS files for details.
10 # This script reassembles a split configuration file back into a cf.data.pre
19 if (defined $ARGV[0]) {
20 $path = dirname
($ARGV[0]);
26 return $path . "/" . $name . ".txt";
29 my ($in) = new IO
::File
;
32 my (@aliases) = split(/ /, $1);
33 my ($name) = shift @aliases;
34 $in->open(filename
($name), "r") || die "Couldn't open ".filename
($name).":$!\n";