15 lines
332 B
Perl
Executable File
15 lines
332 B
Perl
Executable File
#!/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`;
|
|
}
|
|
}
|