mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
3ebc4be24d
This didn't work properly as is (because of the redirect from http://rt.perl.org/rt3/ to https://rt.perl.org/rt3/) but at least it'll work if someone tries it going forward.
34 lines
678 B
Bash
34 lines
678 B
Bash
#!/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
|