###: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;
use POSIX;
# change the below to dlt - dl30	
my $file = "/script_logs/30DyDlt.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(@files);
#my $logmsg = $date/$dir/$file;
#print $logmsg = $date/$dir/$file;
open FILE, ">> $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;