#!/usr/bin/perl -s

our $force;

use warnings;
use strict;

use Wiki::Score;

unless (@ARGV == 3) {
	die "Usage: mabc_init_proj <wiki_root> <json_file> <hs_file>\n";
}

my $WIKIROOT = shift;
my $filename = shift;
my $spec = shift || '';

Wiki::Score::init_proj($WIKIROOT, $filename, $spec, $force);
print "All done!\n";