#!/usr/bin/perl -s

our $force;
our $part;
our $section;

use warnings;
use strict;

use Wiki::Score;

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

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

my $p;
my $s;
if ($part) {
	$p = shift;
	Wiki::Score::build_part($WIKIROOT, $filter, $p);
}
if ($section) {
	$s = shift;
	Wiki::Score::build_section($WIKIROOT, $filter, $s);
}

unless ($p and $s) {
	Wiki::Score::build_proj($WIKIROOT, $filter);
}
print STDERR "All done!\n";