diff options
| -rwxr-xr-x | timeseries | 25 |
1 files changed, 16 insertions, 9 deletions
@@ -5,15 +5,6 @@ # Note: this only works if you have a news file from 5.1.1 or later -- # I didn't patch the code sizes into NEWS until then. # -# Output other than pass-through % lines is tab-separated fields. -# Field 1: release ID -# 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); %month_offsets = ( @@ -54,9 +45,25 @@ sub day_offset } open(NEWS, "NEWS"); +$timestamp = `date`; +chop $timestamp; $release = "unknown"; +$lines = "unknown"; $date = "unknown"; $jdate = "unknown"; +print <<EOF; +# Population data from fetchmail NEWS file, as of $timestamp. +# +# Output other than pass-through % lines is tab-separated fields. +# Field 1: release ID +# 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) +# +EOF while ($_ = <NEWS>) { my($sum); |