diff options
author | Eric S. Raymond <esr@thyrsus.com> | 1999-09-28 13:28:19 +0000 |
---|---|---|
committer | Eric S. Raymond <esr@thyrsus.com> | 1999-09-28 13:28:19 +0000 |
commit | b82b2d3c5d2536c7ac8bd0dd529eea9ef785b9e5 (patch) | |
tree | e28b0474cfe393c151c1c3813c8044326911fb49 | |
parent | 5fea4ae17358fe3c2e413b2ffee40802460387ce (diff) | |
download | fetchmail-b82b2d3c5d2536c7ac8bd0dd529eea9ef785b9e5.tar.gz fetchmail-b82b2d3c5d2536c7ac8bd0dd529eea9ef785b9e5.tar.bz2 fetchmail-b82b2d3c5d2536c7ac8bd0dd529eea9ef785b9e5.zip |
Add metadata comment to generate output.
svn path=/trunk/; revision=2619
-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); |