perl/zebra_perl.c

   1 //#include "zebraapi.h"
   2 #include "EXTERN.h"
   3 #include "perl.h"
   4 #include "XSUB.h"
   5
   6 #include <yaz/yaz-util.h>
   7 #include <yaz/proto.h>
   8 #include "zebra_perl.h"
   9 #include <data1.h>
  10 #include <yaz/log.h>
  11
  12 NMEM handles;
  13
  14 void init (void) {
  15   nmem_init ();
  16   yaz_log_init_prefix ("ZebraPerl");
  17   yaz_log (LOG_LOG, "Zebra API initialized");
  18 }
  19
  20 void DESTROY (void) {
  21   nmem_exit ();
  22   yaz_log (LOG_LOG, "Zebra API destroyed");
  23 }
  24
  25 /* Logging facilities from yaz */
  26 void logLevel (int level) {
  27   yaz_log_init_level(level);
  28 }
  29
  30 void logFile (const char *fname) {
  31   yaz_log_init_file(fname);
  32 }
  33
  34 void logMsg (int level, const char *message) {
  35   logf(level, "%s", message);
  36 }
  37
  38 void zts_test (ZebraTransactionStatus *stat) {
  39   stat->processed++;
  40 }