#!/usr/bin/perl -w
use Fcntl ':mode';

# Files equal or older to $purgedays will be erased
$purgedays=3;

# This is the directory where you keep you'r ipod encoded files
$workdir="/myth/ipodfeed";


$purgediff=$purgedays*3600;
$now=time();

opendir(DIR,$workdir) or die "Can't Open directory: $workdir!!!";
@FILES=grep(/\.mp4$/, readdir(DIR));

foreach $file (@FILES)
{

    $filename="$workdir/$file";
    $atime = (stat($filename))[8];

    $timediff=$now - $atime;

    if ( $timediff >  $purgediff )
    {
       ($xmlfile) = split(/\./,$file);
       $xmlpath="$workdir/$xmlfile.ipod.xml";
       unlink($filename) or die "Can't delete file : $filename!";
       unlink($xmlpath) or die "Can't delete file : $xmlpath!";
    }

}

#!/bin/bash

purgedays=3

workdir="/myth/ipodfeed"

if [ ! -d "$workdir" ]; then
        echo "Can't Open directory: $workdir!!!"
        exit 0
fi

find "$workdir" -name \*.mp4 -mtime +"$purgedays" -exec rm {} \;
find "$workdir" -name \*.xml -mtime +"$purgedays" -exec rm {} \;

exit 0

#!/bin/bash

purgedays=3

workdir="/myth/ipodfeed"

if [ ! -d "$workdir" ]; then
        echo "Can't Open directory: $workdir!!!"
        exit 0
fi

find "$workdir" -name \*.mp4 -mtime +"$purgedays" -exec rm {} \;
find "$workdir" -name \*.xml -mtime +"$purgedays" -exec rm {} \;

exit 0