| #!
/usr/local/bin/perl -w # Routine to ignore "normal" log entries - after Marcus Ranum's # "artificial ignorance" # while (<>) { if (/.*popper\[.*: connect from /} { next } elsif (/.*sshd\[.*log:.*accepted/} { next } elsif (/.*telnetd\)[*.: connect from /} { next } elsif (/.*sshd\[.* log: RSA key.*complete/) { next } elsif (/.*sshd\[.* log: Generating.*key/) { next } elsif (/.*sshd\[.* log: Closing connection/) { next } elsif (/.*ftpd\[.*: connect from/) { next } else {print} } |
|
| ] | |
| [Optional] | |
| [Optional] | |