diff options
author | Raphael Geissert <geissert@debian.org> | 2017-10-18 15:03:44 +0000 |
---|---|---|
committer | Raphael Geissert <geissert@debian.org> | 2017-10-18 15:03:44 +0000 |
commit | a4ed6aceff87493a084972d41962034b716000c7 (patch) | |
tree | b164b3e0a5453b4abcf5dd98ce9366ec97a360f3 /bin/check-new-issues | |
parent | b8cead369cc6cc31c77d102619d3ef1323c53f77 (diff) |
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
Diffstat (limited to 'bin/check-new-issues')
-rwxr-xr-x | bin/check-new-issues | 17 |
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; |