mirror of
https://github.com/isc-projects/bind9.git
synced 2026-02-11 14:53:11 -05:00
89 lines
2.5 KiB
Perl
89 lines
2.5 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Copyright (C) 2004 Internet Systems Consortium, Inc. ("ISC")
|
|
# Copyright (C) 2000, 2001 Internet Software Consortium.
|
|
#
|
|
# Permission to use, copy, modify, and distribute this software for any
|
|
# purpose with or without fee is hereby granted, provided that the above
|
|
# copyright notice and this permission notice appear in all copies.
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
|
|
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|
|
# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
|
|
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
|
|
# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
|
|
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
# PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
# $Id: mkreslib.pl,v 1.9.206.1 2004/03/06 13:16:24 marka Exp $
|
|
|
|
# Build a res_* library distribution from the BIND 8 source
|
|
|
|
#
|
|
# Usage:
|
|
#
|
|
# Export the BIND 8 source from CVS into a scratch directory,
|
|
# chdir into the 'bind' directory, run this script.
|
|
# Finally tar up the directory. For example:
|
|
#
|
|
# cd $scratch
|
|
# cvs export -r t5b-823 bind
|
|
# cd bind
|
|
# perl $bind9/util/mkreslib.pl
|
|
# cd ..
|
|
# mv bind libbind8-9.0.0b5
|
|
# tar cf - libbind8-9.0.0b5 | gzip >libbind8-9.0.0b5.tar.gz
|
|
#
|
|
|
|
# Don't bother keeping contrib or doc around in the new tarball
|
|
system("rm -rf Makefile contrib doc");
|
|
system("mv src/* src/.??* .");
|
|
system("rmdir src");
|
|
|
|
# We don't want bin/, conf/, tests/, or OLD/
|
|
system("rm -rf bin conf tests OLD");
|
|
|
|
# Move the old README away
|
|
system("mv README README.bind8");
|
|
|
|
# Make a new README
|
|
open(README, ">README") || warn "README: $!";
|
|
print README <<EOF;
|
|
This is the resolver library from BIND 8, provided for legacy software
|
|
needing access to these functions. Programmers of new software are encouraged
|
|
to use the new lightweight resolver library instead.
|
|
|
|
See the README.bind8 file for the original README shipped with BIND 8.
|
|
EOF
|
|
close(README);
|
|
|
|
system("mv CHANGES CHANGES.bind8");
|
|
system("mv INSTALL INSTALL.bind8");
|
|
|
|
# The following files aren't useful here
|
|
system("rm -rf DNSSEC SUPPORT TODO");
|
|
|
|
# Massage the Makefile
|
|
system("mv Makefile Makefile.bind8");
|
|
|
|
open(MAKEIN, "Makefile.bind8") || warn "Makefile.bind8: $!";
|
|
open(MAKEOUT, ">Makefile") || warn "Makefile: $!";
|
|
|
|
while (<MAKEIN>) {
|
|
if (/^SUBDIRS= (.*)$/) {
|
|
$line = $1;
|
|
$line =~ s/bin//;
|
|
print MAKEOUT "SUBDIRS= $line";
|
|
next;
|
|
}
|
|
if (/^links:/) {
|
|
goto DONE;
|
|
}
|
|
print MAKEOUT;
|
|
}
|
|
|
|
DONE:
|
|
|
|
print MAKEOUT "FRC:\n";
|
|
close(MAKEIN);
|
|
close(MAKEOUT);
|