--- mdap-server.pl	2007/04/23 23:11:30	24
+++ mdap-server.pl	2007/04/23 23:32:49	25
@@ -116,15 +116,24 @@
 my $ant_unknown_password;
 my $ant_ok_password;
 
+sub ant_unknown_password {
+	my $ant = shift || die "no ant?";
+	if ( $ant_unknown_password->{$ant} ) {
+		$ant_unknown_password->{$ant}--;
+	}
+	return $ant_unknown_password->{$ant};
+}
+
 sub ant_another_passwd {
 	my $ant = shift || die "no ant?";
-	return 0 if ( $ant_unknown_password->{$ant} );
+
+	return 0 if ant_unknown_password( $ant );
 
 	$ant_passwd->{$ant}++;
 
 	if ( $ant_passwd->{$ant} > $#try_accounts ) {
 		print "$ant ant with unknown password\n";
-		$ant_unknown_password->{$ant}++;
+		$ant_unknown_password->{$ant} = 60;
 		$ant_passwd->{$ant} = 0;
 		return 0;
 	}
@@ -176,7 +185,7 @@
 		my ($user_id,$user_pwd) = ant_credentials( $ant );
 
 		if ($type eq 'REPLY-ANT-SEARCH') {
-			mdap_send("INFO MDAP/$mdap_ver\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n") unless ( $ant_unknown_password->{$ant} );
+			mdap_send("INFO MDAP/$mdap_ver\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n") unless ant_unknown_password( $ant );
 		} elsif ($type eq 'REPLY-INFO') {
 
 			if ( $seq_nr < 0 ) {