#!/usr/bin/perl
# pragmata
use warnings;
use strict;
use integer;
# Modules
use File::Finder; # merlyns wrapper around File::Find
use File::Find; # core module
# Prototypes
sub wanted;
sub dangling_symlink_handler;
sub goFinder($);
sub goFind($);
#
my $pathname = shift; chomp ($pathname);
print "Querying Perhaps Broken Symlink Handling For $pathname \n";
#
# generic find should grab anything and get anything that is valid
print "call goFinder:\n";
goFinder($pathname);
print "done goFinder:\n";
print "call goFind:\n";
goFind($pathname);
print "done goFind:\n";
###################################################################
sub goFinder($){
        my $searchpath = shift (@_);
        my @goodlinks = ();
        my @badlinks = ();
        print "in goFinder($searchpath)\n";
        # Slightly modified merlynish example
        @goodlinks = File::Finder->eval(sub { -l and -e })->in($searchpath);
        foreach (@goodlinks) {
                print "File::Finder Found good link:$_"."\n";
        }
        @badlinks = File::Finder->eval(sub { -l and not -e })->in($searchpath);
        foreach (@badlinks) {
                print "File::Finder Found bad link:$_"."\n";
        }
        print "exiting goFinder($searchpath)\n";
}
sub goFind($) {
        my $searchpath = shift (@_);
        print "in getFileList($searchpath)\n";
        find( { wanted => \&wanted, no_chdir => 1, dangling_symlinks => \&dangling_symlink_handler }, $searchpath);
        print "exiting getFileList($searchpath)\n";
}
sub wanted {
        print "\tWanted Sees This:\n\t".$File::Find::name."\n";
}
sub dangling_symlink_handler {
        print "\tDangling Symlink Handler Sees This:\n\t".$File::Find::name."\n";
}