+
+ if ($display) {
+ for $pw (1,-1,0) {
+#print STDERR "\n\nfinish display=$display pw=$pw\n\n";
+ for $e (@ownpasswd) {
+ $tu= $e->[0];
+ next if $displaydone{$tu};
+ $tpw= $e->[1];
+ for $e2 (@ownshadow) {
+ next unless $e2->[0] eq $tu;
+ $tpw= $e2->[1]; last;
+ }
+ $tpw= length($tpw)==13 ? 1 : length($tpw) ? -1 : 0;
+ next unless $pw == $tpw;
+ hosthead($pw == 1 ? "unsynched normal account" :
+ $pw == 0 ? "unsynched, passwordless" :
+ "unsynched, no logins");
+ print " $e->[0]" or die $!;
+ }
+ }
+ print "\n\n" or die $! if $hostheaddone;
+ exit 0;
+ }