Adam Dickmeiss a écrit :
Sebastian Hammer wrote:
My sense is that this is not a Zebra problem but a client-side problem.
Would you be able to reproduce this with a short Perl script that
does not depend on any external libraries (other than ZOOM)? That
would greatly help us in nailing down the problem.
I just tried the script (removed a few lines) againsts yaz-ztest. That
worked OK - with YAZ from CVS and the latest release 2.1.10.
Here is the script, shortest as possible :
#!/usr/bin/perl
use strict;
use ZOOM;
my $Zconn;
$Zconn = new ZOOM::Connection('localhost','2100');
my $Zpackage = $Zconn->package();
$Zpackage->option(databaseName => 'Koha');
$Zpackage->send("create");
my $record='
<?xml version="1.0" encoding="UTF-8"?>
<collection xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";
xsi:schemaLocation="http://www.loc.gov/MARC21/slim
http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd";
xmlns="http://www.loc.gov/MARC21/slim";>
<record>
<leader>00754 2200229 4500</leader>
<controlfield tag="001">2</controlfield>
<datafield tag="010" ind1=" " ind2=" ">
<subfield code="a">2729843132</subfield>
<subfield code="d">190 F</subfield>
</datafield>
<datafield tag="200" ind1="1" ind2=" ">
<subfield code="a">Introduction aux probas</subfield>
<subfield code="f">Jean Pierre DELMAS</subfield>
</datafield>
</record>
</collection>
';
$Zpackage->option(databaseName => 'Koha');
$Zpackage->option(action => "recordInsert");
$Zpackage->option(record => $record);
$Zpackage->send("update");
$Zpackage->destroy;
It still throw an Encoding failed error.
I tried with yaz-ztest @:2100 and get :
address@hidden zebtemp]$ yaz-ztest @:2100
10:19:30-18/01 [server] Adding dynamic listener on @:2100 id=0
10:19:30-18/01 [server] Starting server yaz-ztest pid=5028
10:19:46-18/01 [session] Connect from tcp:127.0.0.1
10:19:46-18/01 yaz-ztest(1) [session] Starting session 1 from
tcp:127.0.0.1 (pid=5030)
10:19:46-18/01 yaz-ztest(1) [request] Auth none
10:19:46-18/01 yaz-ztest(1) [request] Init OK - ID:81/81
Name:ZOOM-C/YAZ Version:1.37/2.1.2
10:19:46-18/01 yaz-ztest(1) [warn] Unknown Extended Service(19)
10:19:46-18/01 yaz-ztest(1) [request] EsRequest OK: Done !
10:19:46-18/01 yaz-ztest(1) [session] Connection closed by client
what appears to me is that the send("update") never reaches yaz-ztest
(or zebrasrv). The exception must be thrown BEFORE the request is
transmitted to the client.
If you explain what the ->send does technically (which sub it calls,...)
I could investigate a little bit more.
Some tech info :
* my computer runs mandriva linux 2006, (uptodate), with 2.6 smp kernel.
* perl -V
Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
* yaz-client -V
YAZ version: 2.1.10
* zebraidx -V
Zebra 1.3.32 $Date: 2005/11/08 10:48:45 $
(C) 1994-2005, Index Data ApS
Using: Tcl 8.4
Using: Expat 1.95.8