#!/usr/local/bin/perl
#  now WITH Log Handler

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;
use Log::Handler::Simple;

my $log = Log::Handler::Simple->new(
       filename => '/script_logs/30DyDlt-LOG.txt',
       mode     => 'append',
       newline  => 1,
       maxlevel => 7,
       minlevel => 0
    );



# change the below to dlt - dl30	
## my $logfile = "/script_logs/30DyDlt-LOG.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files here

close(DIR);
### my $logmsg = $date/$dir/$file;
###my $logmsg = "$date/$dir/$file";
$log->info

#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for append $!";


foreach my $file(@files)

{

	my $now = time;

	my @stat = stat("$dir/$file");


	if ($stat[9] < ($now - 2592000))

	{

		print "Deleting $dir/$file...";

		#unlink("$dir/$file");

		#print "Done.\n";
		$log->info("$date/$dir/$file");




	}



}
close LOGFILE;