Changeset 783

Timestamp:

Aug 2, 2008, 5:17:54 PM (16 years ago)

Author:

geofft

Message:

Make d_zroot.pl zephyr people in the .k5login in personals

File:

• server/fedora/config/etc/syslog-ng/d_zroot.pl (modified) (1 diff)

server/fedora/config/etc/syslog-ng/d_zroot.pl

@@ -9 +9 @@
 our $ZCLASS = "scripts-auto";
 our @USERS = qw/root logview/;
+my $k5login;
+open $k5login, '/root/.k5login';
+our @RECIPIENTS = map {chomp; m|([^/@]*)| && $1} <$k5login>;
+close $k5login;
 
 our %USERS;
 @USERS{@USERS} = undef;
 
-sub zwrite($;$$) {
-    my ($message, $class, $instance) = @_;
+sub zwrite($;$$@) {
+    my ($message, $class, $instance, @recipients) = @_;
     $class ||= $ZCLASS;
     $instance ||= 'root.'.hostname;
-    open(ZWRITE, "|-", qw|/usr/bin/zwrite -d -O log -c|, $class, '-i', $instance, '-s', hostname) or die "Couldn't open zwrite";
+    # @recipients ||= @RECIPIENTS;
+    open(ZWRITE, "|-", qw|/usr/bin/zwrite -d -n -O log -c|, $class, '-i', $instance, '-s', hostname, @RECIPIENTS) or die "Couldn't open zwrite";
     print ZWRITE $message;
     close(ZWRITE);