loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.26, 2000/09/01 21:34:27	version 1.27, 2000/09/01 21:51:30
Line 23	Line 23
# restore : returns hash for this url	# restore : returns hash for this url
# eget(namesp,array) : returns hash with keys from array filled in from namesp	# eget(namesp,array) : returns hash with keys from array filled in from namesp
# get(namesp,array) : returns hash with keys from array filled in from namesp	# get(namesp,array) : returns hash with keys from array filled in from namesp
	# del(namesp,array) : deletes keys out of arry from namesp
# put(namesp,hash) : stores hash in namesp	# put(namesp,hash) : stores hash in namesp
# dump(namesp) : dumps the complete namespace into a hash	# dump(namesp) : dumps the complete namespace into a hash
# ssi(url,hash) : does a complete request cycle on url to localhost, posts	# ssi(url,hash) : does a complete request cycle on url to localhost, posts
Line 528 sub get {	Line 529 sub get {
return %returnhash;	return %returnhash;
}	}

	# --------------------------------------------------------------- del interface

	sub del {
	my ($namespace,@storearr)=@_;
	my $items='';
	map {
	$items.=escape($_).'&';
	} @storearr;
	$items=~s/\&$//;
	return reply("del:$ENV{'user.domain'}:$ENV{'user.name'}:$namespace:$items",
	$ENV{'user.home'});
	}

# -------------------------------------------------------------- dump interface	# -------------------------------------------------------------- dump interface

sub dump {	sub dump {