Archive of UserLand's first discussion group, started October 5, 1998.
Re: Search Engine XML-RPC Interface
Author: Ken MacLeod Posted: 1/28/1999; 3:27:50 PM Topic: Search Engine XML-RPC Interface Msg #: 2550 (In response to 2548) Prev/Next: 2549 / 2551
Stephen, using the new Frontier-RPC Perl module I just released, you can use Frontier-RPC to parse the request, call your procedure, and encode the response to send back to the client:
use Frontier::RPC2; use DBI;my $length = $ENV{CONTENT_LENGTH}; my $request_xml;
read STDIN, $request_xml, $length;
my $dbh = DBI->connect("xxx", "xxx", "xxx");
my $rpc_coder = Frontier::RPC2->new;
my $sth = $dbh->prepare($sql); $response_xml = $rpc_coder->serve( $request_xml, { 'nirvanaServer.search.index' => &index } );
print "Content-type: text/xml\n\n"; print "$response_xml";
sub index { if ((scalar @_) < 5) { die ("Not enough parameters\n"); } elsif ((scalar @_) > 5) { die ("Too many parameters\n"); }
my $sql = "insert into engine values(\"$values[0]", "$values[1]", "$values[2]", "$values[3]", "$values[4]")";
my $sth = $dbh->prepare($sql);
$sth->execute or die("Could not execute SQL: " . $sth->errstr);
# return true if SQL execute was successful return Frontier::RPC2::Boolean->new(1); }
There are responses to this message:
- Re: Search Engine XML-RPC Interface, Stephen Judd, 1/28/1999; 4:00:57 PM
- backslashes missing in discuss messages, Ken MacLeod, 1/28/1999; 4:05:02 PM
This page was archived on 6/13/2001; 4:47:38 PM.
© Copyright 1998-2001 UserLand Software, Inc.