#!/usr/bin/perl -s

our $force;

use warnings;
use strict;

use Wiki::Score;


my $WIKIROOT = shift;
my $hsexec = shift;
my $id = shift;
my @extra = @ARGV;

unless ($WIKIROOT or $hsexec or $id) {
	die "Usage: mabc_init_proj <wiki_root> <hs_exec> <proj_id> [extra]\n";
}

Wiki::Score::hsexec_proj($WIKIROOT, $hsexec, $id, @extra);