X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ztest%2Fztest.c;h=c6cfa7f51d5a1784dd71ff77e4cd0471ac568ce1;hb=7d97c14b8f494310d0d866e9e82bb37c8b5a4e63;hp=e6ce6a25fea056ce70db7f566704ca41b18d6659;hpb=63ce3b67bdea2b7cd0531f3f11ccbc8c94753455;p=yaz-moved-to-github.git diff --git a/ztest/ztest.c b/ztest/ztest.c index e6ce6a2..c6cfa7f 100644 --- a/ztest/ztest.c +++ b/ztest/ztest.c @@ -7,7 +7,40 @@ * Chas Woodfield, Fretwell Downing Datasystems. * * $Log: ztest.c,v $ - * Revision 1.14 1998-10-13 16:12:25 adam + * Revision 1.25 1999-06-01 14:29:12 adam + * Work on Extended Services. + * + * Revision 1.24 1999/05/27 13:07:54 adam + * Fix. + * + * Revision 1.23 1999/05/27 13:02:20 adam + * Assigned OID for old DB Update (VAL_DBUPDATE0). + * + * Revision 1.22 1999/05/26 13:49:12 adam + * DB Update implemented in client (very basic). + * + * Revision 1.21 1998/12/15 12:45:42 adam + * Minor change. + * + * Revision 1.20 1998/12/14 14:48:05 adam + * Fixed memory leak - happened when fetching MARC records. + * + * Revision 1.19 1998/10/20 15:16:22 adam + * Minor change to prevent warning. + * + * Revision 1.18 1998/10/20 15:13:45 adam + * Minor fix regarding output for Item Order. + * + * Revision 1.17 1998/10/18 22:33:35 quinn + * Added diagnostic dump of Item Order Eservice. + * + * Revision 1.16 1998/10/15 08:26:23 adam + * Added type cast to make C++ happy. + * + * Revision 1.15 1998/10/13 20:05:57 adam + * Minor change. + * + * Revision 1.14 1998/10/13 16:12:25 adam * Added support for Surrogate Diagnostics for Scan Term entries. * * Revision 1.13 1998/08/19 16:10:09 adam @@ -62,7 +95,6 @@ #include #include -#include #include #include @@ -103,7 +135,147 @@ int ztest_present (void *handle, bend_present_rr *rr) int ztest_esrequest (void *handle, bend_esrequest_rr *rr) { - rr->errcode = 0; + logf(LOG_LOG, "function: %d", *rr->esr->function); + if (rr->esr->packageName) + logf(LOG_LOG, "packagename: %s", rr->esr->packageName); + logf(LOG_LOG, "Waitaction: %d", *rr->esr->waitAction); + + if (!rr->esr->taskSpecificParameters) + { + logf (LOG_WARN, "No task specific parameters"); + } + else if (rr->esr->taskSpecificParameters->which == Z_External_itemOrder) + { + Z_ItemOrder *it = rr->esr->taskSpecificParameters->u.itemOrder; + logf (LOG_LOG, "Received ItemOrder"); + switch (it->which) + { +#ifdef ASN_COMPILED + case Z_IOItemOrder_esRequest: +#else + case Z_ItemOrder_esRequest: +#endif + { + Z_IORequest *ir = it->u.esRequest; + Z_IOOriginPartToKeep *k = ir->toKeep; + Z_IOOriginPartNotToKeep *n = ir->notToKeep; + + if (k && k->contact) + { + if (k->contact->name) + logf(LOG_LOG, "contact name %s", k->contact->name); + if (k->contact->phone) + logf(LOG_LOG, "contact phone %s", k->contact->phone); + if (k->contact->email) + logf(LOG_LOG, "contact email %s", k->contact->email); + } + if (k->addlBilling) + { + logf(LOG_LOG, "Billing info (not shown)"); + } + + if (n->resultSetItem) + { + logf(LOG_LOG, "resultsetItem"); + logf(LOG_LOG, "setId: %s", n->resultSetItem->resultSetId); + logf(LOG_LOG, "item: %d", *n->resultSetItem->item); + } + } + break; + } + } + else if (rr->esr->taskSpecificParameters->which == Z_External_update) + { + Z_IUUpdate *up = rr->esr->taskSpecificParameters->u.update; + logf (LOG_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; + + logf (LOG_LOG, "action"); + if (toKeep->action) + { + switch (*toKeep->action) + { + case Z_IUOriginPartToKeep_recordInsert: + logf (LOG_LOG, " recordInsert"); + break; + case Z_IUOriginPartToKeep_recordReplace: + logf (LOG_LOG, " recordUpdate"); + break; + case Z_IUOriginPartToKeep_recordDelete: + logf (LOG_LOG, " recordDelete"); + break; + case Z_IUOriginPartToKeep_elementUpdate: + logf (LOG_LOG, " elementUpdate"); + break; + case Z_IUOriginPartToKeep_specialUpdate: + logf (LOG_LOG, " specialUpdate"); + break; + default: + logf (LOG_LOG, " unknown (%d)", *toKeep->action); + } + } + if (toKeep->databaseName) + { + logf (LOG_LOG, "database: %s", toKeep->databaseName); + if (!strcmp(toKeep->databaseName, "fault")) + { + rr->errcode = 109; + rr->errstring = toKeep->databaseName; + } + if (!strcmp(toKeep->databaseName, "accept")) + rr->errcode = -1; + } + if (notToKeep) + { + int i; + for (i = 0; i < notToKeep->num; i++) + { + Z_External *rec = notToKeep->elements[i]->record; + + if (rec->direct_reference) + { + struct oident *oident; + oident = oid_getentbyoid(rec->direct_reference); + if (oident) + logf (LOG_LOG, "record %d type %s", i, + oident->desc); + } + switch (rec->which) + { + case Z_External_sutrs: + if (rec->u.octet_aligned->len > 170) + logf (LOG_LOG, "%d bytes:\n%.168s ...", + rec->u.sutrs->len, + rec->u.sutrs->buf); + else + logf (LOG_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) + logf (LOG_LOG, "%d bytes:\n%.168s ...", + rec->u.octet_aligned->len, + rec->u.octet_aligned->buf); + else + logf (LOG_LOG, "%d bytes\n%s", + rec->u.octet_aligned->len, + rec->u.octet_aligned->buf); + } + } + } + } + } + else + { + logf (LOG_WARN, "Unknown Extended Service(%d)", + rr->esr->taskSpecificParameters->which); + + } return 0; } @@ -142,7 +314,7 @@ static int atoin (const char *buf, int n) return val; } -char *marc_read(FILE *inf) +char *marc_read(FILE *inf, ODR odr) { char length_str[5]; size_t size; @@ -153,7 +325,7 @@ char *marc_read(FILE *inf) size = atoin (length_str, 5); if (size <= 6) return NULL; - if (!(buf = (char*) xmalloc (size+1))) + if (!(buf = (char*) odr_malloc (odr, size+1))) return NULL; if (fread (buf+5, 1, size-5, inf) != (size-5)) { @@ -165,27 +337,25 @@ char *marc_read(FILE *inf) return buf; } -static char *dummy_database_record (int num) +static char *dummy_database_record (int num, ODR odr) { FILE *inf = fopen ("dummy-records", "r"); - char *buf = 0; + char *buf; if (!inf) return NULL; while (--num >= 0) { - if (buf) - xfree(buf); if (num == 98) { - buf = (char*) xmalloc(2101); + buf = (char*) odr_malloc(odr, 2101); assert(buf); memset(buf, 'A', 2100); buf[2100] = '\0'; break; } else - buf = marc_read (inf); + buf = marc_read (inf, odr); if (!num || !buf) break; } @@ -229,7 +399,7 @@ bend_fetchresult *bend_fetch(void *handle, bend_fetchrequest *q, int *fd) sprintf(buf, "This is dummy SUTRS record number %d\n", q->number); r->len = strlen(buf); - r->record = odr_malloc (q->stream, r->len+1); + r->record = (char *) odr_malloc (q->stream, r->len+1); strcpy(r->record, buf); } else if (q->format == VAL_GRS1) @@ -242,11 +412,10 @@ bend_fetchresult *bend_fetch(void *handle, bend_fetchrequest *q, int *fd) return r; } } - else if ((cp = dummy_database_record(q->number))) + else if ((cp = dummy_database_record(q->number, q->stream))) { r->len = strlen(cp); - r->record = (char *) odr_malloc (q->stream, 1+r->len); - strcpy (r->record, cp); + r->record = cp; r->format = VAL_USMARC; } else @@ -322,7 +491,7 @@ bend_scanresult *bend_scan(void *handle, bend_scanrequest *q, int *fd) if (po < 0) po += 200; - if (!strcmp (term, "sd") && r->num_entries == 2) + if (!strcmp (term, "SD") && r->num_entries == 2) { list[r->num_entries].term = entries[pos]; list[r->num_entries].occurrences = -1;