Changeset 2066 for trunk/server/fedora/config/etc/syslog-ng/d_zroot.pl
- Timestamp:
- Nov 22, 2011, 12:45:17 AM (13 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:mergeinfo changed
-
trunk/server/fedora/config/etc/syslog-ng/d_zroot.pl
r1747 r2066 32 32 sub buildKeyMap($) { 33 33 my ($file) = @_; 34 open (KEYS, $file) or warn "Couldn't open $file: $!";34 open (KEYS, $file) or (warn "Couldn't open $file: $!\n" and return); 35 35 while (<KEYS>) { 36 36 chomp; … … 58 58 buildKeyMap("/root/.ssh/authorized_keys2"); 59 59 60 while (1) { 61 my @message = scalar(<>); 60 my @message; 61 62 while (my $line = <>) { 63 @message = $line; 62 64 eval { 63 65 local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required … … 80 82 } elsif ($message =~ m|Root (\S+) shell|) { 81 83 sendmsg($message); 82 } elsif ($message =~ m| session \S+ for user (\S+)|) {83 sendmsg($message) if exists $USERS{$1};84 } elsif ($message =~ m|pam_unix\(([^:]+):session\): session \S+ for user (\S+)|) { 85 sendmsg($message) if $1 ne "cron" and exists $USERS{$2}; 84 86 } elsif ($message =~ m|^Found matching (\w+) key: (\S+)|) { 85 87 if ($sshkeys{$2}) { … … 117 119 } elsif ($message =~ m|^ *root : TTY=|) { 118 120 } elsif ($message =~ m|^Set /proc/self/oom_adj to |) { 121 } elsif ($message =~ m|^fatal: mm_request_receive: read: Connection reset by peer$|) { 119 122 } else { 120 123 sendmsg($message, "scripts-spew");
Note: See TracChangeset
for help on using the changeset viewer.