16c51f9fbc
Move the legend over to the upper left hand side, so it doesn't obscure part of the generated graphs. Obtained from: http://phk.freebsd.dk/Gnats Approved by: phk
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
|
|
}
|
|
}
|