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