#!/usr/bin/perl
# Did_we_get_all --- from the BLM server?
# Author: Dan Jacobson https://www.jidanni.org/
# Copyright: https://www.gnu.org/licenses/gpl.html
# Created: 2023-12-29T05:50:12+0000
# Last-Updated: 2023-12-29T07:57:18+0000
#     Update #: 35

use strict;
use warnings q!all!;

=head1 Usage

 $ did_we_get_all d.json

Compares make_wants output and d.json contents.

=cut

use PLSS_corners_4;
my $o = `./make_wants`;
my %h;
$h{requested}{$_}++ for split /%7C/, $o;
%{ $h{gotten} } = PLSS_corners_4::parse();    #the json input
my %all;
for my $i (qw/requested gotten/) {
    for ( keys %{ $h{$i} } ) {
        push @{ $all{$_} }, $i;
    }
}
print "Items not got:\n";
for ( sort keys %all ) {
    next if @{ $all{$_} } == 2;
    printf "%s %s\n", $_, @{ $all{$_} };
}