spacewhack.pl revision 70e5a7403f0e0a3bd292b8287c5fed5772c15270
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# Copyright (C) 2004, 2007 Internet Systems Consortium, Inc. ("ISC")
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# Copyright (C) 2000, 2001 Internet Software Consortium.
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# Permission to use, copy, modify, and/or distribute this software for any
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# purpose with or without fee is hereby granted, provided that the above
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# copyright notice and this permission notice appear in all copies.
f97d56e757b9a293ffbaa915ca4d792ae84ba85aTinderbox User# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# PERFORMANCE OF THIS SOFTWARE.
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver# $Id: spacewhack.pl,v 1.6 2007/06/19 23:47:24 tbox Exp $
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver$0 =~ s%.*/%%;
94315060c2b0d9deafabe72d6a0482405fd9d377Evan Hunt warn "Usage: $0 < list-of-files\n";
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver warn "The util/copyrights file is normally used for list-of-files.\n";
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryverprintf "Lines Trimmed:\n";
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver # These are binary and must be ignored.
4eb998928b9aef0ceda42d7529980d658138698aEvan Hunt next if -B $file;
94315060c2b0d9deafabe72d6a0482405fd9d377Evan Hunt print "$file\n";
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver warn "$0: open < $file: $!, skipping\n";
afaa290bb6acc504e93a0adbf20b6dd6c64e6d63Vernon Schryver undef $/; # Slurp whole file.
94315060c2b0d9deafabe72d6a0482405fd9d377Evan Hunt warn "$0: open > $file: $!, skipping\n";
94315060c2b0d9deafabe72d6a0482405fd9d377Evan Hunt print FILEOUT or die "$0: printing to $file: $!, exiting\n";
94315060c2b0d9deafabe72d6a0482405fd9d377Evan Hunt close FILEOUT or die "$0: closing $file: $!, exiting\n";
94315060c2b0d9deafabe72d6a0482405fd9d377Evan Hunt printf("%6d lines trimmed in $file\n", $count) if $count > 0;