--- loncom/lond 2004/08/24 20:59:15 1.240 +++ loncom/lond 2004/08/25 21:00:46 1.242 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.240 2004/08/24 20:59:15 banghart Exp $ +# $Id: lond,v 1.242 2004/08/25 21:00:46 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -57,7 +57,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.240 $'; #' stupid emacs +my $VERSION='$Revision: 1.242 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -1909,9 +1909,9 @@ sub remove_user_file_handler { my $file=$udir.'/userfiles/'.$ufile; if (-e $file) { if (-f $file){ - unlink($file); - }elsif(-d $file){ - rmdir($file); + unlink($file); + } elsif(-d $file) { + rmdir($file); } if (-e $file) { &Failure($client, "failed\n", "$cmd:$tail"); @@ -2177,7 +2177,7 @@ sub put_user_profile_entry { my $userinput = "$cmd:$tail"; - my ($udom,$uname,$namespace,$what) =split(/:/,$tail); + my ($udom,$uname,$namespace,$what) =split(/:/,$tail,4); if ($namespace ne 'roles') { chomp($what); my $hashref = &tie_user_hash($udom, $uname, $namespace,