
# JStrack:  copyright 1997/2008 by Jim Graham, N5IAL, all rights reserved.

puts {package require Tcl 8}
puts {package require fileutil 1.4}
puts ""

foreach fn [list timestamp.disc timestamp.marine timestamp.public timestamp.strike] {
   puts "set f \[open $fn w] ; close \$f"
   puts "::fileutil::touch -c -t [file mtime $fn] $fn"
}

