#!/usr/bin/perl
#
# Utility to reset time stamps based on old files
#

$basedir = "/usr/local/actsreleases/acts-R-22Jan2002-2352PM/smtm/httpd/secure_html/tests/complete";

foreach $testfile (@ARGV) {
	$basefile = "$basedir" . "/" . "$testfile";
	if (-f $basefile) {
		`touch -r $basefile $testfile`;
		print `ls -l $testfile`;
	}
}