[Secure-testing-commits] r56824 - bin

[Raphael Geissert]

Author: geissert
Date: 2017-10-18 15:03:44 +0000 (Wed, 18 Oct 2017)
New Revision: 56824

Modified:
   bin/check-new-issues
Log:
allow one to go to a specific issue (ex. .gCVE-2017-1234)


Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues	2017-10-18 15:00:21 UTC (rev 56823)
+++ bin/check-new-issues	2017-10-18 15:03:44 UTC (rev 56824)
@@ -17,6 +17,7 @@
   * .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 @@
 
 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 @@
 			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;