[Secure-testing-commits] r56825 - bin

[Raphael Geissert]

Author: geissert
Date: 2017-10-18 15:13:49 +0000 (Wed, 18 Oct 2017)
New Revision: 56825

Modified:
   bin/check-new-issues
Log:
Add a command 'd' to display the information again


Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues	2017-10-18 15:03:44 UTC (rev 56824)
+++ bin/check-new-issues	2017-10-18 15:13:49 UTC (rev 56825)
@@ -18,6 +18,7 @@
   * .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
   * !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>)
@@ -228,7 +229,7 @@
 
 my $attribs = $term->Attribs;
 
-my @completion_commands = qw(.f .c .w .m .r .g ! v e - .help q);
+my @completion_commands = qw(.f .c .w .m .r .g ! v e - .help q d);
 $attribs->{completer_word_break_characters} = ' ';
 
 sub initial_completion {
@@ -282,8 +283,7 @@
 	my $name = shift;
 	my $quit = 0;
 
-	print ${$data->{$name}->{CVE}} if $data->{$name}->{CVE};
-	print ${$data->{$name}->{entry}};
+	print_full_entry($name);
 
 	if ($data->{$name}->{CVE}) {
 		my $nfu_entry = auto_nfu($name);
@@ -346,7 +346,7 @@
 				$quit = 1;
 				last READ;
 			}
-			print "back at $name\n";
+			print "back at $name (you might want to type 'd')\n";
 			next READ;
 		}
 		elsif ($r=~ /^\.h/i ) {
@@ -374,6 +374,10 @@
 				last READ;
 			}
 		}
+		elsif ($r=~ /^d\s?$/i ) {
+			print_full_entry($name);
+			next READ;
+		}
 		elsif ($r=~ /^(\-\s+.+)$/ ) {
 			my @comps=split /\s+/, $1;
 			push @comps, '<unfixed>'
@@ -413,6 +417,13 @@
 	return (!$quit);
 }
 
+sub print_full_entry {
+	my $name = shift;
+
+	print ${$data->{$name}->{CVE}} if $data->{$name}->{CVE};
+	print ${$data->{$name}->{entry}};
+}
+
 sub description {
 	my $name=shift;