Updates for SRU Update by Ko van der Sloot:
[yaz-moved-to-github.git] / src / seshigh.c
index 2a3fc2f..de71c65 100644 (file)
@@ -2,7 +2,7 @@
  * Copyright (C) 1995-2005, Index Data ApS
  * See the file LICENSE for details.
  *
- * $Id: seshigh.c,v 1.96 2006-08-24 13:25:45 adam Exp $
+ * $Id: seshigh.c,v 1.103 2006-10-27 11:22:09 adam Exp $
  */
 /**
  * \file seshigh.c
@@ -108,7 +108,7 @@ static int log_request = 0; /* one-line logs for requests */
 static int log_requestdetail = 0;  /* more detailed stuff */
 
 /** get_logbits sets global loglevel bits */
-static void get_logbits()
+static void get_logbits(void)
 { /* needs to be called after parsing cmd-line args that can set loglevels!*/
     if (!logbits_set)
     {
@@ -339,8 +339,18 @@ void ir_session(IOCHAN h, int event)
                 return;
             }
             assoc->cs_get_mask = EVENT_INPUT;
-            if ((res = cs_get(conn, &assoc->input_buffer,
-                &assoc->input_buffer_len)) == 0)
+            res = cs_get(conn, &assoc->input_buffer,
+                &assoc->input_buffer_len);
+            if (res < 0 && cs_errno(conn) == CSBUFSIZE)
+            {
+                yaz_log(log_session, "Connection error: %s res=%d",
+                        cs_errmsg(cs_errno(conn)), res);
+                req = request_get(&assoc->incoming); /* get a new request */
+                do_close_req(assoc, Z_Close_protocolError, 
+                             "Incoming package too large", req);
+                return;
+            }
+            else if (res <= 0)
             {
                 yaz_log(log_sessiondetail, "Connection closed by client");
                 cs_close(conn);
@@ -348,15 +358,6 @@ void ir_session(IOCHAN h, int event)
                 iochan_destroy(h);
                 return;
             }
-            else if (res < 0)
-            {
-                yaz_log(log_session, "Connection error: %s",
-                        cs_errmsg(cs_errno(conn)));
-                req = request_get(&assoc->incoming); /* get a new request */
-                do_close_req(assoc, Z_Close_protocolError, 
-                             "Incoming package too large", req);
-                return;
-            }
             else if (res == 1) /* incomplete read - wait for more  */
             {
                 if (conn->io_pending & CS_WANT_WRITE)
@@ -518,9 +519,6 @@ static int srw_bend_init(association *assoc, Z_SRW_diagnostic **d, int *num, Z_S
         yaz_log(log_requestdetail, "srw_bend_init config=%s", cb->configname);
         assoc_init_reset(assoc);
         
-        assoc->maximumRecordSize = 3000000;
-        assoc->preferredMessageSize = 3000000;
-
         if (sr->username)
         {
             Z_IdAuthentication *auth = odr_malloc(assoc->decode, sizeof(*auth));
@@ -1015,114 +1013,112 @@ static void srw_bend_search(association *assoc, request *req,
                     srw_res->resultSetIdleTime =
                         odr_intdup(assoc->encode, *rr.srw_setnameIdleTime );
                }
-                if (number > 0)
+                
+                if ((rr.hits > 0 && start > rr.hits) || start < 1)
+                {
+                    yaz_add_srw_diagnostic(
+                        assoc->encode, 
+                        &srw_res->diagnostics, &srw_res->num_diagnostics,
+                        YAZ_SRW_FIRST_RECORD_POSITION_OUT_OF_RANGE, 0);
+                }
+                else if (number > 0)
                 {
                     int i;
+                    int ok = 1;
+                    if (start + number > rr.hits)
+                        number = rr.hits - start + 1;
                     
-                    if (start > rr.hits)
+                    /* Call bend_present if defined */
+                    if (assoc->init->bend_present)
                     {
-                        yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                               &srw_res->num_diagnostics,
-                                               YAZ_SRW_FIRST_RECORD_POSITION_OUT_OF_RANGE, 0);
+                        bend_present_rr *bprr = (bend_present_rr*)
+                            odr_malloc (assoc->decode, sizeof(*bprr));
+                        bprr->setname = "default";
+                        bprr->start = start;
+                        bprr->number = number;
+                        bprr->format = VAL_TEXT_XML;
+                        if (srw_req->recordSchema)
+                        {
+                            bprr->comp = (Z_RecordComposition *) odr_malloc(assoc->decode,
+                                                                            sizeof(*bprr->comp));
+                            bprr->comp->which = Z_RecordComp_simple;
+                            bprr->comp->u.simple = (Z_ElementSetNames *)
+                                odr_malloc(assoc->decode, sizeof(Z_ElementSetNames));
+                            bprr->comp->u.simple->which = Z_ElementSetNames_generic;
+                            bprr->comp->u.simple->u.generic = srw_req->recordSchema;
+                        }
+                        else
+                        {
+                            bprr->comp = 0;
+                        }
+                        bprr->stream = assoc->encode;
+                        bprr->referenceId = 0;
+                        bprr->print = assoc->print;
+                        bprr->request = req;
+                        bprr->association = assoc;
+                        bprr->errcode = 0;
+                        bprr->errstring = NULL;
+                        (*assoc->init->bend_present)(assoc->backend, bprr);
+                        
+                        if (!bprr->request)
+                            return;
+                        if (bprr->errcode)
+                        {
+                            srw_error = yaz_diag_bib1_to_srw (bprr->errcode);
+                            yaz_add_srw_diagnostic(assoc->encode,
+                                                   &srw_res->diagnostics,
+                                                   &srw_res->num_diagnostics,
+                                                   srw_error, bprr->errstring);
+                            ok = 0;
+                        }
                     }
-                    else
+                    
+                    if (ok)
                     {
-                        int ok = 1;
-                        if (start + number > rr.hits)
-                            number = rr.hits - start + 1;
-
-                        /* Call bend_present if defined */
-                        if (assoc->init->bend_present)
+                        int j = 0;
+                        int packing = Z_SRW_recordPacking_string;
+                        if (srw_req->recordPacking){
+                            if (!strcmp(srw_req->recordPacking, "xml"))
+                                packing = Z_SRW_recordPacking_XML;
+                            if (!strcmp(srw_req->recordPacking, "url"))
+                                packing = Z_SRW_recordPacking_URL;
+                        }
+                        srw_res->records = (Z_SRW_record *)
+                            odr_malloc(assoc->encode,
+                                       number * sizeof(*srw_res->records));
+                        
+                        srw_res->extra_records = (Z_SRW_extra_record **)
+                            odr_malloc(assoc->encode,
+                                       number*sizeof(*srw_res->extra_records));
+                        
+                        for (i = 0; i<number; i++)
                         {
-                            bend_present_rr *bprr = (bend_present_rr*)
-                                odr_malloc (assoc->decode, sizeof(*bprr));
-                            bprr->setname = "default";
-                            bprr->start = start;
-                            bprr->number = number;
-                            bprr->format = VAL_TEXT_XML;
-                            if (srw_req->recordSchema)
-                            {
-                                bprr->comp = (Z_RecordComposition *) odr_malloc(assoc->decode,
-                                        sizeof(*bprr->comp));
-                                bprr->comp->which = Z_RecordComp_simple;
-                                bprr->comp->u.simple = (Z_ElementSetNames *)
-                                    odr_malloc(assoc->decode, sizeof(Z_ElementSetNames));
-                                bprr->comp->u.simple->which = Z_ElementSetNames_generic;
-                                bprr->comp->u.simple->u.generic = srw_req->recordSchema;
-                            }
-                            else
-                            {
-                                bprr->comp = 0;
-                            }
-                            bprr->stream = assoc->encode;
-                            bprr->referenceId = 0;
-                            bprr->print = assoc->print;
-                            bprr->request = req;
-                            bprr->association = assoc;
-                            bprr->errcode = 0;
-                            bprr->errstring = NULL;
-                            (*assoc->init->bend_present)(assoc->backend, bprr);
+                            int errcode;
+                            const char *addinfo = 0;
                             
-                            if (!bprr->request)
-                                return;
-                            if (bprr->errcode)
+                            srw_res->records[j].recordPacking = packing;
+                            srw_res->records[j].recordData_buf = 0;
+                            srw_res->extra_records[j] = 0;
+                            yaz_log(YLOG_DEBUG, "srw_bend_fetch %d", i+start);
+                            errcode = srw_bend_fetch(assoc, i+start, srw_req,
+                                                     srw_res->records + j,
+                                                     &addinfo);
+                            if (errcode)
                             {
-                                srw_error = yaz_diag_bib1_to_srw (bprr->errcode);
                                 yaz_add_srw_diagnostic(assoc->encode,
                                                        &srw_res->diagnostics,
                                                        &srw_res->num_diagnostics,
-                                                       srw_error, bprr->errstring);
-                                ok = 0;
-                            }
-                        }
-
-                        if (ok)
-                        {
-                            int j = 0;
-                            int packing = Z_SRW_recordPacking_string;
-                            if (srw_req->recordPacking){
-                                if (!strcmp(srw_req->recordPacking, "xml"))
-                                    packing = Z_SRW_recordPacking_XML;
-                                if (!strcmp(srw_req->recordPacking, "url"))
-                                    packing = Z_SRW_recordPacking_URL;
-                            }
-                            srw_res->records = (Z_SRW_record *)
-                                odr_malloc(assoc->encode,
-                                           number * sizeof(*srw_res->records));
-                            
-                            srw_res->extra_records = (Z_SRW_extra_record **)
-                                odr_malloc(assoc->encode,
-                                           number*sizeof(*srw_res->extra_records));
-
-                            for (i = 0; i<number; i++)
-                            {
-                                int errcode;
-                                const char *addinfo = 0;
+                                                       yaz_diag_bib1_to_srw (errcode),
+                                                       addinfo);
                                 
-                                srw_res->records[j].recordPacking = packing;
-                                srw_res->records[j].recordData_buf = 0;
-                                srw_res->extra_records[j] = 0;
-                                yaz_log(YLOG_DEBUG, "srw_bend_fetch %d", i+start);
-                                errcode = srw_bend_fetch(assoc, i+start, srw_req,
-                                                         srw_res->records + j,
-                                                         &addinfo);
-                                if (errcode)
-                                {
-                                    yaz_add_srw_diagnostic(assoc->encode,
-                                                           &srw_res->diagnostics,
-                                                           &srw_res->num_diagnostics,
-                                                           yaz_diag_bib1_to_srw (errcode),
-                                                           addinfo);
-                                    
-                                    break;
-                                }
-                                if (srw_res->records[j].recordData_buf)
-                                    j++;
+                                break;
                             }
-                            srw_res->num_records = j;
-                            if (!j)
-                                srw_res->records = 0;
+                            if (srw_res->records[j].recordData_buf)
+                                j++;
                         }
+                        srw_res->num_records = j;
+                        if (!j)
+                            srw_res->records = 0;
                     }
                 }
             }
@@ -1481,24 +1477,60 @@ static void srw_bend_update(association *assoc, request *req,
         rr.uri = 0;
         rr.message = 0;
         rr.details = 0;
-
+        
+        if ( rr.operation == 0 ){
+            yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                          &srw_res->num_diagnostics,
+                                          9, "action" );
+            return;
+        }
         yaz_log(YLOG_DEBUG, "basename = %s", rr.basenames[0] );
         yaz_log(YLOG_DEBUG, "Operation = %s", rr.operation );
        if ( !strcmp( rr.operation, "delete" ) ){
             if ( !srw_req->recordId ){
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordId" );
+                if ( srw_req->record.recordData_len ){
+                    if ( srw_req->record.recordSchema == 0 ){
+                        yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                                      &srw_res->num_diagnostics,
+                                                      9, "recordSchema" );
+                    }
+                    else {
+                        rr.record_schema = odr_strdup(assoc->encode,
+                                                      srw_req->record.recordSchema );
+                    }
+                    switch (srw_req->record.recordPacking)
+                        {
+                        case Z_SRW_recordPacking_string: 
+                            rr.record_packing = "string";
+                            break;
+                        case Z_SRW_recordPacking_XML: 
+                            rr.record_packing = "xml";
+                            break;
+                        case Z_SRW_recordPacking_URL: 
+                            rr.record_packing = "url";
+                            break;
+                        }
+                    rr.record_data = odr_strdupn(assoc->encode, 
+                                                 srw_req->record.recordData_buf,
+                                                 srw_req->record.recordData_len );
+                    rr.request_extra_record = srw_req->extra_record;
+                }
+                else {
+                    yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                                  &srw_res->num_diagnostics,
+                                                  9, "recordIdentifier OR recordData" );
+                }
             }
             else {
                 rr.record_id = srw_req->recordId;
+                if ( srw_req->record.recordData_len ){
+                    yaz_add_sru_update_diagnostic(assoc->encode, 
+                                                  &srw_res->diagnostics,
+                                                  &srw_res->num_diagnostics,
+                                                  9, "recordData" );
+                }
             }
