#!/usr/bin/perl -s

our $pdf;
our $midi;

use warnings;
use strict;

exit unless ($pdf or $midi);

use Wiki::Score;

if (@ARGV < 2) {
	die "Usage: mabc_build <-pdf|-midi> <project id> <source>\n";
}

my $p = shift;
my $source = shift;

my $filename;
if ($pdf) {
	$filename = Wiki::Score::build_pdf($source);
}
if ($midi) {
	$filename = Wiki::Score::build_midi($source);
}

print $filename;