Updated perlfaq to CPAN version 5.0150040
[perl.git] / Porting / rt_list_patches
1 #!/bin/sh
2
3 if [ -z "$RTUSER" ]; then
4     echo "You need to set the environment variable RTUSER to your rt.perl.org username"
5     exit
6 fi
7
8 if [ -z "$RTPASSWD" ]; then
9     echo "You need to set the environment variable RTPASSWD to your rt.perl.org password"
10     exit
11 fi
12
13
14 export RTSERVER=http://rt.perl.org/rt3
15
16
17
18 if [ -z "$1"  ]; then
19     echo "$0 ticketid [patchid]"
20     exit
21 fi
22
23 if [ "$1" = "list" ]; then
24     rt ls "Queue = 'perl5' AND (Status = 'new' OR Status = 'open') AND (Type = 'patch' OR Subject LIKE 'patch')"
25     exit;
26 fi
27
28 if [ -z "$2" ]; then
29     rt show ticket/$1/attachments  |grep -v "^id" |grep -v multipart\/
30     exit
31 fi
32
33 rt show ticket/$1/attachments/$2/content