--- loncom/lonsql 2001/03/15 14:26:56 1.6 +++ loncom/lonsql 2001/03/22 15:21:54 1.7 @@ -2,7 +2,7 @@ # lonsql-based on the preforker:harsha jagasia:date:5/10/00 # 7/25 Gerd Kortemeyer # many different dates Scott Harrison - +# 03/22/2001 Scott Harrison use IO::Socket; use Symbol; use POSIX; @@ -202,8 +202,9 @@ sub make_new_child { my $userinput = <$client>; chomp($userinput); - my ($conserver,$querytmp)=split(/&/,$userinput); + my ($conserver,$querytmp,$customtmp)=split(/&/,$userinput); my $query=unescape($querytmp); + my $custom=unescape($customtmp); #send query id which is pid_unixdatetime_runningcounter $queryid = $thisserver; @@ -225,6 +226,9 @@ sub make_new_child { my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1); $result=join("&",@r2) . "\n"; } + + # do custom metadata searching here and build into result + &reply("queryreply:$queryid:$result",$conserver); }