# $commod{'Hemp'}{Hold}
our @v;
-our ($commod,$stall,%commod);
+our ($commod,$stall,%commod,@commods_inorder);
@ARGV==1 or die "You probably don't want to run this program directly.\n";
our ($mode) = shift @ARGV;
@v= split /\t/;
#print STDERR "[".join("|",@v)."]\n";
($commod,$stall) = @v;
+ push @commods_inorder, $commod unless exists $commod{$commod};
bs_read(Buy, 2);
bs_read(Sell, 4);
$commod{$commod}{Hold}= $v[6]+0 if @v>6;
write_tsv(\*STDOUT);
}
+sub main__commodsinorder () {
+ parse_info_serverside();
+ my $last_ov;
+ foreach my $commod (@commods_inorder) {
+ my $ov= $commods{$commod}{Ordval};
+ printf("found\t%-40s %10s",
+ $commod,
+ defined $ov ? $ov : '?')
+ or die $!;
+ if (defined $ov) {
+ if (defined $last_ov && $ov <= $last_ov) {
+ print " out-of-order" or die $!;
+ }
+ $last_ov= $ov;
+ }
+ print "\n" or die $!;
+ }
+ foreach my $commod (sort keys %commods) {
+ next if exists $commod{$commod};
+ printf "missing\t%s\n", $commod or die $!;
+ }
+}
our ($pctb) = $ENV{'YPPSC_YARRG_PCTB'};