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

diff --git a/perl/zebra_perl.c b/perl/zebra_perl.c
new file mode 100644
index 0000000..a0f29d7
--- /dev/null
+++ b/perl/zebra_perl.c
@@ -0,0 +1,33 @@
+//#include "zebraapi.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");
+}
+
+void DESTROY (void) {
+  nmem_exit ();
+  yaz_log (LOG_LOG, "Zebra::API destroyed");
+}
+
+/* Logging facilities from yaz */
+void logLevel (int level) {
+  yaz_log_init_level(level);
+}
+ 
+void logFile (const char *fname) {
+  yaz_log_init_file(fname);
+}
+
+void logMsg (int level, const char *message) {
+  logf(level, "%s", message);
+}
+
+