blob: 82f624b161fe37365663c2387ece6de87129b424 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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=https://rt.perl.org/
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
|