3 # Extract information on the fetchmail project size from the NEWS file
5 # Note: this only works if you have a news file from 5.1.1 or later --
6 # I didn't patch the code sizes into NEWS until then.
8 my($release, $date, $jdate);
29 my($wday, $month, $day, $time, $zone, $year) = split(' ', $datestring);
32 # We don't deal with leap years here because the baseline day is after
33 # the last leap year (1996) and there's a long time before the next
35 $jdate = ($year - 1996) * 365;
37 $jdate += $month_offsets{$month};
41 # Baseline day for the size data was Fri Oct 25 23:02:26 EDT 1996
55 # Population data from fetchmail NEWS file, as of $timestamp.
57 # Output other than pass-through % lines is tab-separated fields.
59 # Field 2: count of source lines under version control
60 # Field 3: count of fetchmail-friends subscribers
61 # Field 4: count of fetchmail-announce subscribers
62 # Field 5: total subscribers to both lists
63 # Field 6: date of release (days since first datum)
64 # Field 7: date of release (RFC822 date format)
74 elsif (/^fetchmail-([^ ]*) \(([^)]+)\)(, [0-9]* lines)?:/) {
77 $jdate = &day_offset($date);
79 $lines = substr($3, 2, length($3) - 8);
84 elsif (/There are ([0-9]*) people on fetchmail-friends and ([0-9]*) on fetchmail-announce/) {
86 print "${release}\t${lines}\t$1\t$2\t${sum}\t${jdate}\t${date}\n";
90 elsif (/There are ([0-9]*) people on the fetchmail-friends list./) {
91 print "$release\t${lines}\t$1\t0\t$1\t$jdate\t$date\n";