X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Fzebra_perl.c;h=0649bcaf930114eaf1f8e70a8bc0d09180223cf5;hb=dfa73b7f3e4991f95e868da0ea7e2a9bbf18784a;hp=a0f29d7b02db89da933aae211d2f3049a1c2a695;hpb=af03c4a4f5320b52c7cc5f47bab7c9ad4b3e384d;p=idzebra-moved-to-github.git

diff --git a/perl/zebra_perl.c b/perl/zebra_perl.c
index a0f29d7..0649bca 100644
--- a/perl/zebra_perl.c
+++ b/perl/zebra_perl.c
@@ -1,21 +1,26 @@
 //#include "zebraapi.h"
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#include <yaz/yaz-util.h>
+#include <yaz/proto.h>
 #include "zebra_perl.h"
 #include <data1.h>
 #include <yaz/log.h>
-#include "rg.h"
 
 NMEM handles;
 
 void init (void) {
   nmem_init ();
   yaz_log_init_prefix ("ZebraPerl");
-  yaz_log (LOG_LOG, "Zebra::API initialized");
+  yaz_log (LOG_LOG, "Zebra API initialized");
 }
 
 void DESTROY (void) {
   nmem_exit ();
-  yaz_log (LOG_LOG, "Zebra::API destroyed");
-}
+  yaz_log (LOG_LOG, "Zebra API destroyed");
+}   
 
 /* Logging facilities from yaz */
 void logLevel (int level) {
@@ -30,4 +35,6 @@ void logMsg (int level, const char *message) {
   logf(level, "%s", message);
 }
 
-
+void zts_test (ZebraTransactionStatus *stat) {
+  stat->processed++;
+}