os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

o Perform error checking on the open of a PR. If it fails, then skip it

Browse source 
and continue.

o Refine the glob pattern so that only real PRs are included.

Tested by:	kuriyama
This commit is contained in:
Ceri Davies 2003-07-15 17:42:58 +00:00
parent 7d2d9eafcc
commit 127320880a
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=17561
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tools/prstats/go.tcl
View file

@ -1,6 +1,6 @@
#!/usr/local/bin/tclsh8.3
#
# $FreeBSD: www/tools/prstats/go.tcl,v 1.1 2001/10/29 01:58:12 murray Exp $
# $FreeBSD: www/tools/prstats/go.tcl,v 1.2 2001/11/18 16:11:34 murray Exp $
#
# This script expects the directory of a GNATS database as its sole argument.
@ -10,7 +10,8 @@ proc PR {fn} {
global fo
set n [lrange [split $fn /] end end]
set fi [open $fn]
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:"} {
@ -41,7 +42,7 @@ proc PR {fn} {
}
append gnatsdir {/*/[1-9]*}
append gnatsdir {/*/*[0-9]}
foreach pr [glob $gnatsdir] {
PR $pr
}