xref: /openbsd-src/gnu/usr.bin/perl/Porting/rt_list_patches (revision 6fb12b7054efc6b436584db6cef9c2f85c0d7e27)
1898184e3Ssthen#!/bin/sh
2898184e3Ssthen
3898184e3Ssthenif [ -z "$RTUSER" ]; then
4898184e3Ssthen    echo "You need to set the environment variable RTUSER to your rt.perl.org username"
5898184e3Ssthen    exit
6898184e3Ssthenfi
7898184e3Ssthen
8898184e3Ssthenif [ -z "$RTPASSWD" ]; then
9898184e3Ssthen    echo "You need to set the environment variable RTPASSWD to your rt.perl.org password"
10898184e3Ssthen    exit
11898184e3Ssthenfi
12898184e3Ssthen
13898184e3Ssthen
14*6fb12b70Safresh1export RTSERVER=https://rt.perl.org/
15898184e3Ssthen
16898184e3Ssthen
17898184e3Ssthen
18898184e3Ssthenif [ -z "$1"  ]; then
19898184e3Ssthen    echo "$0 ticketid [patchid]"
20898184e3Ssthen    exit
21898184e3Ssthenfi
22898184e3Ssthen
23898184e3Ssthenif [ "$1" = "list" ]; then
24898184e3Ssthen    rt ls "Queue = 'perl5' AND (Status = 'new' OR Status = 'open') AND (Type = 'patch' OR Subject LIKE 'patch')"
25898184e3Ssthen    exit;
26898184e3Ssthenfi
27898184e3Ssthen
28898184e3Ssthenif [ -z "$2" ]; then
29898184e3Ssthen    rt show ticket/$1/attachments  |grep -v "^id" |grep -v multipart\/
30898184e3Ssthen    exit
31898184e3Ssthenfi
32898184e3Ssthen
33898184e3Ssthenrt show ticket/$1/attachments/$2/content
34