freeswitch/support-d/utils/fixbug.pl

50 lines
853 B
Perl
Raw Normal View History

2015-08-17 17:31:09 -04:00
use XML::Simple;
use Data::Dumper;
my $bug = shift || die "missing bug";;
my $url = "https://freeswitch.org/jira/si/jira.issueviews:issue-xml/${bug}/${bug}.xml";
my $cmd;
my $prog = `which curl` || `which wget`;
my $auto = 1;
chomp $prog;
$prog || die "missing url fetch program, install curl or wget";
if ($prog =~ /wget/) {
$cmd = "$prog -O -";
} else {
$cmd = $prog;
}
my $xml = `$cmd $url 2>/dev/null`;
my $xs= new XML::Simple;
my $r = $xs->XMLin($xml);
my $sum = $r->{channel}->{item}->{summary};
if ($ARGV[0] eq "edit") {
shift;
$auto = 0;
open T, ">/tmp/$bug.tmp";
print T "#resolve [$sum]\n\n";
close T;
}
my $args = join(" ", @ARGV);
my $gitcmd;
if ($auto) {
$gitcmd = "git commit $args -m \"#resolve [$sum]\"";
} else {
$gitcmd = "git commit $args -t /tmp/$bug.tmp";
}
system $gitcmd;
unlink("/tmp/$bug.tmp");