checkAUTHORS.pl: Another address for Matthew Horsfall

[perl5.git] / Porting / rt_list_patches

diff --git a/Porting/rt_list_patches b/Porting/rt_list_patches
old mode 100755 (executable)
new mode 100644 (file)
index e8161fc..71145d4
--- a/Porting/rt_list_patches
+++ b/Porting/rt_list_patches
@@ -13,13 +13,20 @@ 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 ":\s*(" |grep -v "^id"
+    rt show ticket/$1/attachments  |grep -v "^id" |grep -v multipart\/
     exit
 fi