--- loncom/lond 2002/07/26 19:35:20 1.84 +++ loncom/lond 2002/08/01 18:44:19 1.85 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.84 2002/07/26 19:35:20 albertel Exp $ +# $Id: lond,v 1.85 2002/08/01 18:44:19 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -947,6 +947,12 @@ sub make_new_child { } else { print $client "rejected\n"; } +# -------------------------------------- fetch a user file from a remote server + } elsif ($userinput =~ /^fetchuserfile/) { + my ($cmd,$fname)=split(/:/,$userinput); +# ------------------------------------------ authenticate access to a user file + } elsif ($userinput =~ /^authuserfile/) { + my ($cmd,$fname,$session)=split(/:/,$userinput); # ----------------------------------------------------------------- unsubscribe } elsif ($userinput =~ /^unsub/) { my ($cmd,$fname)=split(/:/,$userinput);