loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.325, 2003/02/11 16:42:27	version 1.326, 2003/02/13 19:07:46
Line 1755 sub dump {	Line 1755 sub dump {

# --------------------------------------------------------------- currentdump	# --------------------------------------------------------------- currentdump
sub currentdump {	sub currentdump {
my ($namespace,$udomain,$uname)=@_;	my ($sname,$sdom,$courseid)=@_;
if (!$udomain) { $udomain = $ENV{'user.domain'}; }	$courseid = $ENV{'request.course.id'} if (! defined($courseid));
if (!$uname) { $uname = $ENV{'user.name'}; }	$sdom = $ENV{'user.domain'} if (! defined($sdom));
my $uhome = &homeserver($uname,$udomain);	$sname = $ENV{'user.name'} if (! defined($sname));
my $rep=reply("currentdump:$udomain:$uname:$namespace",$uhome);	my $uhome = &homeserver($sname,$sdom);
	my $rep=reply('currentdump:'.$sdom.':'.$sname.':'.$courseid,$uhome);
return if ($rep =~ /^(error:\|no_such_host)/);	return if ($rep =~ /^(error:\|no_such_host)/);
#	#
my %returnhash=();	my %returnhash=();
Line 1767 sub currentdump {	Line 1768 sub currentdump {
if ($rep eq "unknown_cmd") {	if ($rep eq "unknown_cmd") {
# an old lond will not know currentdump	# an old lond will not know currentdump
# Do a dump and make it look like a currentdump	# Do a dump and make it look like a currentdump
my @tmp = &dump($namespace,$udomain,$uname,'.');	my @tmp = &dump($courseid,$sdom,$sname,'.');
return if ($tmp[0] =~ /^(error:\|no_such_host)/);	return if ($tmp[0] =~ /^(error:\|no_such_host)/);
my %hash = @tmp;	my %hash = @tmp;
@tmp=();	@tmp=();