package Sman::Man::Find; 
#$Id: Find.pm,v 1.11 2005/09/02 21:29:26 joshr Exp $

use File::Find; 
use strict;
use warnings;

# to be called like "my @files = Sman::Man::Find::FindManFiles()" 
sub FindManFiles {  # get manfiles in MANPATH
	my ($manpath, $matchregex) = @_;
    my @files;
    chomp($manpath ||= $ENV{MANPATH} || `manpath` || '/usr/share/man');

	#$matchregex = 'man/man.*\.' unless defined $matchregex;

	my @dirs =  split(/:/, $manpath);
	for my $dir (@dirs) {
		next unless ($dir && -e $dir && (-d $dir || -l $dir));	# skip non-existent dirs
		File::Find::find( sub { 
		  my $n = $File::Find::name;
		  push @files, $n 
		  if -f $n && $n =~ m!man/man.*\.!
	   }, $dir ); 
	}
	return @files;
} 

1;

=head1 NAME

Sman::Man::Find - Find manpage files for indexing by sman-update

=head1 SYNOPSIS

  my @manfiles = Sman::Man::Find::FindManFiles();
	
=head1 DESCRIPTION

Provides a single function, FindManFiles(), which looks for man-like files
along the passed manpath, or the env var MANPATH, or the output of manpath,
whichever is defined first. If none is defined, /usr/share/man is used as the
manpath.

=head1 AUTHOR

Josh Rabinowitz <joshr>

=head1 SEE ALSO

L<sman-update>, L<sman>, L<sman.conf>

=cut