#!/usr/bin/perl

use strict;

my $DIRSEP = '\\';	# FIXME  This is for DOS/Windows.  Make this more portable.


open(OUT, '>fileout.txt') or die "Couldn't open the " .
	"fileout.txt file for writing.\n";
&CheckFileAccess('.');
close(OUT);

exit;


sub CheckFileAccess() {
	my $BaseDir = $_[0];
	opendir(HERE, $BaseDir);
	my @AllFiles = readdir(HERE);
	closedir(HERE);

	# Pass 1 for files, Pass 2 for directory recursion
	for (my $curpas = 0; $curpas < 2; $curpas++) {
		foreach my $Name (@AllFiles) {
			my $RelName = $BaseDir . $DIRSEP . $Name;
			if (!$curpas) {
				# Process Files only; if directory skip to next filename
				if(-d $RelName) { next }
				my $FileAcc = sprintf('%3d', -A $RelName);
				# Check for files that have been accessed in the last 10 days
				if ($FileAcc <= 10) {
					print "$RelName ";
					print "File was last Accessed ", $FileAcc, " days ago\n";
					# ---------------------------------------------------------
					# DANGER  printf could have produced interesting and
					# unexpected results here, so I changed it to print.
					# ---------------------------------------------------------
					# printf OUT $Name . "\n";
					print OUT $RelName . "\n";
				} else {
					print $RelName, " File was Accessed more than 10 days ago\n";
				}
			} else {
				# Process Directories only
				if(-d $RelName) {
					# Skip danger directories
					if ($Name eq '.')	{ next }
					if ($Name eq '..')	{ next }
					# Good to go -- prepare for recursive call
					&CheckFileAccess($RelName);
				}
			}
		}
	}
}