--- /cygdrive/c/Docs/matt/Src/twiki/twiki-20030630alpha/lib/TWiki.pm	2003-06-30 16:46:33.000000000 -0700
+++ TWiki.pm	2003-07-23 12:13:43.000000000 -0700
@@ -730,6 +730,14 @@
     $remoteUser =~ /(.*)/;
     $remoteUser = $1;  # untaint variable
 
+    #mhw: In Windows environment ntlm/sspi REMOTE_USER looks like "DOMAIN\jsmith"
+    # 		discard domain name and keep login name
+    if( $ENV{'AUTH_TYPE'} eq 'NTLM' ) {
+				my( @domainUser ) = split(/\\/, $remoteUser);
+				$remoteUser = $domainUser[1];
+				}
+    #/mhw    
+
     my $remoteAddr = $ENV{'REMOTE_ADDR'} || "";
 
     if( ( ! $doRememberRemoteUser ) || ( ! $remoteAddr ) ) {