--- loncom/lonnet/perl/lonnet.pm	2002/01/04 18:12:23	1.198
+++ loncom/lonnet/perl/lonnet.pm	2002/02/04 15:31:22	1.199
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.198 2002/01/04 18:12:23 www Exp $
+# $Id: lonnet.pm,v 1.199 2002/02/04 15:31:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -66,7 +66,7 @@
 # 12/18 Scott Harrison
 # 12/21,12/22,12/27,12/28 Gerd Kortemeyer
 # YEAR=2002
-# 1/4 Gerd Kortemeyer
+# 1/4,2/4 Gerd Kortemeyer
 #
 ###
 
@@ -391,6 +391,7 @@ sub queryauthenticate {
 sub authenticate {
     my ($uname,$upass,$udom)=@_;
     $upass=escape($upass);
+    $uname=~s/\W//g;
     if (($perlvar{'lonRole'} eq 'library') && 
         ($udom eq $perlvar{'lonDefDomain'})) {
     my $answer=reply("encrypt:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});