#!/usr/bin/env perl
use strict;
use warnings;
use File::Find;
use POSIX qw/strftime/;
use Getopt::Long;
use Mail::Send;

GetOptions(
   'dir=s' => \my $dir,
   'size=i' => \my $size,
   'addr=s' => \my $addr,
) or die "Invalid parameters\n";

die "Missing --dir\n" unless defined $dir;
die "Missing --size\n" unless defined $size;

my $all_text;
find(\&wanted, $dir);

sub wanted {
   return unless -f;
   return unless -s _ > $size;

   my $last_mod = (stat(_))[9];

   my $dt_string = strftime("%A, %B %e, %Y %I:%M%p", localtime($last_mod));

   print "$File::Find::name => $dt_string\n";
   $all_text .= "$File::Find::name => $dt_string\n" if defined $addr;
}

if (defined $addr) {
   my $mail = Mail::Send->new();
   $mail->to($addr);
   $mail->subject('lallip: IC8 Results');
   my $mail_fh = $mail->open();
   print $mail_fh $all_text;
   $mail_fh->close();
}