RT post to Slack

gistfile1.pl

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use JSON;

my $webhook_url = 'your-webhook-url';
my $default_channel = '#your-channel';

my $ua = LWP::UserAgent->new;
$ua->timeout(15);

my $payload = {
               channel => $default_channel // $default_channel,
               username => 'RTbot',
               icon_emoji => ':uit-ticket:',
               text => '',
             };

$payload->{text} .= "New ticket <https://my-rt-server.tld/Ticket/Display.html?id=" . $self->TicketObj->Id . "|" . $self->TicketObj->Id . "> from " . $self->TicketObj->RequestorAddresses . ": " . $self->TicketObj->Subject;

my $req = POST("$webhook_url", ['payload' => encode_json($payload)]);

my $resp = $ua->request($req);

if ($resp->is_success) {
  print '';
} else {
  RT->Logger->error($resp->status_line);
  return 1;
}