#!/usr/bin/perl -s

our $force;

use warnings;
use strict;

use Music::CoOpera;

unless (@ARGV == 2) {
	die "Usage: mabc_build_proj <wiki_root> <filter>\n";
}

my $WIKIROOT = shift;
my $filter = shift;

Music::CoOpera::build_proj($WIKIROOT, $filter);
print "All done!\n";