33 lines
718 B
Tcl
Executable file
33 lines
718 B
Tcl
Executable file
#!/usr/local/bin/tclsh8.3
|
|
#
|
|
# $FreeBSD: www/tools/prstats/eval.tcl,v 1.1 2001/10/29 01:58:12 murray Exp $
|
|
#
|
|
|
|
set fi [open "|sort -n _"]
|
|
set fo [open "__" w]
|
|
set v {open feedback analyzed suspended patched closed }
|
|
|
|
foreach i $v {
|
|
set $i 0
|
|
}
|
|
set m 0
|
|
while {[gets $fi a] >= 0} {
|
|
if {![regexp {^[0-9]*$} [lindex $a 1]]} {
|
|
puts "Bogus: $a"
|
|
continue
|
|
}
|
|
if {[catch {eval [string tolower [lindex $a 2]]}]} {
|
|
puts $a
|
|
}
|
|
if {[lindex $a 1] > $m} {
|
|
set m [lindex $a 1].0
|
|
}
|
|
puts -nonewline $fo [clock format [lindex $a 0] -format "%Y/%m/%d %H:%M" -gmt true]
|
|
puts -nonewline $fo " [lindex $a 0]"
|
|
foreach i $v {
|
|
set j [set $i]
|
|
#puts -nonewline $fo " [expr $j / $m]"
|
|
puts -nonewline $fo " $j"
|
|
}
|
|
puts $fo ""
|
|
}
|