In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/39bca864bc42ce197a5d61fe90aeea2d697a7b52?hp=719a9bb07bffdcf2ec94b40afea1e3dbcf028a9e>
- Log ----------------------------------------------------------------- commit 39bca864bc42ce197a5d61fe90aeea2d697a7b52 Author: Jesse Vincent <[email protected]> Date: Mon Jul 5 12:46:48 2010 +0100 added a "list" command to list open tickets that might have patches M Porting/rt_list_patches commit 730a651898d18e7c4337b097cbee5202e91be318 Author: Jesse Vincent <[email protected]> Date: Mon Jul 5 12:41:28 2010 +0100 we can't depend on patches having filenames. Thanks git! M Porting/rt_list_patches commit d62c0603a8ffd7cfc652aabc91573040d6c0de5d Author: Jesse Vincent <[email protected]> Date: Mon Jul 5 12:26:52 2010 +0100 First pass at a tool to help porters apply RT patches from the commandline M MANIFEST A Porting/rt_list_patches ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 + Porting/rt_list_patches | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 34 insertions(+), 0 deletions(-) create mode 100755 Porting/rt_list_patches diff --git a/MANIFEST b/MANIFEST index 4e7c2c9..820fb78 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4084,6 +4084,7 @@ Porting/README.y2038 Perl notes for the 2038 fix Porting/regcharclass.pl Generate regcharclass.h from inline data Porting/release_managers_guide.pod Release Manager's Guide Porting/release_schedule.pod Schedule for future releases +Porting/rt_list_patches A tool to help you apply patches from RT Porting/sort_perldiag.pl Keep our diagnostics orderly Porting/testall.atom Cumulative profile with Third Degree Porting/thirdclean Cleanup Third Degree reports diff --git a/Porting/rt_list_patches b/Porting/rt_list_patches new file mode 100755 index 0000000..71145d4 --- /dev/null +++ b/Porting/rt_list_patches @@ -0,0 +1,33 @@ +#!/bin/sh + +if [ -z "$RTUSER" ]; then + echo "You need to set the environment variable RTUSER to your rt.perl.org username" + exit +fi + +if [ -z "$RTPASSWD" ]; then + echo "You need to set the environment variable RTPASSWD to your rt.perl.org password" + exit +fi + + +export RTSERVER=http://rt.perl.org/rt3 + + + +if [ -z "$1" ]; then + echo "$0 ticketid [patchid]" + exit +fi + +if [ "$1" = "list" ]; then + rt ls "Queue = 'perl5' AND (Status = 'new' OR Status = 'open') AND (Type = 'patch' OR Subject LIKE 'patch')" + exit; +fi + +if [ -z "$2" ]; then + rt show ticket/$1/attachments |grep -v "^id" |grep -v multipart\/ + exit +fi + +rt show ticket/$1/attachments/$2/content -- Perl5 Master Repository
