On May 19, 2012, at 9:39 AM, Chris Nehren wrote:
>
> Suggest something like Log::Dispatch(::Syslog) which is battle-tested,
> reasonably solid, and satisfies the syslog requirement (the fact the
> maintainer is pingable via IRC helps a lot, too).
>
Cool, thanks for the tip.
--
To unsubscrib
On May 18, 2012, at 9:21 PM, Shlomi Fish wrote:
> I read the MetaCPAN page for Tie::Syslog and it appears to not had a release
> since 2002 and it has two open 3-year old bugs. Maybe you should use a better
> maintained module. There are plenty in this search:
>
> https://metacpan.org/search?q=s
I’m running Perl 5.8.8 on AIX 6.1.
Given the following:
use Tie::Syslog;
tie *SENDSYSLOG, 'Tie::Syslog', 'local0.err’;
select SENDSYSLOG;
$|++;
print …
What’s logged to syslog is:
May 18 11:51:39 localhost local0:err|error …
All other logged item
On Nov 26, 2005, at 4:58 AM, John W. Krahn wrote:
You could use perl's built-in getgrnam function to do that:
$ perl -le' $shouldbegid = getgrnam "uucp"; print $shouldbegid'
14
Cool, that's much better. Thanks.
I think you may misunderstand how the & operator works. You are
telling
(($perms->uid == $shouldbeuid) &&
($perms->gid == $shouldbegid) &&
(($perms->mode & $shouldbemode) == $shouldbemode)) {
print "Aborting! Incorrect config file perms!\n";
exit 1
}
On Nov 24, 2005, at 9:37
I've been trying to figure out how to use File::stat to check file
modes but
haven't had much luck understanding how it works from the
documentation. My
goal is to check if a file is owned by a specific user, group owned by a
specific group and has mode 660. I have the uid and gid checks dow
