view release on metacpan or  search on metacpan

lib/Morale.pm  view on Meta::CPAN

#
# morale_file()
#

sub morale_file
{
	my ($user) = @_;
	my $dir;
	my @check;

	if (!defined($user)) { $user = (getpwuid($>))[0]; }

	$dir = (getpwnam($user))[7];
	
	push @check, "/var/morale/$user";
	push @check, "$dir/.morale";

	foreach (@check) { if (-r $_) { return $_; } }

	return "$dir/.morale";
}