Add a command 'd' to display the information again

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

1 files changed, 15 insertions, 4 deletions

diff --git a/bin/check-new-issues b/bin/check-new-issues
index 9e57271aa0..5665dfbb0c 100755
--- a/bin/check-new-issues
+++ b/bin/check-new-issues
@@ -18,6 +18,7 @@ sub print_commands {
   * .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 @@ if ($term->ReadLine() eq 'Term::ReadLine::Stub') {
 
 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 @@ sub present_issue {
 	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 @@ sub present_issue {
 				$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 @@ sub present_issue {
 				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 @@ sub present_issue {
 	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;