[Exist-commits] eXist-1.0/samples/xmlrpc find.rb,1.2,1.3 search2.pl,1.1,1.2

[Wolfgang M. M. <wol...@us...>]

Update of /cvsroot/exist/eXist-1.0/samples/xmlrpc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25674/samples/xmlrpc

Modified Files:
	find.rb search2.pl 
Log Message:
Changed XML-RPC query() method to accept XQuery as a binary argument instead of
a string.

Index: search2.pl
===================================================================
RCS file: /cvsroot/exist/eXist-1.0/samples/xmlrpc/search2.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** search2.pl	19 Feb 2004 16:24:07 -0000	1.1
--- search2.pl	5 Jul 2004 20:04:04 -0000	1.2
***************
*** 25,29 ****
      'highlight-matches' => 'none');
  
! $req = RPC::XML::request->new("query", $query, 20, 1, $options);
  
  $response = $client->send_request($req);
--- 25,29 ----
      'highlight-matches' => 'none');
  
! $req = RPC::XML::request->new("query", RPC::XML::base64->new($query), 20, 1, $options);
  
  $response = $client->send_request($req);

Index: find.rb
===================================================================
RCS file: /cvsroot/exist/eXist-1.0/samples/xmlrpc/find.rb,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** find.rb	1 Apr 2004 14:12:45 -0000	1.2
--- find.rb	5 Jul 2004 20:04:04 -0000	1.3
***************
*** 22,26 ****
  
  begin
!   result = client.call("query", query, 20, 1, outputOptions)
    puts "#{result}\n"
  
--- 22,26 ----
  
  begin
!   result = client.call("query", XMLRPC::Base64.new(query), 20, 1, outputOptions)
    puts "#{result}\n"