blob: bb61cff889e440545ba3d2b0d051220a5309ea06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
--- brag Tue Feb 11 04:05:10 2003
+++ brag-1.2.9-gentoo Mon Feb 10 02:09:12 2003
@@ -458,6 +458,7 @@
variable combine
variable combineServers
variable total
+ variable max
variable getSingle
variable threads
variable decoders
@@ -536,6 +537,10 @@
incr i
set threads [lindex $argList $i]
}
+ "-m" {
+ incr i
+ set max [lindex $argList $i]
+ }
default {
usage
}
@@ -686,7 +691,7 @@
if {$lastSaved > $first} {
set first $lastSaved
}
- set total [expr {$last - $first + 1}]
+
print "Server: $server"
print "Group: $group"
@@ -695,7 +700,12 @@
print "Accept: [list $accept]"
print "Reject: [list $reject]"
print "First: $first"
- print "Last: $last"
+ print "Last Message Found: $last"
+ if {[info exists max] && [expr {$last - $first}] > $max} {
+ set last [expr $first + $max - 1]
+ print "Last (max limited): $last"
+ }
+ set total [expr {$last - $first + 1}]
if {$first > $last} {
exit 0
|