Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
use File::Tail;
my @errors = (’Bad protocol version identification’,'Failed password’,'Did not receive identification string’);
my $line;
my $file = File::Tail->new(”/var/log/auth.log”);
while (defined($line=$file->read)) {
if ($line =~ /$errors[0]|$errors[1]|$errors[2]/) {
open(SSHALERT, “>/tmp/sshalert.txt”);
print SSHALERT “$line”;
system (’mplayer some_loud_audio_file.mp3′);
system (’mutt -s ALERT-SSH -c someuser@somedomain.com < /tmp/sshalert.txt’);
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.