bin/jira

   1 #!/usr/local/cpanel/3rdparty/bin/perl
   2
   3 # cpanel - t/medium/Cpanel-LogReader.t             Copyright 2022 cPanel, L.L.C.
   4 #                                                           All rights reserved.
   5 # copyright@cpanel.net                                         http://cpanel.net
   6 # This code is subject to the cPanel license. Unauthorized copying is prohibited
   7
   8 use strict;
   9 use warnings;
  10
  11 use feature 'say';
  12 use experimental qw(signatures);
  13
  14 use FindBin;
  15
  16 use lib "$FindBin::Bin/../lib";
  17
  18 use JIRA      ();
  19 use GetConfig ();
  20
  21 my $home = $ENV{HOME};
  22 my $conf = "$ENV{HOME}/.jira";
  23
  24 my %opts = GetConfig::GetConfig($conf);
  25
  26 my $jira = JIRA->new(%opts);
  27
  28 my $caseID = 'ART-1928';
  29
  30 my $case = $jira->getIssue($caseID);
  31
  32 say "$caseID: $case->{fields}{summary}";