Monitor a directory and complain if there are any entries older than a specified number of seconds

monitordir.tcl

# Monitor a directory for files older than a specified number of seconds
# Usage example: tclsh monitordir.tcl \\fgbsamfvcs1n42\N42_Ex18_PremBulltoFM\bbc_minute 120

proc monitordir {path max_age} {
	if {![file isdirectory $path]} {
		puts stderr "$path not found or is not a directory"
		exit 1
	}
	set files [glob -nocomplain -directory $path *]
	# if the folder is empty all is OK
	if {[llength $files] == 0} {
		exit 0
	}
	set now [clock seconds]
	foreach file $files {
		set age [expr $now - [file mtime $file]]
		if { $age > $max_age } {
			puts "$file has been here for $age seconds which is too long"
			exit 1
		}
	}
}

if {$argc != 2} {
    puts "Usage: [info nameofexecutable] $argv0 DIRNAME SECONDS"
    exit 1
}

set path [lindex $argv 0]
set max_age [lindex $argv 1]
monitordir $path $max_age