#! /usr/bin/perl

use strict;
use warnings;

use WIT::Utils;
use WIT::Const;
use WIT::Opts;

sub usage
{
        print heredoc <<EOT;

	Usage: wit-set [-hvq] [-s scope] [-o option] [value]

	Options:

	  -h		Display usage information
	  -o option	Option name
	  -s scope	Page or page post scope
	  -q		Be as quiet as possible
	  -v		Display version information

	Examples:

	  wit-set -o core.editor vi -C -u NONE
	  wit-set -q -s1 -o license MIT
	  wit-set -s 1/1 -o authorship John Doe
EOT
        exit 0;
}

sub version
{
        print "wit-set v0.0.1\n";
        exit 0;
}

usage unless my $opts = getopts 'ho:s:qv',
    {
        h => \&usage,
        v => \&version,
    };

$opts->{s} = 'global' unless $opts->{s};

unless ($opts->{o}) {
        fail 'no option specified';
}

unless ($opts->{s} =~ RE_SCOPE) {
        fail 'invalid scope specified';
}

unless (@ARGV) {
        warn 'no value specified' unless $opts->{q};
}

unless ($opts->{q}) {
        mesg "wit-set ($opts->{s}): $opts->{o} = @ARGV";
}