2 # script that starts the zebraquee
3 # Written by TG on 01/08/2006
6 # find Koha's Perl modules
7 # test carefully before changing this
9 eval { require "$FindBin::Bin/../kohalib.pl" };
15 use C4::AuthoritiesMarc;
18 ### ZEBRA SERVER UPDATER
19 ##Uses its own database handle
20 my $dbh=C4::Context->dbh;
21 my $readsth=$dbh->prepare("SELECT id,biblio_auth_number,operation,server FROM zebraqueue WHERE done=0
22 ORDER BY id DESC"); # NOTE - going in reverse order to catch deletes that
23 # occur after a string of updates (e.g., user deletes
24 # the items attached to a bib, then the items.
25 # Having a specialUpdate occur after a recordDelete
27 #my $delsth=$dbh->prepare("delete from zebraqueue where id =?");
32 #my $wait=C4::Context->preference('zebrawait') || 120;
34 print "starting with verbose=$verbose\n" if $verbose;
36 my ($id,$biblionumber,$operation,$server,$marcxml);
39 while (($id,$biblionumber,$operation,$server)=$readsth->fetchrow){
40 print "read in queue : $id : biblio $biblionumber for $operation on $server\n" if $verbose;
43 # if the operation is a deletion, zebra requires that we give it the xml.
44 # as it is no more in the SQL db, retrieve it from zebra itself.
45 # may sound silly, but that's the way zebra works ;-)
46 if ($operation =~ /delete/i) { # NOTE depending on version, delete operation
47 # was coded 'delete_record' or 'recordDelete'.
48 # 'recordDelete' is the preferred one, as that's
49 # what the ZOOM API wants.
50 # 1st read the record in zebra
51 my $Zconn=C4::Context->Zconn($server, 0, 1,'','xml');
52 my $query = $Zconn->search_pqf( '@attr 1=Local-Number '.$biblionumber);
53 # then, delete the record
54 $ok=zebrado($query->record(0)->render(),$operation,$server,$biblionumber);
55 # if it's an add or a modif
58 if ($server eq "biblioserver") {
59 my $marc = GetMarcBiblio($biblionumber);
60 $marcxml = $marc->as_xml_record() if $marc;
61 } elsif ($server eq "authorityserver") {
62 $marcxml =C4::AuthoritiesMarc::GetAuthorityXML($biblionumber);
66 print "XML read : $marcxml\n" if $verbose >1;
68 # workaround for zebra bug needing a XML even for deletion
70 print "unable to read MARCxml\n" if $verbose;
73 # check it's XML, just in case
75 my $hashed=XMLin($marcxml);
76 }; ### is it a proper xml? broken xml may crash ZEBRA- slow but safe
77 ## it's Broken XML-- Should not reach here-- but if it does -lets protect ZEBRA
80 my $delsth=$dbh->prepare("UPDATE zebraqueue SET done=1 WHERE id =?");
81 $delsth->execute($id);
84 # ok, we have everything, do the operation in zebra !
85 $ok=zebrado($marcxml,$operation,$server);
88 print "ZEBRAopserver returned : $ok \n" if $verbose;
90 $dbh=C4::Context->dbh;
92 # if it's a deletion, we can delete every request on this biblio : in case the user
93 # did a modif (or item deletion) just before biblio deletion, there are some specialUpdage
94 # that are pending and can't succeed, as we don't have the XML anymore
95 # so, delete everything for this biblionumber
96 my $reset_readsth = 0;
97 if ($operation eq 'recordDelete') {
98 print "deleting biblio deletion $biblionumber\n" if $verbose;
99 $delsth =$dbh->prepare("UPDATE zebraqueue SET done=1 WHERE biblio_auth_number =?");
100 $delsth->execute($biblionumber);
101 $reset_readsth = 1 if $delsth->rows() > 0;
102 # if it's not a deletion, delete every pending specialUpdate for this biblionumber
103 # in case the user add biblio, then X items, before this script runs
104 # this avoid indexing X+1 times where just 1 is enough.
106 print "deleting special date for $biblionumber\n" if $verbose;
107 $delsth =$dbh->prepare("UPDATE zebraqueue SET done=1 WHERE biblio_auth_number =? and operation='specialUpdate'");
108 $delsth->execute($biblionumber);
109 $reset_readsth = 1 if $delsth->rows() > 0;
111 if ($reset_readsth) {
112 # if we can ignore rows in zebraqueue because we've already
113 # touched a record, reset the query.
122 ###Accepts a $server variable thus we can use it to update biblios, authorities or other zebra dbs
123 my ($record,$op,$server,$biblionumber)=@_;
130 # $record=Encode::encode("UTF-8",$record);
131 my $shadow=$server."shadow";
132 $op = 'recordDelete' if $op eq 'delete_record';
135 my $Zconn=C4::Context->Zconn($server, 0, 1);
137 print "updating $op on $biblionumber for server $server\n $record\n" if $verbose;
138 my $Zpackage = $Zconn->package();
139 $Zpackage->option(action => $op);
140 $Zpackage->option(record => $record);
141 # $Zpackage->option(recordIdOpaque => $biblionumber) if $biblionumber;
143 $Zpackage->send("update");
144 my($error, $errmsg, $addinfo, $diagset) = $Zconn->error_x();
145 if ($error==10007 && $tried<3) {## timeout --another 30 looonng seconds for this update
146 print "error 10007\n" if $verbose;
147 sleep 1; ## wait a sec!
150 }elsif ($error==2 && $tried<2) {## timeout --temporary zebra error !whatever that means
151 print "error 2\n" if $verbose;
152 sleep 2; ## wait two seconds!
155 }elsif($error==10004 && $recon==0){##Lost connection -reconnect
156 print "error 10004\n" if $verbose;
157 sleep 1; ## wait a sec!
159 $Zpackage->destroy();
163 # warn "Error-$server $op /errcode:, $error, /MSG:,$errmsg,$addinfo \n";
164 print "error $error\n" if $verbose;
165 $Zpackage->destroy();
169 $Zpackage->send('commit');
170 # $Zpackage->destroy();