282a032540
- Repocopy from www/<lang> to head/<lang>/htdocs to eliminate duplicate information in the www and the doc directory. - Add various administration files to svnadmin. Approved by: doceng (implicit)
15 lines
249 B
Tcl
Executable file
15 lines
249 B
Tcl
Executable file
#!/usr/local/bin/tclsh8.3
|
|
#
|
|
# $FreeBSD$
|
|
#
|
|
|
|
set t [clock seconds]
|
|
set t0 [expr $t - [lindex $argv 0] * 86400]
|
|
|
|
set fi [open [lindex $argv 1]]
|
|
set fo [open [lindex $argv 2] w]
|
|
while {[gets $fi a] >= 0} {
|
|
if {[lindex $a 2] > $t0} {
|
|
puts $fo $a
|
|
}
|
|
}
|