mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-04 08:35:31 +00:00
Code Issues Releases Wiki Activity

coding style

Browse Source
This commit is contained in:
Andreas Gustafsson
2000-09-01 01:06:23 +00:00
parent fd5146c993
commit 0a2eab4e35
1 changed files with 29 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
util/mkreslib.pl
View File

@@ -15,7 +15,7 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: mkreslib.pl,v 1.7 2000/08/01 01:33:32 tale Exp $ # $Id: mkreslib.pl,v 1.8 2000/09/01 01:06:23 gson Exp $
# Build a res_* library distribution from the BIND 8 source # Build a res_* library distribution from the BIND 8 source
@@ -36,18 +36,18 @@
# #
# Don't bother keeping contrib or doc around in the new tarball # Don't bother keeping contrib or doc around in the new tarball
system ("rm -rf Makefile contrib doc"); system("rm -rf Makefile contrib doc");
system ("mv src/* src/.??* ."); system("mv src/* src/.??* .");
system ("rmdir src"); system("rmdir src");
# We don't want bin/, conf/, tests/, or OLD/ # We don't want bin/, conf/, tests/, or OLD/
system ("rm -rf bin conf tests OLD"); system("rm -rf bin conf tests OLD");
# Move the old README away # Move the old README away
system ("mv README README.bind8"); system("mv README README.bind8");
# Make a new README # Make a new README
open (README, ">README") || warn "README: $!"; open(README, ">README") || warn "README: $!";
print README <<EOF; print README <<EOF;
This is the resolver library from BIND 8, provided for legacy software This is the resolver library from BIND 8, provided for legacy software
needing access to these functions. Programmers of new software are encouraged needing access to these functions. Programmers of new software are encouraged
@@ -55,34 +55,35 @@ to use the new lightweight resolver library instead.
See the README.bind8 file for the original README shipped with BIND 8. See the README.bind8 file for the original README shipped with BIND 8.
EOF EOF
close (README); close(README);
system ("mv CHANGES CHANGES.bind8"); system("mv CHANGES CHANGES.bind8");
system ("mv INSTALL INSTALL.bind8"); system("mv INSTALL INSTALL.bind8");
# The following files aren't useful here # The following files aren't useful here
system ("rm -rf DNSSEC SUPPORT TODO"); system("rm -rf DNSSEC SUPPORT TODO");
# Massage the Makefile # Massage the Makefile
system ("mv Makefile Makefile.bind8"); system("mv Makefile Makefile.bind8");
open (MAKEIN, "Makefile.bind8") || warn "Makefile.bind8: $!"; open(MAKEIN, "Makefile.bind8") || warn "Makefile.bind8: $!";
open (MAKEOUT, ">Makefile") || warn "Makefile: $!"; open(MAKEOUT, ">Makefile") || warn "Makefile: $!";
while (<MAKEIN>) { while (<MAKEIN>) {
if (/^SUBDIRS= (.*)$/) { if (/^SUBDIRS= (.*)$/) {
$line = $1; $line = $1;
$line =~ s/bin//; $line =~ s/bin//;
print MAKEOUT "SUBDIRS= $line"; print MAKEOUT "SUBDIRS= $line";
next; next;
} }
if (/^links:/) { if (/^links:/) {
goto DONE; goto DONE;
} }
print MAKEOUT; print MAKEOUT;
} }
DONE:
print MAKEOUT "FRC:\n";
close (MAKEIN);
close (MAKEOUT);
DONE:
print MAKEOUT "FRC:\n";
close(MAKEIN);
close(MAKEOUT);