From 39b74d2335b8c08e6d1945a59ba02fdec3aa7ae8 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Sat, 25 Sep 1999 16:48:50 +0000 Subject: WEe have as much size info as we're going to get. svn path=/trunk/; revision=2605 --- timeseries | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) (limited to 'timeseries') diff --git a/timeseries b/timeseries index fbae1a9b..f7d534d0 100755 --- a/timeseries +++ b/timeseries @@ -4,11 +4,12 @@ # # Output other than pass-through % lines is tab-separated fields. # Field 1: release ID -# Field 2: count of fetchmail-friends subscribers -# Field 3: count of fetchmail-announce subscribers -# Field 4: total subscribers to both lists -# Field 5: date of release (days since first datum) -# Field 6: date of release (RFC822 date format) +# Field 2: count of source lines under version control +# Field 3: count of fetchmail-friends subscribers +# Field 4: count of fetchmail-announce subscribers +# Field 5: total subscribers to both lists +# Field 6: date of release (days since first datum) +# Field 7: date of release (RFC822 date format) # my($release, $date, $jdate); @@ -60,19 +61,24 @@ while ($_ = ) if (/^%/) { print $_; } - elsif (/^fetchmail-([^ ]*) \(([^)]+)\):?/) { + elsif (/^fetchmail-([^ ]*) \(([^)]+)\)(, [0-9]* lines)?:/) { $release = $1; $date = $2; $jdate = &day_offset($date); + if ($3) { + $lines = substr($3, 2, length($3) - 8); + } else { + $lines = 'na' + } } elsif (/There are ([0-9]*) people on fetchmail-friends and ([0-9]*) on fetchmail-announce/) { $sum = $1 + $2; - print "${release}\t$1\t$2\t${sum}\t${jdate}\t${date}\n"; + print "${release}\t${lines}\t$1\t$2\t${sum}\t${jdate}\t${date}\n"; $release = "unknown"; $date = "unknown"; } elsif (/There are ([0-9]*) people on the fetchmail-friends list./) { - print "$release\t$1\t0\t$1\t$jdate\t$date\n"; + print "$release\t${lines}\t$1\t0\t$1\t$jdate\t$date\n"; $release = "unknown"; $date = "unknown"; } -- cgit v1.2.3