#!/usr/bin/perl
#use strict;

use Getopt::Long qw(GetOptions);
use Term::ReadKey;
use JIRA::REST;
use Data::Dumper;

sub getpass {
  ReadMode( "noecho");
  print "Password: ";
  chomp (my $pwd = <>);
  ReadMode ("original");
  return $pwd;
}

sub getuser {
  print "User: ";
  chomp (my $usr = <>);
  return $usr;
}

sub get_text {
  my @chars = ("A".."Z", "a".."z");
  my $string;
  $string .= $chars[rand @chars] for 1..8;

  my $editor = $ENV{"EDITOR"} || $ENV{"VISUAL"} || `which emacs` || `which vi`;

  system("$editor /tmp/TEXT.$string");
  my $text = `cat /tmp/TEXT.$string`;
  unlink("/tmp/TEXT.$string");
  return $text;
}

my %opts;

my $hashtxt = `git log -1 --oneline 2>/dev/null`;
my ($hash) = split(" ", $hashtxt);

GetOptions(
	   'project=s' => \$opts{project},
	   'summary=s' => \$opts{summary},
	   'desc=s' => \$opts{desc},
	   'components=s' => \$opts{components},
	   'hash=s' => \$opts{hash},
	   'user=s' => \$opts{user},
	   'pass=s' => \$opts{pass},
	   'type=s' => \$opts{type},
	   'debug' => \$opts{debug},
	  ) or die "Usage: $0 -summary <summary> -desc <desc> [-debug] ....\n";


$opts{project} or $opts{project} = "FS";

if ($opts{components}) {
  $opts{components_array} = [map {{name => $_}} split(" ", $opts{components})];
} else {
  $opts{components_array} = [map {{name => $_}} qw(freeswitch-core)];
}


#print Dumper \%opts;
#exit;

if (!$opts{user}) {
  $opts{user} = getuser();
}

if (!$opts{pass} && !$opts{debug}) {
  $opts{pass} = getpass();
}

my $jira;
my $issue;

if (!$opts{debug}) {
    $jira = JIRA::REST->new('https://freeswitch.org/jira', $opts{user}, $opts{pass}) or die "login incorrect:";
    $issue = $jira->GET("/issue/FS-7985") or die "login incorrect:";
}

#print $issue->{key};
#exit;

if (!$opts{type}) {
  $opts{type} = "Bug";
}

if (!$opts{summary}) {
  die "missing summary:";
}

if (!$opts{desc}) {
  $opts{desc} = get_text();

  if (!$opts{desc}) {
    die "missing desc:";
  }
}

if (!$opts{hash}) {
  $opts{hash} = $hash;

  if (!$opts{hash}) {
    $opts{hash} = "N/A";
  }
}

my $input = { 
    fields => {
	project   => { key => $opts{project} },
	issuetype => { name => $opts{type} },
	summary   => $opts{summary},
	description => $opts{desc},
	customfield_10024 => $opts{hash},
	customfield_10025 => $opts{hash},
	components => $opts{components_array}
    },
};

if ($opts{debug}) {
    print Dumper \%opts;
    print Dumper $input;
} else {
    $issue = $jira->POST('/issue', undef, $input) or die "Issue was not created:";
    print "Issue Posted: " . $issue->{key};
}