#!/usr/local/bin/perl

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

use strict;
use POSIX;
use warnings;

# 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
my @files = grep{-f "$dir/$_"} readdir(DIR);


close(DIR);
### my $logmsg = $date/$dir/$file;
my $logmsg = "$date/$dir/$file";

#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";
		print LOGFILE "$logmsg \n";


	}



}
close LOGFILE;