--- loncom/lond 2005/08/26 19:40:38 1.292 +++ loncom/lond 2005/08/31 22:38:57 1.295 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.292 2005/08/26 19:40:38 albertel Exp $ +# $Id: lond,v 1.295 2005/08/31 22:38:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -59,7 +59,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.292 $'; #' stupid emacs +my $VERSION='$Revision: 1.295 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -1370,6 +1370,7 @@ sub du_handler { if ($_=~/\.meta$/) { return;} $total_size+=(stat($_))[7]; }; + chdir($ududir); find($code,$ududir); $total_size=int($total_size/1024); &Reply($client,"$total_size\n","$cmd:$ududir"); @@ -5468,7 +5469,7 @@ sub thisversion { sub subscribe { my ($userinput,$clientip)=@_; my $result; - my ($cmd,$fname)=split(/:/,$userinput); + my ($cmd,$fname)=split(/:/,$userinput,2); my $ownership=&ishome($fname); if ($ownership eq 'owner') { # explitly asking for the current version?