[ic] Safe trap info

[Mike Heins]

Quoting Steve & Patti Getzinger (steveandpatti@wubs.org):
> jojo@buchonline.net wrote:
> I have not looked at the user tag but the files I am checking are .rm files
> residing in the Content area of the realserver. Guessing (just guessing) by
> the name that applies to the db files for IC. I will look into it though as
> it may be just what the doctor ordered. I appreciate all the feed about Safe
> from everyone.
> 

There are some UI tags which help here. For instance, if you set
SafeUntrap to "rand ftmtime" in interchange.cfg, you can do:

[set allowed_days]7[/set]

[loop list="[list-glob content/*.rm]"]
[loop-sub testfile]
	my $fn = shift;
	return "Not existant?" unless -f $fn;
	return "OK" if -M $fn <= $Scratch->{allowed_days};
	return "File $fn is older than $Scratch->{allowed_days} days.\n";
[/loop-sub]
[loop-code]: [loop-exec testfile][loop-code][/loop-exec]<BR>
[/loop]

-- 
Akopia, Inc., 131 Willow Lane, Floor 2, Oxford, OH  45056
phone +1.513.523.7621 fax 7501 <heins@akopia.com>

For a successful technology, reality must take precedence over public
relations, for Nature cannot be fooled. -- Dick Feynman