###:WAS Oven1 = '/media/oven_web/iportal/uploads'
# rvsd to oven2 - 4-2009  js
# /oven_web/iportal/uploads
#
# to del files older than 30 days
###  2.28.2008 - js
#!/usr/local/bin/perl

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

use strict;

# change the below to dlt - 

my $dir = '/oven_web/iportal/cgi-bin/uploads2';
my $now2 = localtime time;
my $logfile = "/oven_script/script_logs/30DayDlt-LOG.txt";
open (LOGFILE, ">>$logfile") or die "Cannot open logfile $logfile for append $!";

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

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

close(DIR);

print LOGFILE "$now2 \n";

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 "$dir/$file deleted\n";

	}



}