--- loncom/lond	2000/02/08 17:39:23	1.10
+++ loncom/lond	2000/05/01 20:22:39	1.11
@@ -4,7 +4,8 @@
 # 5/26/99,6/4,6/10,6/11,6/14,6/15,6/26,6/28,6/30,
 # 7/8,7/9,7/10,7/12,7/17,7/19,9/21,
 # 10/7,10/8,10/9,10/11,10/13,10/15,11/4,11/16,
-# 12/7,12/15,01/06,01/11,01/12,01/14,2/8 Gerd Kortemeyer
+# 12/7,12/15,01/06,01/11,01/12,01/14,2/8,
+# 03/07 Gerd Kortemeyer
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
 # runs as a daemon
@@ -103,6 +104,23 @@ sub logthis {
     print $fh "$local ($$): $message\n";
 }
 
+
+# -------------------------------------------------------- Escape Special Chars
+
+sub escape {
+    my $str=shift;
+    $str =~ s/(\W)/"%".unpack('H2',$1)/eg;
+    return $str;
+}
+
+# ----------------------------------------------------- Un-Escape Special Chars
+
+sub unescape {
+    my $str=shift;
+    $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+    return $str;
+}
+
 # ----------------------------------------------------------- Send USR1 to lonc
 
 sub reconlonc {
@@ -133,6 +151,7 @@ sub reconlonc {
 }
 
 # -------------------------------------------------- Non-critical communication
+
 sub subreply {
     my ($cmd,$server)=@_;
     my $peerfile="$perlvar{'lonSockDir'}/$server";
@@ -166,6 +185,7 @@ sub reply {
 }
 
 # -------------------------------------------- Return path to profile directory
+
 sub propath {
     my ($udom,$uname)=@_;
     $udom=~s/\W//g;
@@ -177,6 +197,7 @@ sub propath {
 } 
 
 # --------------------------------------- Is this the home server of an author?
+
 sub ishome {
     my $author=shift;
     $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;
@@ -354,6 +375,7 @@ sub make_new_child {
 		     if ($wasenc==1) {
                        my ($cmd,$udom,$uname,$upass)=split(/:/,$userinput);
                        chomp($upass);
+                       $upass=unescape($upass);
                        my $proname=propath($udom,$uname);
                        my $passfilename="$proname/passwd";
                        if (-e $passfilename) {