- Timestamp:
- May 22, 2012, 10:52:35 PM (13 years ago)
- Location:
- branches/fc17-dev
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/fc17-dev
- Property svn:mergeinfo changed
/trunk (added) merged: 2082-2122,2125-2148,2150-2194
- Property svn:mergeinfo changed
-
branches/fc17-dev/host/debian/scripts-syslog-ng-config/d_zroot.pl
r1969 r2195 17 17 @USERS{@USERS} = undef; 18 18 19 sub zwrite($;$$@) { 20 my ($message, $class, $instance, @recipients) = @_; 19 sub zwrite($;$$\@) { 20 my ($message, $class, $instance, $recipref) = @_; 21 my @recipients = (); 22 if (defined($recipref)) { 23 if (@$recipref) { 24 @recipients = @$recipref; 25 } else { 26 $message = '@b(Empty recipient list specified, message redacted)'; 27 $class = $ZCLASS; 28 } 29 } 21 30 $class ||= $ZCLASS; 22 31 $instance ||= 'root.'.hostname; … … 24 33 print ZWRITE $message; 25 34 close(ZWRITE); 35 } 36 37 unless (@RECIPIENTS) { 38 # Also give a warning at startup 39 zwrite('@b(No .k5login found, sensitive logs will not be zephyred)', $ZCLASS); 26 40 } 27 41 … … 120 134 } elsif ($message =~ m|^ *root : TTY=|) { 121 135 } elsif ($message =~ m|^Set /proc/self/oom_adj to |) { 136 } elsif ($message =~ m|^fatal: mm_request_receive: read: Connection reset by peer$|) { 122 137 } else { 123 138 sendmsg($message, "scripts-spew"); … … 126 141 127 142 foreach my $class (keys %toclass) { 128 if ($class eq "scripts-auto") {143 if ($class eq $ZCLASS) { 129 144 zwrite($toclass{$class}, $class); 130 145 } else {
Note: See TracChangeset
for help on using the changeset viewer.