-            if (  !srw_req->recordVersion ){
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordVersion" );
-            }
-            else {
+            if (  srw_req->recordVersion ){
                 rr.record_version = odr_strdup( assoc->encode,
                                                 srw_req->recordVersion );
                 
@@ -1514,17 +1546,17 @@ static void srw_bend_update(association *assoc, request *req,
        }
        else if ( !strcmp( rr.operation, "replace" ) ){
             if ( !srw_req->recordId ){
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordId" );
+                yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                              &srw_res->num_diagnostics,
+                                              9, "recordIdentifier" );
             }
             else {
                 rr.record_id = srw_req->recordId;
             }
             if ( srw_req->record.recordSchema == 0 ){
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordSchema" );
+                yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                              &srw_res->num_diagnostics,
+                                              9, "recordSchema" );
             }
             else {
                 rr.record_schema = odr_strdup(assoc->encode,
@@ -1549,21 +1581,20 @@ static void srw_bend_update(association *assoc, request *req,
                 rr.request_extra_record = srw_req->extra_record;
             }
             else {
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordData" );
+                yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                              &srw_res->num_diagnostics,
+                                              9, "recordData" );
             }
             if (srw_req->extraRequestData)
                 rr.extra_request_data = odr_strdup(assoc->encode,
                                                    srw_req->extraRequestData );
        }
-       else if ( !strcmp( rr.operation, "insert" ) )
-        {
+       else if (!strcmp( rr.operation, "insert" ) ) {
             rr.record_id = srw_req->recordId; 
             if ( srw_req->record.recordSchema == 0 ){
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordSchema" );
+                yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                              &srw_res->num_diagnostics,
+                                              9, "recordSchema" );
             }
             else {
                 rr.record_schema = odr_strdup(assoc->encode,
@@ -1590,13 +1621,18 @@ static void srw_bend_update(association *assoc, request *req,
                 rr.request_extra_record = srw_req->extra_record;
             }
             else
-                yaz_add_srw_diagnostic(assoc->encode, &srw_res->diagnostics,
-                                       &srw_res->num_diagnostics,
-                                       7, "recordData" );
+                yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                             &srw_res->num_diagnostics,
+                                             9, "recordData" );
             if ( srw_req->extraRequestData )
                 rr.extra_request_data = odr_strdup(assoc->encode,
                                                    srw_req->extraRequestData );
        }
+       else { 
+            yaz_add_sru_update_diagnostic(assoc->encode, &srw_res->diagnostics,
+                                          &srw_res->num_diagnostics,
+                                          100, rr.operation );
+        }
         if (srw_res->num_diagnostics == 0)
         {
             if ( assoc->init->bend_srw_update)
@@ -2307,13 +2343,12 @@ static Z_APDU *process_initRequest(association *assoc, request *reqb)
     }
 
     yaz_log(log_requestdetail, "Negotiated to v%d: %s", assoc->version, options);
-    assoc->maximumRecordSize = *req->maximumRecordSize;
 
-    if (cb && assoc->maximumRecordSize > cb->maxrecordsize)
-        assoc->maximumRecordSize = cb->maxrecordsize;
-    assoc->preferredMessageSize = *req->preferredMessageSize;
-    if (assoc->preferredMessageSize > assoc->maximumRecordSize)
-        assoc->preferredMessageSize = assoc->maximumRecordSize;
+    if (*req->maximumRecordSize < assoc->maximumRecordSize)
+        assoc->maximumRecordSize = *req->maximumRecordSize;
+
+    if (*req->preferredMessageSize < assoc->preferredMessageSize)
+        assoc->preferredMessageSize = *req->preferredMessageSize;
 
     resp->preferredMessageSize = &assoc->preferredMessageSize;
     resp->maximumRecordSize = &assoc->maximumRecordSize;
@@ -2326,7 +2361,7 @@ static Z_APDU *process_initRequest(association *assoc, request *reqb)
                 assoc->init->implementation_name,
                 odr_prepend(assoc->encode, "GFS", resp->implementationName));
 
-    version = odr_strdup(assoc->encode, "$Revision: 1.96 $");
+    version = odr_strdup(assoc->encode, "$Revision: 1.103 $");
     if (strlen(version) > 10)   /* check for unexpanded CVS strings */
         version[strlen(version)-2] = '\0';
     resp->implementationVersion = odr_prepend(assoc->encode,