Changeset 2096 for trunk/host/debian/scripts-syslog-ng-config
- Timestamp:
- Dec 17, 2011, 3:05:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/host/debian/scripts-syslog-ng-config/d_zroot.pl
r2095 r2096 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 … … 127 141 128 142 foreach my $class (keys %toclass) { 129 if ($class eq "scripts-auto") {143 if ($class eq $ZCLASS) { 130 144 zwrite($toclass{$class}, $class); 131 145 } else {
Note: See TracChangeset
for help on using the changeset viewer.