--- loncom/lond 2004/07/23 11:03:05 1.207 +++ loncom/lond 2004/07/23 13:36:29 1.208 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.207 2004/07/23 11:03:05 foxr Exp $ +# $Id: lond,v 1.208 2004/07/23 13:36:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -56,7 +56,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.207 $'; #' stupid emacs +my $VERSION='$Revision: 1.208 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -2487,14 +2487,11 @@ sub make_new_child { # ------------------------------------------------------------------------- put } elsif ($userinput =~ /^put/) { if(isClient) { - my ($cmd,$udom,$uname,$namespace,$what,@extras) - =split(/:/,$userinput); + my ($cmd,$udom,$uname,$namespace,$what) + =split(/:/,$userinput,5); $namespace=~s/\//\_/g; $namespace=~s/\W//g; if ($namespace ne 'roles') { - if (@extras) { - $what .= ':'.join(':',@extras); - } chomp($what); my $proname=propath($udom,$uname); my $now=time;