loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.42, 2001/03/24 21:29:35	version 1.45, 2001/03/27 13:37:43
Line 969 sub make_new_child {	Line 969 sub make_new_child {
}	}
# ------------------------------------------------------------------- querysend	# ------------------------------------------------------------------- querysend
} elsif ($userinput =~ /^querysend/) {	} elsif ($userinput =~ /^querysend/) {
my ($cmd,$query,$custom)=split(/:/,$userinput);	my ($cmd,$query,
	$custom,$customshow)=split(/:/,$userinput);
$query=~s/\n*$//g;	$query=~s/\n*$//g;
unless ($custom) {	unless ($custom or $customshow) {
print $client "".	print $client "".
sqlreply("$hostid{$clientip}\&$query")."\n";	sqlreply("$hostid{$clientip}\&$query")."\n";
}	}
else {	else {
print $client "".	print $client "".
sqlreply("$hostid{$clientip}\&$query".	sqlreply("$hostid{$clientip}\&$query".
"\&$custom")."\n";	"\&$custom"."\&$customshow")."\n";
}	}
# ------------------------------------------------------------------ queryreply	# ------------------------------------------------------------------ queryreply
} elsif ($userinput =~ /^queryreply/) {	} elsif ($userinput =~ /^queryreply/) {
Line 986 sub make_new_child {	Line 987 sub make_new_child {
my $store;	my $store;
my $execdir=$perlvar{'lonDaemons'};	my $execdir=$perlvar{'lonDaemons'};
if ($store=IO::File->new(">$execdir/tmp/$id")) {	if ($store=IO::File->new(">$execdir/tmp/$id")) {
	$reply=~s/\&/\n/g;
print $store $reply;	print $store $reply;
close $store;	close $store;
print $client "ok\n";	print $client "ok\n";