From b82b2d3c5d2536c7ac8bd0dd529eea9ef785b9e5 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Tue, 28 Sep 1999 13:28:19 +0000
Subject: Add metadata comment to generate output.

svn path=/trunk/; revision=2619
---
 timeseries | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/timeseries b/timeseries
index 4afdea1f..7a20c4c2 100755
--- a/timeseries
+++ b/timeseries
@@ -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);
-- 
cgit v1.2.3