add fixbug.pl to tree

support-d/utils/fixbug.pl

@@ -0,0 +1,49 @@
+
+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");