Using the new ylog.h everywhere, and fixing what that breaks!
[idzebra-moved-to-github.git] / index / zserver.c
index cfa6587..600248a 100644 (file)
@@ -1,4 +1,4 @@
-/* $Id: zserver.c,v 1.114 2004-03-29 15:48:14 adam Exp $
+/* $Id: zserver.c,v 1.123 2004-11-19 10:27:08 heikki Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
    Index Data Aps
 
@@ -32,7 +32,7 @@ Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #endif
 
 #include <errno.h>
-#include <yaz/log.h>
+#include <yaz/ylog.h>
 #include <yaz/ill.h>
 #include <yaz/yaz-util.h>
 
@@ -70,12 +70,12 @@ bend_initresult *bend_init (bend_initrequest *q)
     q->implementation_name = "Zebra Information Server";
     q->implementation_version = "Zebra " ZEBRAVER;
 
-    yaz_log (LOG_DEBUG, "bend_init");
+    yaz_log (YLOG_DEBUG, "bend_init");
 
     sob = statserv_getcontrol ();
     if (!(zh = zebra_open (sob->handle)))
     {
-       yaz_log (LOG_WARN, "Failed to read config `%s'", sob->configname);
+       yaz_log (YLOG_WARN, "Failed to read config `%s'", sob->configname);
        r->errcode = 1;
        return r;
     }
@@ -118,7 +118,7 @@ bend_initresult *bend_init (bend_initrequest *q)
         int i;
         NMEM nmem = nmem_create();
 
-        yaz_log (LOG_LOG, "character set and language negotiation");
+        yaz_log (YLOG_LOG, "character set and language negotiation");
 
         yaz_get_proposal_charneg (nmem, q->charneg_request,
                                   &charsets, &num_charsets,
@@ -149,7 +149,7 @@ bend_initresult *bend_init (bend_initrequest *q)
             }
             if (odr_set_charset (q->decode, "UTF-8", right_name) == 0)
             {
-                yaz_log (LOG_LOG, "charset %d %s (proper name %s): OK", i,
+                yaz_log (YLOG_LOG, "charset %d %s (proper name %s): OK", i,
                          charsets[i], right_name);
                 odr_set_charset (q->stream, right_name, "UTF-8");
                 if (selected)
@@ -159,7 +159,7 @@ bend_initresult *bend_init (bend_initrequest *q)
                                               0, selected);
                break;
             } else {
-                yaz_log (LOG_LOG, "charset %d %s (proper name %s): unsupported", i,
+                yaz_log (YLOG_LOG, "charset %d %s (proper name %s): unsupported", i,
                          charsets[i], right_name);
             }
         }
@@ -170,15 +170,16 @@ bend_initresult *bend_init (bend_initrequest *q)
 
 static void search_terms (ZebraHandle zh, bend_search_rr *r)
 {
-    int count;
+    zint count = 0;
     int no_terms;
     int i;
-    int type;
+    int type = Z_Term_general;
     struct Z_External *ext;
     Z_SearchInfoReport *sr;
 
     /* get no of terms for result set */
-    no_terms = zebra_resultSetTerms (zh, r->setname, 0, 0, 0, 0, 0);
+    no_terms = 0; /* zebra_resultSetTerms (zh, r->setname, 0, 0, 0, 0, 0); */
+      /* FIXME - Rsets don't know number of terms no more ??? */
     if (!no_terms)
         return;
 
@@ -208,9 +209,11 @@ static void search_terms (ZebraHandle zh, bend_search_rr *r)
         Z_Term *term;
         char outbuf[1024];
         size_t len = sizeof(outbuf);
+        /* FIXME - Can we just skip this ??? */
+        /*
         zebra_resultSetTerms (zh, r->setname, i,
                               &count, &type, outbuf, &len);
-        
+        */
         sr->elements[i] = odr_malloc (r->stream, sizeof(**sr->elements));
         sr->elements[i]->subqueryId = 0;
         sr->elements[i]->fullQuery = odr_malloc (r->stream, 
@@ -227,12 +230,12 @@ static void search_terms (ZebraHandle zh, bend_search_rr *r)
         switch (type)
         {
         case Z_Term_characterString:
-            yaz_log (LOG_DEBUG, "term as characterString");
+            yaz_log (YLOG_DEBUG, "term as characterString");
             term->which = Z_Term_characterString;
             term->u.characterString = odr_strdup (r->stream, outbuf);
             break;
         case Z_Term_general:
-            yaz_log (LOG_DEBUG, "term as general");
+            yaz_log (YLOG_DEBUG, "term as general");
             term->which = Z_Term_general;
             term->u.general = odr_malloc (r->stream, sizeof(*term->u.general));
             term->u.general->size = term->u.general->len = len;
@@ -246,7 +249,9 @@ static void search_terms (ZebraHandle zh, bend_search_rr *r)
         sr->elements[i]->subqueryExpression->u.term->termComment = 0;
         sr->elements[i]->subqueryInterpretation = 0;
         sr->elements[i]->subqueryRecommendation = 0;
-        sr->elements[i]->subqueryCount = odr_intdup (r->stream, count);
+       if (count > 2000000000)
+           count = 2000000000;
+        sr->elements[i]->subqueryCount = odr_intdup (r->stream, (int) count);
         sr->elements[i]->subqueryWeight = 0;
         sr->elements[i]->resultsByDB = 0;
     }
@@ -266,7 +271,7 @@ int bend_search (void *handle, bend_search_rr *r)
         zebra_result (zh, &r->errcode, &r->errstring);
         return 0;
     }
