{
    sub makelogfilename
    {
	use File::Basename;
	my $filename = shift;

	return $filename unless (-l $filename);
	my $link = readlink $filename;
	my $directory = dirname($filename);
	return "${directory}/${link}";
    }
    "";
}
