This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
First pass at a tool to help porters apply RT patches from the
[perl5.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 if [ -z "$1"  ]; then
17     echo "$0 ticketid [patchid]"
18     exit
19 fi
20
21 if [ -z "$2" ]; then
22     rt show ticket/$1/attachments  |grep -v ":\s*(" |grep -v "^id"
23     exit
24 fi
25
26 rt show ticket/$1/attachments/$2/content