Require a version string for perl scripts that use autogen

bk: 52e62b024SuUzf3IpAl1C2WjWs3gIw

diff --git a/ChangeLog b/ChangeLog
index e8d61c32cd403ea8fbcff0e093c2f48daf8249d1..a35cb7339dc3b9c2279177337d62775959c48b4a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,5 @@
-* html/ cleanup
+* Require a version string for perl scripts that use autogen.
+* html/ cleanup.
 (4.2.7p412) 2014/01/20 Released by Harlan Stenn <stenn@ntp.org>
 * [Bug 2540] bootstrap script needs to 'touch' files in finer-grained groups.
 (4.2.7p411) 2014/01/12 Released by Harlan Stenn <stenn@ntp.org>

diff --git a/sntp/ag-tpl/perlopt.tpl b/sntp/ag-tpl/perlopt.tpl
index 476e4c30e5abb7530d6786c8a9142a1d27a6dc75..4ec1c85194b368fb2f7a2ebae8cc452084910931 100644 (file)
--- a/sntp/ag-tpl/perlopt.tpl
+++ b/sntp/ag-tpl/perlopt.tpl
@@ -7,9 +7,10 @@
 # DO NOT EDIT THE FOLLOWING
 #
 # It's auto generated option handling code [=
-(if (not (and (exist? "prog-name") (exist? "prog-title")))
+(if (not (and (exist? "prog-name") (exist? "prog-title") (exist? "version")))
     (error "prog-name and prog-title are required"))
 (define prog-name (get "prog-name"))
+
 (if (> (string-length prog-name) 16)
     (error (sprintf "prog-name limited to 16 characters:  %s"
            prog-name)) ) 
@@ -146,7 +147,7 @@ sub processOptions {
         'help|?', 'more-help'));
 
     $usage = <<'USAGE';
-[= prog-name =] - [= prog-title =]
+[= prog-name =] - [= prog-title =] - Ver. [= version =]
 USAGE: [= prog-name =] [ -<flag> [<val>] | --<name>[{=| }<val>] ]... [= argument =]
 [= (emit perl_usage ) =]
     -?, --help                   Display usage information and exit