You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
332 B
14 lines
332 B
#!/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`;
|
|
}
|
|
}
|
|
|