#!/usr/bin/perl -w
# use: cleanup.pl 2
# deletes all files older than 2 days..

use strict;

die "Age in days! --> cleanup 2 CGI\n" unless $ARGV[0];

print "Deleting files older than $ARGV[0] days...\n";
sleep(10);

opendir(D, ".") or die $!;

my $time = time();

while (my $f = readdir(D)) {
        next if $f =~ /^\./;

        my ($atime, $mtime, $ctime) = (stat($f))[8..10];
        my $age_hours = ($time - $mtime) / 3600;
        my $age_days  = int($age_hours / 24);

        next unless $age_days > $ARGV[0];

        print "---> Deleting $f ($age_days days)...";
        unlink $f;
        print " done\n";
}