loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.683.2.3, 2005/12/22 20:57:49	version 1.683.2.4, 2005/12/28 19:27:00
Line 3010 sub tmpput {	Line 3010 sub tmpput {

# ------------------------------------------------------------ tmpget interface	# ------------------------------------------------------------ tmpget interface
sub tmpget {	sub tmpget {
my ($token)=@_;	my ($token,$server)=@_;
my $rep=&reply("tmpget:$token",$perlvar{'lonHostID'});	if (!defined($server)) { $server = $perlvar{'lonHostID'}; }
	my $rep=&reply("tmpget:$token",$server);
my %returnhash;	my %returnhash;
foreach my $item (split(/\&/,$rep)) {	foreach my $item (split(/\&/,$rep)) {
my ($key,$value)=split(/=/,$item);	my ($key,$value)=split(/=/,$item);
Line 3020 sub tmpget {	Line 3021 sub tmpget {
return %returnhash;	return %returnhash;
}	}

	# ------------------------------------------------------------ tmpget interface
	sub tmpdel {
	my ($token,$server)=@_;
	if (!defined($server)) { $server = $perlvar{'lonHostID'}; }
	return &reply("tmpdel:$token",$server);
	}

# ---------------------------------------------- Custom access rule evaluation	# ---------------------------------------------- Custom access rule evaluation

sub customaccess {	sub customaccess {