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

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

    $messages = makefilename("/var/log/messages");
    $bootlog = makefilename("/var/log/boot.log");
    $secure = makefilename("/var/log/secure");
    $cron = makefilename("/var/log/cron");
    $spooler = makefilename("/var/log/spooler");
    $maillog = makefilename("/var/log/maillog");
    "";
}
