#!/usr/local/bin/perl

use strict;
use File::Find;

my $mail_to = 'perlmonk@perlmonks.org';
my $subj = 'FTP report';
my $date = scalar localtime;
my @deletions; 

# Let's define the paths.

my $one_month = '/ftp';
my $one_week = '/ftp/ftp/incoming'; 

# Traverse desired filesystems
my $days = 30;
File::Find::find({wanted => \&wanted}, $one_month);
my $days = 7;
File::Find::find({wanted => \&wanted}, $one_week);

# Send the report.
open(MAIL, "|/usr/lib/sendmail -t ") || die "Can't open sendmail: $!";
print MAIL <<MESSAGE;
From: perlmonk
To: $mail_to
Subject: $subj

Weekly FTP policy report for $date 
----------------------------

MESSAGE

# What did we find?

if ($#deletions == 0 ) { 

print MAIL "Nobody violated our FTP policy. No files deleted.";

}
else {


print MAIL "The following files have been deleted:\n\n";

for my $element (@deletions) {
   print MAIL "$element\n";
 }
}

close(MAIL);

sub wanted {
    /software|patch|files/i and $File::Find::prune = 1;
    return if ((-d  $_) || (int(-M $_) < $days));
 
push @deletions, "$File::Find::name";
unlink "$File::Find::name" || die "Can't delete file: $!";
}