use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

use Path::Tiny;
use Cpanel::JSON::XS;
use Encode;

use lib::abs qw(
    ../lib/
);
use Branches;

sub main {

    warn "\n";

    my $branches = Branches->new();

    my %field2group;

    foreach my $file_name ( glob '/data/branches/*.json' ) {
        my ($branch_id) = $file_name =~/^.*\/(.*)\.json\z/;

        next if $ARGV[0] && $ARGV[0] ne $branch_id;

        warn "## $branch_id\n";

        warn $branches->get_wiki_link($branch_id) . "\n\n";

        foreach my $field_id ($branches->get_fields($branch_id)) {
            require "Field/${field_id}.pm";
            my $p = "Field::$field_id";
            my $f = $p->new(language => 'ru');

            warn sprintf "%-50s %-50s\n",
                $field_id,
                $f->get_group_name(),
                ;
        }

        warn "\n";
    }
}
main();
