#!/usr/bin/perl -w

# ssh_logs.pl - by dual
#
# Mail daily sshd logs
#######################


use strict;


# Set date variables
chomp (my $mon = `date +%b`);
chomp (my $day = `date +%e`);


# Grep log
my @log = `grep sshd /var/log/messages`;


# Mail today's log entries
open MAIL, "|/bin/mail -s \"SSH Logs for $mon $day\" EMAIL\@HOST"
	or die "Can't pipe: $!";

foreach my $line (@log) {
	if ($line =~ /^$mon\s+$day/) {
		chomp ($line);
		print MAIL "$line\n";
	}
}

print MAIL "\n";

close MAIL;