-    yaz_log (LOG_LOG, "ResultSet '%s'", r->setname);
+    yaz_log (YLOG_LOG, "ResultSet '%s'", r->setname);
     switch (r->query->which)
     {
     case Z_Query_type_1: case Z_Query_type_101:
@@ -329,6 +334,11 @@ static int bend_scan (void *handle, bend_scan_rr *r)
         zebra_result (zh, &r->errcode, &r->errstring);
         return 0;
     }
+    if (r->step_size != 0 && *r->step_size != 0) {
+       r->errcode = 205; /* "Only zero step size supported for Scan" */
+       r->errstring = 0;
+        return 0;
+    }
     r->entries = (struct scan_entry *)
        odr_malloc (r->stream, sizeof(*r->entries) * r->num_entries);
     zebra_scan (zh, r->stream, r->term,
@@ -378,47 +388,50 @@ int bend_delete (void *handle, bend_delete_rr *rr)
 
 static int es_admin_request (ZebraHandle zh, Z_AdminEsRequest *r)
 {
+    if (r->toKeep->databaseName)
+    {
+       yaz_log(YLOG_LOG, "adm request database %s", r->toKeep->databaseName);
+    }
     switch (r->toKeep->which)
     {
     case Z_ESAdminOriginPartToKeep_reIndex:
-       yaz_log(LOG_LOG, "adm-reindex");
+       yaz_log(YLOG_LOG, "adm-reindex");
        break;
     case Z_ESAdminOriginPartToKeep_truncate:
-       yaz_log(LOG_LOG, "adm-truncate");
+       yaz_log(YLOG_LOG, "adm-truncate");
        break;
     case Z_ESAdminOriginPartToKeep_drop:
-       yaz_log(LOG_LOG, "adm-drop");
+       yaz_log(YLOG_LOG, "adm-drop");
        zebra_drop_database (zh, r->toKeep->databaseName);
        break;
     case Z_ESAdminOriginPartToKeep_create:
-       yaz_log(LOG_LOG, "adm-create %s", r->toKeep->databaseName);
+       yaz_log(YLOG_LOG, "adm-create %s", r->toKeep->databaseName);
        zebra_create_database (zh, r->toKeep->databaseName);
        break;
     case Z_ESAdminOriginPartToKeep_import:
-       yaz_log(LOG_LOG, "adm-import");
+       yaz_log(YLOG_LOG, "adm-import");
        zebra_admin_import_begin (zh, r->toKeep->databaseName,
                        r->toKeep->u.import->recordType);
        break;
     case Z_ESAdminOriginPartToKeep_refresh:
-       yaz_log(LOG_LOG, "adm-refresh");
+       yaz_log(YLOG_LOG, "adm-refresh");
        break;
     case Z_ESAdminOriginPartToKeep_commit:
-       yaz_log(LOG_LOG, "adm-commit");
+       yaz_log(YLOG_LOG, "adm-commit");
+       if (r->toKeep->databaseName)
+           zebra_select_database(zh, r->toKeep->databaseName);
+       zebra_commit(zh);
        break;
     case Z_ESAdminOriginPartToKeep_shutdown:
-       yaz_log(LOG_LOG, "shutdown");
+       yaz_log(YLOG_LOG, "shutdown");
        zebra_admin_shutdown(zh);
        break;
     case Z_ESAdminOriginPartToKeep_start:
-       yaz_log(LOG_LOG, "start");
+       yaz_log(YLOG_LOG, "start");
        zebra_admin_start(zh);
        break;
     default:
-       yaz_log(LOG_LOG, "unknown admin");
-    }
-    if (r->toKeep->databaseName)
-    {
-       yaz_log(LOG_LOG, "database %s", r->toKeep->databaseName);
+       yaz_log(YLOG_LOG, "unknown admin");
     }
     return 0;
 }
@@ -431,7 +444,7 @@ static int es_admin (ZebraHandle zh, Z_Admin *r)
        es_admin_request (zh, r->u.esRequest);
        break;
     case Z_Admin_taskPackage:
-       yaz_log (LOG_LOG, "adm taskpackage (unhandled)");
+       yaz_log (YLOG_LOG, "adm taskpackage (unhandled)");
        break;
     default:
        break;
@@ -456,14 +469,14 @@ int bend_esrequest (void *handle, bend_esrequest_rr *rr)
 {
     ZebraHandle zh = (ZebraHandle) handle;
     
-    yaz_log(LOG_LOG, "function: %d", *rr->esr->function);
+    yaz_log(YLOG_LOG, "function: %d", *rr->esr->function);
     if (rr->esr->packageName)
-       yaz_log(LOG_LOG, "packagename: %s", rr->esr->packageName);
-    yaz_log(LOG_LOG, "Waitaction: %d", *rr->esr->waitAction);
+       yaz_log(YLOG_LOG, "packagename: %s", rr->esr->packageName);
+    yaz_log(YLOG_LOG, "Waitaction: %d", *rr->esr->waitAction);
 
     if (!rr->esr->taskSpecificParameters)
     {
-        yaz_log (LOG_WARN, "No task specific parameters");
+        yaz_log (YLOG_WARN, "No task specific parameters");
     }
     else if (rr->esr->taskSpecificParameters->which == Z_External_ESAdmin)
     {
@@ -474,53 +487,53 @@ int bend_esrequest (void *handle, bend_esrequest_rr *rr)
     else if (rr->esr->taskSpecificParameters->which == Z_External_update)
     {
        Z_IUUpdate *up = rr->esr->taskSpecificParameters->u.update;
-       yaz_log (LOG_LOG, "Received DB Update");
+       yaz_log (YLOG_LOG, "Received DB Update");
        if (up->which == Z_IUUpdate_esRequest)
        {
            Z_IUUpdateEsRequest *esRequest = up->u.esRequest;
            Z_IUOriginPartToKeep *toKeep = esRequest->toKeep;
            Z_IUSuppliedRecords *notToKeep = esRequest->notToKeep;
            
-           yaz_log (LOG_LOG, "action");
+           yaz_log (YLOG_LOG, "action");
            if (toKeep->action)
            {
                switch (*toKeep->action)
                {
                case Z_IUOriginPartToKeep_recordInsert:
-                   yaz_log (LOG_LOG, "recordInsert");
+                   yaz_log (YLOG_LOG, "recordInsert");
                    break;
                case Z_IUOriginPartToKeep_recordReplace:
-                   yaz_log (LOG_LOG, "recordUpdate");
+                   yaz_log (YLOG_LOG, "recordUpdate");
                    break;
                case Z_IUOriginPartToKeep_recordDelete:
-                   yaz_log (LOG_LOG, "recordDelete");
+                   yaz_log (YLOG_LOG, "recordDelete");
                    break;
                case Z_IUOriginPartToKeep_elementUpdate:
-                   yaz_log (LOG_LOG, "elementUpdate");
+                   yaz_log (YLOG_LOG, "elementUpdate");
                    break;
                case Z_IUOriginPartToKeep_specialUpdate:
-                   yaz_log (LOG_LOG, "specialUpdate");
+                   yaz_log (YLOG_LOG, "specialUpdate");
                    break;
                 case Z_ESAdminOriginPartToKeep_shutdown:
-                   yaz_log (LOG_LOG, "shutDown");
+                   yaz_log (YLOG_LOG, "shutDown");
                    break;
                case Z_ESAdminOriginPartToKeep_start:
-                   yaz_log (LOG_LOG, "start");
+                   yaz_log (YLOG_LOG, "start");
                    break;
                default:
-                   yaz_log (LOG_LOG, " unknown (%d)", *toKeep->action);
+                   yaz_log (YLOG_LOG, " unknown (%d)", *toKeep->action);
                }
            }
            if (toKeep->databaseName)
            {
-               yaz_log (LOG_LOG, "database: %s", toKeep->databaseName);
+               yaz_log (YLOG_LOG, "database: %s", toKeep->databaseName);
 
                 if (zebra_select_database(zh, toKeep->databaseName))
                     return 0;
            }
             else
             {
-                yaz_log (LOG_WARN, "no database supplied for ES Update");
+                yaz_log (YLOG_WARN, "no database supplied for ES Update");
                 rr->errcode = 1008;
                 rr->errstring = "database";
                 return 0;
@@ -534,7 +547,7 @@ int bend_esrequest (void *handle, bend_esrequest_rr *rr)
                    Z_External *rec = notToKeep->elements[i]->record;
                     struct oident *oident = 0;
                     Odr_oct *opaque_recid = 0;
-                   int sysno = 0;
+                   SYSNO sysno = 0;
 
                    if (notToKeep->elements[i]->u.opaque)
                    {
@@ -552,28 +565,28 @@ int bend_esrequest (void *handle, bend_esrequest_rr *rr)
                    {
                        oident = oid_getentbyoid(rec->direct_reference);
                        if (oident)
-                           yaz_log (LOG_LOG, "record %d type %s", i,
+                           yaz_log (YLOG_LOG, "record %d type %s", i,
                                     oident->desc);
                    }
                    switch (rec->which)
                    {
                    case Z_External_sutrs:
                        if (rec->u.octet_aligned->len > 170)
-                           yaz_log (LOG_LOG, "%d bytes:\n%.168s ...",
+                           yaz_log (YLOG_LOG, "%d bytes:\n%.168s ...",
                                     rec->u.sutrs->len,
                                     rec->u.sutrs->buf);
                        else
-                           yaz_log (LOG_LOG, "%d bytes:\n%s",
+                           yaz_log (YLOG_LOG, "%d bytes:\n%s",
                                     rec->u.sutrs->len,
                                     rec->u.sutrs->buf);
                         break;
                    case Z_External_octet:
                        if (rec->u.octet_aligned->len > 170)
-                           yaz_log (LOG_LOG, "%d bytes:\n%.168s ...",
+                           yaz_log (YLOG_LOG, "%d bytes:\n%.168s ...",
                                     rec->u.octet_aligned->len,
                                     rec->u.octet_aligned->buf);
                        else
-                           yaz_log (LOG_LOG, "%d bytes\n%s",
+                           yaz_log (YLOG_LOG, "%d bytes\n%s",
                                     rec->u.octet_aligned->len,
                                     rec->u.octet_aligned->buf);
                    }
@@ -633,7 +646,8 @@ int bend_esrequest (void *handle, bend_esrequest_rr *rr)
                                    0, /* match */
                                    0, /* fname */
                                    rec->u.octet_aligned->buf,
-                                   rec->u.octet_aligned->len);
+                                   rec->u.octet_aligned->len,
+                                   0);
                                if (r)
                                {
                                    rr->errcode = 224;
@@ -683,7 +697,7 @@ int bend_esrequest (void *handle, bend_esrequest_rr *rr)
     }
     else
     {
-        yaz_log (LOG_WARN, "Unknown Extended Service(%d)",
+        yaz_log (YLOG_WARN, "Unknown Extended Service(%d)",
                 rr->esr->taskSpecificParameters->which);
         rr->errcode = 221;
        
@@ -695,10 +709,10 @@ static void bend_start (struct statserv_options_block *sob)
 {
     if (sob->handle)
        zebra_stop((ZebraService) sob->handle);
-    sob->handle = zebra_start(sob->configname, 0, 0);
+    sob->handle = zebra_start(sob->configname);
     if (!sob->handle)
     {
-       yaz_log (LOG_FATAL, "Failed to read config `%s'", sob->configname);
+       yaz_log (YLOG_FATAL, "Failed to read config `%s'", sob->configname);
        exit (1);
     }
 #ifdef WIN32
@@ -717,13 +731,13 @@ static void bend_start (struct statserv_options_block *sob)
         {
             if (errno != EEXIST)
             {
-                yaz_log(LOG_FATAL|LOG_ERRNO, "lock file %s", pidfname);
+                yaz_log(YLOG_FATAL|YLOG_ERRNO, "lock file %s", pidfname);
                 exit(1);
             }
             fd = open(pidfname, O_RDWR, 0666);
             if (fd == -1)
             {
-                yaz_log(LOG_FATAL|LOG_ERRNO, "lock file %s", pidfname);
+                yaz_log(YLOG_FATAL|YLOG_ERRNO, "lock file %s", pidfname);
                 exit(1);
             }
         }
@@ -732,7 +746,7 @@ static void bend_start (struct statserv_options_block *sob)
         area.l_len = area.l_start = 0L;
         if (fcntl (fd, F_SETLK, &area) == -1)
         {
-            yaz_log(LOG_ERRNO|LOG_FATAL, "Zebra server already running");
+            yaz_log(YLOG_ERRNO|YLOG_FATAL, "Zebra server already running");
             exit(1);
         }
         else