diff --git a/share/tools/prstats/Makefile b/share/tools/prstats/Makefile deleted file mode 100644 index 5de6d4f53f..0000000000 --- a/share/tools/prstats/Makefile +++ /dev/null @@ -1,46 +0,0 @@ -# -# $FreeBSD$ -# - -.if exists(../../../en_US.ISO8859-1/Makefile.conf) -.include "../../../en_US.ISO8859-1/Makefile.conf" -.endif -.if exists(../../../en_US.ISO8859-1/Makefile.inc) -.include "../../../en_US.ISO8859-1/Makefile.inc" -.endif - -DOC_PREFIX?= ${.CURDIR}/../../.. -GNATSDIR?= /c/gnats -PRGRAPHDIR?= ${DESTDIR}${WEBBASE}/prstats -GNUPLOT?= /usr/local/bin/gnuplot - -GRAPHS= gnats.png -GRAPHS+= gnats1.png gnats1r.png -GRAPHS+= gnats30.png gnats30r.png -GRAPHS+= gnats365.png gnats365r.png -GRAPHS+= gnats7.png gnats7r.png -CLEANFILES= ${GRAPHS} -CLEANFILES+= _ __ __1 __30 __365 __7 - -INSTALL_WEB?= \ - ${INSTALL} ${COPY} ${INSTALLFLAGS} -o ${WEBOWN} -g ${WEBGRP} -m ${WEBMODE} - -all: - ./go.tcl ${GNATSDIR} - ./eval.tcl - ./cut.tcl 365 __ __365 - ./cut.tcl 30 __ __30 - ./cut.tcl 7 __ __7 - ./cut.tcl 1 __ __1 - ${GNUPLOT} g - -install: ${GRAPHS} -.for entry in ${GRAPHS} -.if exists(${.CURDIR}/${entry}) - ${INSTALL_WEB} ${.CURDIR}/${entry} ${PRGRAPHDIR} -.else - ${INSTALL_WEB} ${entry} ${PRGRAPHDIR} -.endif -.endfor - -.include "${DOC_PREFIX}/share/mk/web.site.mk" diff --git a/share/tools/prstats/cut.tcl b/share/tools/prstats/cut.tcl deleted file mode 100755 index 85ee45a134..0000000000 --- a/share/tools/prstats/cut.tcl +++ /dev/null @@ -1,15 +0,0 @@ -#!/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 - } -} diff --git a/share/tools/prstats/eval.tcl b/share/tools/prstats/eval.tcl deleted file mode 100755 index 9a32262694..0000000000 --- a/share/tools/prstats/eval.tcl +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/local/bin/tclsh8.3 -# -# $FreeBSD$ -# - -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 "" -} diff --git a/share/tools/prstats/g b/share/tools/prstats/g deleted file mode 100644 index 170e8e780b..0000000000 --- a/share/tools/prstats/g +++ /dev/null @@ -1,61 +0,0 @@ -# $FreeBSD$ -# -set term png small -set xdata time -set timefmt "%Y/%m/%d %H:%M" -set data style line -set grid -set key left - -set output "gnats.png" -set format x "%Y" -plot '__' using 1:4 title "open", \ - '__' using 1:5 title "feedback", \ - '__' using 1:6 title "analyzed" , \ - '__' using 1:7 title "suspended", \ - '__' using 1:8 title "patched" - -set output "gnats1.png" -set format x "%H:%M" -plot '__1' using 1:4 title "open" with linespo, \ - '__1' using 1:5 title "feedback", \ - '__1' using 1:6 title "analyzed" , \ - '__1' using 1:7 title "suspended", \ - '__1' using 1:8 title "patched" - -set output "gnats1r.png" -plot '__1' using 1:4 title "open" with linespo - -set output "gnats7.png" -set format x "%m/%d" -plot '__7' using 1:4 title "open", \ - '__7' using 1:5 title "feedback", \ - '__7' using 1:6 title "analyzed" , \ - '__7' using 1:7 title "suspended", \ - '__7' using 1:8 title "patched" - -set output "gnats7r.png" -plot '__7' using 1:4 title "open" - -set output "gnats30.png" -set format x "%Y/%m/%d" -plot '__30' using 1:4 title "open", \ - '__30' using 1:5 title "feedback", \ - '__30' using 1:6 title "analyzed" , \ - '__30' using 1:7 title "suspended", \ - '__30' using 1:8 title "patched" - -set output "gnats30r.png" -plot '__30' using 1:4 title "open" - -set output "gnats365.png" -set format x "%Y/%m/%d" -plot '__365' using 1:4 title "open", \ - '__365' using 1:5 title "feedback", \ - '__365' using 1:6 title "analyzed" , \ - '__365' using 1:7 title "suspended", \ - '__365' using 1:8 title "patched" - -set output "gnats365r.png" -plot '__365' using 1:4 title "open" - diff --git a/share/tools/prstats/go.tcl b/share/tools/prstats/go.tcl deleted file mode 100755 index 48b0820588..0000000000 --- a/share/tools/prstats/go.tcl +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/local/bin/tclsh8.3 -# -# $FreeBSD$ -# -# This script expects the directory of a GNATS database as its sole argument. - -set gnatsdir [lindex $argv 0] -set fo [open _ w] -proc PR {fn} { - global fo - - set n [lrange [split $fn /] end end] - set openrc [catch {set fi [open $fn]} openerr] - if {$openrc != 0} {return $openrc} - while {[gets $fi a] >= 0} { - if {[string range $a 0 12] == "State-Changed"} { - if {[lindex $a 0] == "State-Changed-When:"} { - set t [clock scan [lrange $a 1 end]] - #puts "* $t" - } - if {[lindex $a 0] == "State-Changed-From-To:"} { - regsub {\->*[ ]*} [lrange $a 1 end] { } d - set b [lindex $d 1] - set c [lindex $d 0] - if {$b == "" || $c == ""} { - puts stderr "$n <$a> <$d> <$b> <$c>" - break - } - #puts "* - $c + $b" - } - if {[lindex $a 0] == "State-Changed-Why:"} { - puts $fo "$t $n {incr $c -1 ; incr $b}" - } - } elseif {[string range $a 0 13] == ">Arrival-Date:"} { - #puts "* $a" - puts $fo "[clock scan [lrange $a 1 end]] $n {incr open}" - } else { - #puts $a - } - } - close $fi -} - - -append gnatsdir {/*/*[0-9]} -foreach pr [glob $gnatsdir] { - PR $pr -}