#! /usr/bin/perl # Copyright (c) 2002-2016, Dirk Krause # All rights reserved. # # Redistribution and use in source and binary forms, # with or without modification, are permitted provided # that the following conditions are met: # # * Redistributions of source code must retain the above # copyright notice, this list of conditions and the # following disclaimer. # * Redistributions in binary form must reproduce the above # opyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials # provided with the distribution. # * Neither the name of the Dirk Krause nor the names of # contributors may be used to endorse or promote # products derived from this software without specific # prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND # CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE # DISCLAIMED. # IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE # OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH # DAMAGE. my %filenames; my $fh = undef; my $line; if(open($fh, ") { $line = $_; chomp($line); $line = "./$line"; $filenames{"$line"} = 1; } close($fh); $fh = undef; } if(open($fh, "find . -type f | sort |")) { while(<$fh>) { $line = $_; chomp($line); $runtest = 1; if($line =~ /\.git\//o) { $runtest = 0; } if($line =~ /\.\/doc\//o) { $runtest = 0; } if($line =~ /\.\/devdoc\//o) { $runtest = 0; } if(0 != $runtest) { if(!(exists($filenames{"$line"}))) { print "Extra file: $line\n"; } else { $filenames{"$line"} = 0; } } } close($fh); } my $fn; foreach $fn (sort (keys %filenames)) { if (1 == $filenames{"$line"}) { print "Not found: $fn\n"; } }