+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 $!;
+ }
+}