From c01264b3907188b79ac33d000993ebf964e14a78 Mon Sep 17 00:00:00 2001
From: Neil Williams <codehelp@debian.org>
Date: Fri, 19 Nov 2021 10:56:07 +0000
Subject: Improve check-new-issues for new users

Print the supported commands before entering interactive mode.
Skip if only listing the CVEs
---
 bin/check-new-issues | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/bin/check-new-issues b/bin/check-new-issues
index 649d0abcb1..3a0ceef5cb 100755
--- a/bin/check-new-issues
+++ b/bin/check-new-issues
@@ -12,13 +12,14 @@ getopts('ln:fhi:t:Tca:e:uUsDb', \%opts);
 sub print_commands {
     print <<'EOF';
   * blank line to skip to next issue
+  * .h to repeat this help output of the list of commands
   * .fname to do "apt-file search name"
   * .cname to do "apt-cache search name"
   * .wname to look up name in wnpp
   * .mpackage to search data/embedded-code-copies for "package"
   * .rpackage to launch an editor with a report of the issue against "package"
   * .gissue to go to the given issue, even if it's not a todo
-  * d to display again the issue information
+  * d to display the issue information again
   * !command to execute a command with system() without any escaping
   * v or e to launch an editor with the current item
   * - package-entry to add an entry for "package" and launch an editor (e.g. - poppler <unfixed>)
@@ -30,7 +31,7 @@ EOF
 
 if ($opts{h}) {
     print <<'EOF';
-downloads allitems.txt from cve.mitre.org and shows full decription for each
+downloads allitems.txt from cve.mitre.org and shows full description for each
 "TODO: check" item (2003 and newer). Then
 
 - tries to guess product name and php filename and does 
@@ -164,7 +165,7 @@ foreach my $entry (@{$entries}) {
 		$name=$1;
 	}
 	else {
-		die "invlid entry:\n$entry";
+		die "invalid entry:\n$entry";
 	}
 	if (!$opts{l} && $entry =~ /^\s+-\s+([^\s]+)/m ) {
 	    my $pkg = $1;
@@ -198,6 +199,12 @@ print ", $num_todo todos matching /$todo_regexp/" if $num_todo;
 print ", $num_missing_bug entries with missing bug reference" if $num_missing_bug;
 print "\n";
 
+print "Commands:\n";
+if ((! $opts{l}) and (! $opts{b})) {
+    print_commands;
+}
+print "\n";
+
 if ($opts{l}) {
 	#list only
 	foreach my $todo (sort {$b <=> $a} @todos) {
-- 
cgit v1.2.3