#!/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);