Commit | Line | Data |
---|---|---|
d62c0603 JV |
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 | ||
39bca864 JV |
16 | |
17 | ||
d62c0603 JV |
18 | if [ -z "$1" ]; then |
19 | echo "$0 ticketid [patchid]" | |
20 | exit | |
21 | fi | |
22 | ||
39bca864 JV |
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 | ||
d62c0603 | 28 | if [ -z "$2" ]; then |
730a6518 | 29 | rt show ticket/$1/attachments |grep -v "^id" |grep -v multipart\/ |
d62c0603 JV |
30 | exit |
31 | fi | |
32 | ||
33 | rt show ticket/$1/attachments/$2/content |