tests/sshserver.pl: fix compatibility with OpenSSH for Windows

Follow up to #5721

diff --git a/tests/sshserver.pl b/tests/sshserver.pl
index 24c98d630c3c865375f0a3230e2730e52df6b09f..5cff897a37a3e0fc90b47985ccff1794c2c3bb47 100644 (file)
--- a/tests/sshserver.pl
+++ b/tests/sshserver.pl
@@ -522,6 +522,11 @@ push @cfgarr, '#';
 # and do not support quotes around values for some unknown reason.
 if ($sshdid =~ /OpenSSH-Windows/) {
     my $username_lc = lc $username;
+    if (exists $ENV{USERDOMAIN}) {
+        my $userdomain_lc = lc $ENV{USERDOMAIN};
+        $username_lc = "$userdomain_lc\\$username_lc";
+    }
+    $username_lc =~ s/ /\?/g; # replace space with ?
     push @cfgarr, "DenyUsers !$username_lc";
     push @cfgarr, "AllowUsers $username_lc";
 } else {