loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.534, 2004/08/27 21:09:22	version 1.535, 2004/08/27 21:39:54
Line 3680 sub revokecustomrole {	Line 3680 sub revokecustomrole {
}	}

# ------------------------------------------------------------ Disk usage	# ------------------------------------------------------------ Disk usage
sub diskusage{	sub diskusage {
my ($udom,$uname,$directoryRoot)=@_;	my ($udom,$uname,$directoryRoot)=@_;
$directoryRoot =~ s/\/$//;	$directoryRoot =~ s/\/$//;
my $listing=reply('du:'.$directoryRoot,homeserver($uname,$udom))	my $listing=&reply('du:'.$directoryRoot,homeserver($uname,$udom));
return $listing;	return $listing;
}	}