sub changes_report()

in src/lib/view.pm [29:46]

• 15 lines of code
• 1 McCabe index (conditional complexity)

sub changes_report
{
    my ($project, $tag) = split '/', shift;
    my $url = "https://gitbox.apache.org/repos/asf?p=velocity-$project.git;a=blob_plain;f=src/changes/changes.xml;hb=$tag";
    print("Generating changes report from " . $url . "\n");
    my $xml = get $url;

    # hack to fix an error in the XML up to 1.7
    $xml =~ s/<scope>/&lt;scope&gt;/;

    my ($fh, $filename) = tempfile("XXXXXX");
    print $fh $xml;
    close $fh;
    my $summary = `xsltproc stylesheets/releases_history.xsl $filename`;
    my $changes = `xsltproc stylesheets/changes.xsl $filename`;
    unlink $filename;
    return $summary . $changes;
}