#!/usr/bin/perl
#
# This will convert the text output from the jira release notes into
# our format. Yes, it's ugly. But, it seems to work.
#
while (<>) {
  chomp;
  next if /\<\/li\>/;
#  my @p = split(/[\-\<\']/, $_, 8);
  my @p = split(/[<\-]/, $_, 7);

  if ($#p == 6) {
    print "* [[\`TS-@p[4]\`](https://issues.apache.org/jira/browse/TS-@p[4])] - @p[6]\n";
  } else {
    print $_, "\n"
  }
}
