loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.292, 2005/08/26 19:40:38	version 1.295, 2005/08/31 22:38:57
Line 1370 sub du_handler {	Line 1370 sub du_handler {
if ($_=~/\.meta$/) { return;}	if ($_=~/\.meta$/) { return;}
$total_size+=(stat($_))[7];	$total_size+=(stat($_))[7];
};	};
	chdir($ududir);
find($code,$ududir);	find($code,$ududir);
$total_size=int($total_size/1024);	$total_size=int($total_size/1024);
&Reply($client,"$total_size\n","$cmd:$ududir");	&Reply($client,"$total_size\n","$cmd:$ududir");
Line 5468 sub thisversion {	Line 5469 sub thisversion {
sub subscribe {	sub subscribe {
my ($userinput,$clientip)=@_;	my ($userinput,$clientip)=@_;
my $result;	my $result;
my ($cmd,$fname)=split(/:/,$userinput);	my ($cmd,$fname)=split(/:/,$userinput,2);
my $ownership=&ishome($fname);	my $ownership=&ishome($fname);
if ($ownership eq 'owner') {	if ($ownership eq 'owner') {
# explitly asking for the current version?	# explitly asking for the current version?