Perl API os growing

[idzebra-moved-to-github.git] / perl / zebra_perl.c

diff --git a/perl/zebra_perl.c b/perl/zebra_perl.c
index a0f29d7..0649bca 100644 (file)
--- 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++;
+}