loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.243, 2004/08/27 18:34:31	version 1.244, 2004/08/28 15:52:51
Line 1299 sub push_file_handler {	Line 1299 sub push_file_handler {
# Side Effects:	# Side Effects:
# The reply is written to $client.	# The reply is written to $client.
#	#

sub du_handler {	sub du_handler {
my ($cmd, $ududir, $client) = @_;	my ($cmd, $ududir, $client) = @_;
my $userinput = "$cmd:$ududir";	my $userinput = "$cmd:$ududir";
my $obs;	my $duout='';
my $rights;	my $du_cmd;
my $uduout='';	$du_cmd = 'du -ks '.$ududir.' 2>/dev/null)';
my $udufn;	$duout = qx[$du_cmd];
print $client "from lond not yet\n";	print $client "$du_cmd -- $ududir -- $duout\n";
return 1;	return 1;
}	}
&register_handler("du", \&du_handler, 0, 1, 0);	&register_handler("du", \&du_handler, 0, 1, 0);



#	#
# ls - list the contents of a directory. For each file in the	# ls - list the contents of a directory. For each file in the
# selected directory the filename followed by the full output of	# selected directory the filename followed by the full output of