---------------------
PatchSet 883 
Date: 2000/12/01 16:05:58
Author: kinkie
Branch: auth_rewrite
Tag: (none) 
Log:
Adapted to V3 of the squid-to-helper protocol

Members: 
	ntlm_auth_modules/no_check/no_check:1.1.2.1->1.1.2.1.2.1 

Index: squid/ntlm_auth_modules/no_check/no_check
===================================================================
RCS file: /cvsroot/squid-sf//squid/ntlm_auth_modules/no_check/Attic/no_check,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.1.2.1
diff -u -r1.1.2.1 -r1.1.2.1.2.1
--- squid/ntlm_auth_modules/no_check/no_check	3 Aug 2000 11:47:59 -0000	1.1.2.1
+++ squid/ntlm_auth_modules/no_check/no_check	1 Dec 2000 16:05:58 -0000	1.1.2.1.2.1
@@ -9,32 +9,36 @@
 #$authdomain="your_domain_goes_here";
 $challenge="deadbeef";
 
+$authdomain=$ARGV[0] if ($#ARGV >=0);
+
 die ("Edit $0 to configure a domain!") unless (defined($authdomain));
 
-while(<>) {
-	if ($_ eq "RESET") {
-		print "RESET OK\n";
+while(<STDIN) {
+	chop;
+	if ($_ eq "YR") {
+		print "TT ".encode_base64(&make_ntlm_static_challenge);
 		next;
 	}
-	%res=decode_ntlm_any(decode_base64($_));
+	$got=substr($_,3);
+	%res=decode_ntlm_any(decode_base64($got));
 #	print STDERR "got: ".hash_to_string(%res);
 	if (!res) {										# broken NTLM, deny
-		print "ERR\n";
+		print "BH Couldn't decode NTLM packet\n";
 		next;
 	}
 	if ($res{type} eq "negotiate") { # ok, send a challenge
-		print "CH ".encode_base64(&make_ntlm_static_challenge);
+		print "BH Squid-helper protocol error: unexpected negotiate-request\n";
 		next;
 	}
 	if ($res{type} eq "challenge") { # Huh? WE are the challengers.
-		print "ERR\n";
+		print "BH Squid-helper protocol error: unexpected challenge-request\n";
 		next;		
 	}
 	if ($res{type} eq "authentication") {
-		print "OK $res{domain}\\$res{user}\n";
+		print "AF $res{domain}\\$res{user}\n";
 		next;		
 	}
-	print "ERR\n";								# internal error
+	print "BH internal error\n";	# internal error
 }