allow one to go to a specific issue (ex. .gCVE-2017-1234)

git-svn-id: svn+ssh://svn.debian.org/svn/secure-testing@56824 e39458fd-73e7-0310-bf30-c45bca0a0e42

1 files changed, 16 insertions, 1 deletions

diff --git a/bin/check-new-issues b/bin/check-new-issues
index 0adf6457a2..9e57271aa0 100755
--- a/bin/check-new-issues
+++ b/bin/check-new-issues
@@ -17,6 +17,7 @@ sub print_commands {
   * .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
   * !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>)
@@ -227,7 +228,7 @@ if ($term->ReadLine() eq 'Term::ReadLine::Stub') {
 
 my $attribs = $term->Attribs;
 
-my @completion_commands = qw(.f .c .w .m .r ! v e - .help q);
+my @completion_commands = qw(.f .c .w .m .r .g ! v e - .help q);
 $attribs->{completer_word_break_characters} = ' ';
 
 sub initial_completion {
@@ -334,6 +335,20 @@ sub present_issue {
 			search_embed($s) or print "none\n";
 			next READ;
 		}
+		elsif ($r=~ /^\.g(.+)$/ ) {
+			my $n = $1;
+			$n =~ s/^\s*(.*?)\s*$/$1/;
+			if (!exists($data->{$n})) {
+				print "unknown issue '$n'\n";
+				next READ;
+			}
+			unless (present_issue($n)) {
+				$quit = 1;
+				last READ;
+			}
+			print "back at $name\n";
+			next READ;
+		}
 		elsif ($r=~ /^\.h/i ) {
 			print_commands;
 			next READ;