ztest/ztest.c

   1 /*
   2  * Copyright (c) 1995-2002, Index Data.
   3  * See the file LICENSE for details.
   4  *
   5  * $Id: ztest.c,v 1.52 2002-03-18 21:33:48 adam Exp $
   6  */
   7
   8 /*
   9  * Demonstration of simple server
  10  */
  11
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include <ctype.h>
  15
  16 #include <yaz/backend.h>
  17 #include <yaz/log.h>
  18
  19 #if YAZ_MODULE_ill
  20 #include <yaz/ill.h>
  21 #endif
  22
  23 Z_GenericRecord *dummy_grs_record (int num, ODR o);
  24 char *dummy_marc_record (int num, ODR odr);
  25 char *dummy_xml_record (int num, ODR odr);
  26
  27 int ztest_search (void *handle, bend_search_rr *rr);
  28 int ztest_sort (void *handle, bend_sort_rr *rr);
  29 int ztest_present (void *handle, bend_present_rr *rr);
  30 int ztest_esrequest (void *handle, bend_esrequest_rr *rr);
  31 int ztest_delete (void *handle, bend_delete_rr *rr);
  32
  33 int ztest_search (void *handle, bend_search_rr *rr)
  34 {
  35     if (rr->num_bases != 1)
  36     {
  37         rr->errcode = 23;
  38         return 0;
  39     }
  40     if (strcmp (rr->basenames[0], "Default"))
  41     {
  42         rr->errcode = 109;
  43         rr->errstring = rr->basenames[0];
  44         return 0;
  45     }
  46     rr->hits = rand() % 24;
  47     return 0;
  48 }
  49
  50
  51 /* this huge function handles extended services */
  52 int ztest_esrequest (void *handle, bend_esrequest_rr *rr)
  53 {
  54     /* user-defined handle - created in bend_init */
  55     int *counter = (int*) handle;
  56
  57     yaz_log(LOG_LOG, "ESRequest no %d", *counter);
  58
  59     (*counter)++;
  60
  61     if (rr->esr->packageName)
  62         yaz_log(LOG_LOG, "packagename: %s", rr->esr->packageName);
  63     yaz_log(LOG_LOG, "Waitaction: %d", *rr->esr->waitAction);
  64
  65
  66     yaz_log(LOG_LOG, "function: %d", *rr->esr->function);
  67
  68     if (!rr->esr->taskSpecificParameters)
  69     {
  70         yaz_log (LOG_WARN, "No task specific parameters");
  71     }
  72     else if (rr->esr->taskSpecificParameters->which == Z_External_itemOrder)
  73     {
  74         Z_ItemOrder *it = rr->esr->taskSpecificParameters->u.itemOrder;
  75         yaz_log (LOG_LOG, "Received ItemOrder");
  76         if (it->which == Z_IOItemOrder_esRequest)
  77         {
  78             Z_IORequest *ir = it->u.esRequest;
  79             Z_IOOriginPartToKeep *k = ir->toKeep;
  80             Z_IOOriginPartNotToKeep *n = ir->notToKeep;
  81
  82             if (k && k->contact)
  83             {
  84                 if (k->contact->name)
  85                     yaz_log(LOG_LOG, "contact name %s", k->contact->name);
  86                 if (k->contact->phone)
  87                     yaz_log(LOG_LOG, "contact phone %s", k->contact->phone);
  88                 if (k->contact->email)
  89                     yaz_log(LOG_LOG, "contact email %s", k->contact->email);
  90             }
  91             if (k->addlBilling)
  92             {
  93                 yaz_log(LOG_LOG, "Billing info (not shown)");
  94             }
  95
  96             if (n->resultSetItem)
  97             {
  98                 yaz_log(LOG_LOG, "resultsetItem");
  99                 yaz_log(LOG_LOG, "setId: %s", n->resultSetItem->resultSetId);
 100                 yaz_log(LOG_LOG, "item: %d", *n->resultSetItem->item);
 101             }
 102 #if YAZ_MODULE_ill
 103             if (n->itemRequest)
 104             {
 105                 Z_External *r = (Z_External*) n->itemRequest;
 106                 ILL_ItemRequest *item_req = 0;
 107                 ILL_APDU *ill_apdu = 0;
 108                 if (r->direct_reference)
 109                 {
 110                     oident *ent = oid_getentbyoid(r->direct_reference);
 111                     if (ent)
 112                         yaz_log(LOG_LOG, "OID %s", ent->desc);
 113                     if (ent && ent->value == VAL_TEXT_XML)
 114                     {
 115                         yaz_log (LOG_LOG, "ILL XML request");
 116                         if (r->which == Z_External_octet)
 117                             yaz_log (LOG_LOG, "%.*s", r->u.octet_aligned->len,
 118                                      r->u.octet_aligned->buf);
 119                     }
 120                     if (ent && ent->value == VAL_ISO_ILL_1)
 121                     {
 122                         yaz_log (LOG_LOG, "Decode ItemRequest begin");
 123                         if (r->which == ODR_EXTERNAL_single)
 124                         {
 125                             odr_setbuf(rr->decode,
 126                                        (char *) r->u.single_ASN1_type->buf,
 127                                        r->u.single_ASN1_type->len, 0);
 128
 129                             if (!ill_ItemRequest (rr->decode, &item_req, 0, 0))
 130                             {
 131                                 yaz_log (LOG_LOG,
 132                                     "Couldn't decode ItemRequest %s near %d",
 133                                        odr_errmsg(odr_geterror(rr->decode)),
 134                                        odr_offset(rr->decode));
 135                             }
 136                             else
 137                                 yaz_log(LOG_LOG, "Decode ItemRequest OK");
 138                             if (rr->print)
 139                             {
 140                                 ill_ItemRequest (rr->print, &item_req, 0,
 141                                     "ItemRequest");
 142                                 odr_reset (rr->print);
 143                             }
 144                         }
 145                         if (!item_req && r->which == ODR_EXTERNAL_single)
 146                         {
 147                             yaz_log (LOG_LOG, "Decode ILL APDU begin");
 148                             odr_setbuf(rr->decode,
 149                                        (char*) r->u.single_ASN1_type->buf,
 150                                        r->u.single_ASN1_type->len, 0);
 151
 152                             if (!ill_APDU (rr->decode, &ill_apdu, 0, 0))
 153                             {
 154                                 yaz_log (LOG_LOG,
 155                                     "Couldn't decode ILL APDU %s near %d",
 156                                        odr_errmsg(odr_geterror(rr->decode)),
 157                                        odr_offset(rr->decode));
 158                                 yaz_log(LOG_LOG, "PDU dump:");
 159                                 odr_dumpBER(yaz_log_file(),
 160                                      (char *) r->u.single_ASN1_type->buf,
 161                                      r->u.single_ASN1_type->len);
 162                             }
 163                             else
 164                                 yaz_log(LOG_LOG, "Decode ILL APDU OK");
 165                             if (rr->print)
 166                             {
 167                                 ill_APDU (rr->print, &ill_apdu, 0,
 168                                     "ILL APDU");
 169                                 odr_reset (rr->print);
 170                             }
 171                         }
 172                     }
 173                 }
 174                 if (item_req)
 175                 {
 176                     yaz_log (LOG_LOG, "ILL protocol version = %d",
 177                              *item_req->protocol_version_num);
 178                 }
 179             }
 180 #endif
 181             if (k)
 182             {
 183
 184                 Z_External *ext = (Z_External *)
 185                     odr_malloc (rr->stream, sizeof(*ext));
 186                 Z_IUOriginPartToKeep *keep = (Z_IUOriginPartToKeep *)
 187                     odr_malloc (rr->stream, sizeof(*keep));
 188                 Z_IOTargetPart *targetPart = (Z_IOTargetPart *)
 189                     odr_malloc (rr->stream, sizeof(*targetPart));
 190
 191                 rr->taskPackage = (Z_TaskPackage *)
 192                     odr_malloc (rr->stream, sizeof(*rr->taskPackage));
 193                 rr->taskPackage->packageType =
 194                     odr_oiddup (rr->stream, rr->esr->packageType);
 195                 rr->taskPackage->packageName = 0;
 196                 rr->taskPackage->userId = 0;
 197                 rr->taskPackage->retentionTime = 0;
 198                 rr->taskPackage->permissions = 0;
 199                 rr->taskPackage->description = 0;
 200                 rr->taskPackage->targetReference = (Odr_oct *)
 201                     odr_malloc (rr->stream, sizeof(Odr_oct));
 202                 rr->taskPackage->targetReference->buf =
 203                     (unsigned char *) odr_strdup (rr->stream, "911");
 204                 rr->taskPackage->targetReference->len =
 205                     rr->taskPackage->targetReference->size =
 206                     strlen((char *) (rr->taskPackage->targetReference->buf));
 207                 rr->taskPackage->creationDateTime = 0;
 208                 rr->taskPackage->taskStatus = odr_intdup(rr->stream, 0);
 209                 rr->taskPackage->packageDiagnostics = 0;
 210                 rr->taskPackage->taskSpecificParameters = ext;
 211
 212                 ext->direct_reference =
 213                     odr_oiddup (rr->stream, rr->esr->packageType);
 214                 ext->indirect_reference = 0;
 215                 ext->descriptor = 0;
 216                 ext->which = Z_External_itemOrder;
 217                 ext->u.itemOrder = (Z_ItemOrder *)
 218                     odr_malloc (rr->stream, sizeof(*ext->u.update));
 219                 ext->u.itemOrder->which = Z_IOItemOrder_taskPackage;
 220                 ext->u.itemOrder->u.taskPackage =  (Z_IOTaskPackage *)
 221                     odr_malloc (rr->stream, sizeof(Z_IOTaskPackage));
 222                 ext->u.itemOrder->u.taskPackage->originPart = k;
 223                 ext->u.itemOrder->u.taskPackage->targetPart = targetPart;
 224
 225                 targetPart->itemRequest = 0;
 226                 targetPart->statusOrErrorReport = 0;
 227                 targetPart->auxiliaryStatus = 0;
 228             }
 229         }
 230     }
 231     else if (rr->esr->taskSpecificParameters->which == Z_External_update)
 232     {
 233         Z_IUUpdate *up = rr->esr->taskSpecificParameters->u.update;
 234         yaz_log (LOG_LOG, "Received DB Update");
 235         if (up->which == Z_IUUpdate_esRequest)
 236         {
 237             Z_IUUpdateEsRequest *esRequest = up->u.esRequest;
 238             Z_IUOriginPartToKeep *toKeep = esRequest->toKeep;
 239             Z_IUSuppliedRecords *notToKeep = esRequest->notToKeep;
 240
 241             yaz_log (LOG_LOG, "action");
 242             if (toKeep->action)
 243             {
 244                 switch (*toKeep->action)
 245                 {
 246                 case Z_IUOriginPartToKeep_recordInsert:
 247                     yaz_log (LOG_LOG, " recordInsert");
 248                     break;
 249                 case Z_IUOriginPartToKeep_recordReplace:
 250                     yaz_log (LOG_LOG, " recordReplace");
 251                     break;
 252                 case Z_IUOriginPartToKeep_recordDelete:
 253                     yaz_log (LOG_LOG, " recordDelete");
 254                     break;
 255                 case Z_IUOriginPartToKeep_elementUpdate:
 256                     yaz_log (LOG_LOG, " elementUpdate");
 257                     break;
 258                 case Z_IUOriginPartToKeep_specialUpdate:
 259                     yaz_log (LOG_LOG, " specialUpdate");
 260                     break;
 261                 default:
 262                     yaz_log (LOG_LOG, " unknown (%d)", *toKeep->action);
 263                 }
 264             }
 265             if (toKeep->databaseName)
 266             {
 267                 yaz_log (LOG_LOG, "database: %s", toKeep->databaseName);
 268                 if (!strcmp(toKeep->databaseName, "fault"))
 269                 {
 270                     rr->errcode = 109;
 271                     rr->errstring = toKeep->databaseName;
 272                 }
 273                 if (!strcmp(toKeep->databaseName, "accept"))
 274                     rr->errcode = -1;
 275             }
 276             if (toKeep)
 277             {
 278                 Z_External *ext = (Z_External *)
 279                     odr_malloc (rr->stream, sizeof(*ext));
 280                 Z_IUOriginPartToKeep *keep = (Z_IUOriginPartToKeep *)
 281                     odr_malloc (rr->stream, sizeof(*keep));
 282                 Z_IUTargetPart *targetPart = (Z_IUTargetPart *)
 283                     odr_malloc (rr->stream, sizeof(*targetPart));
 284
 285                 rr->taskPackage = (Z_TaskPackage *)
 286                     odr_malloc (rr->stream, sizeof(*rr->taskPackage));
 287                 rr->taskPackage->packageType =
 288                     odr_oiddup (rr->stream, rr->esr->packageType);
 289                 rr->taskPackage->packageName = 0;
 290                 rr->taskPackage->userId = 0;
 291                 rr->taskPackage->retentionTime = 0;
 292                 rr->taskPackage->permissions = 0;
 293                 rr->taskPackage->description = 0;
 294                 rr->taskPackage->targetReference = (Odr_oct *)
 295                     odr_malloc (rr->stream, sizeof(Odr_oct));
 296                 rr->taskPackage->targetReference->buf =
 297                     (unsigned char *) odr_strdup (rr->stream, "123");
 298                 rr->taskPackage->targetReference->len =
 299                     rr->taskPackage->targetReference->size =
 300                     strlen((char *) (rr->taskPackage->targetReference->buf));
 301                 rr->taskPackage->creationDateTime = 0;
 302                 rr->taskPackage->taskStatus = odr_intdup(rr->stream, 0);
 303                 rr->taskPackage->packageDiagnostics = 0;
 304                 rr->taskPackage->taskSpecificParameters = ext;
 305
 306                 ext->direct_reference =
 307                     odr_oiddup (rr->stream, rr->esr->packageType);
 308                 ext->indirect_reference = 0;
 309                 ext->descriptor = 0;
 310                 ext->which = Z_External_update;
 311                 ext->u.update = (Z_IUUpdate *)
 312                     odr_malloc (rr->stream, sizeof(*ext->u.update));
 313                 ext->u.update->which = Z_IUUpdate_taskPackage;
 314                 ext->u.update->u.taskPackage =  (Z_IUUpdateTaskPackage *)
 315                     odr_malloc (rr->stream, sizeof(Z_IUUpdateTaskPackage));
 316                 ext->u.update->u.taskPackage->originPart = keep;
 317                 ext->u.update->u.taskPackage->targetPart = targetPart;
 318
 319                 keep->action = (int *) odr_malloc (rr->stream, sizeof(int));
 320                 *keep->action = *toKeep->action;
 321                 keep->databaseName =
 322                     odr_strdup (rr->stream, toKeep->databaseName);
 323                 keep->schema = 0;
 324                 keep->elementSetName = 0;
 325                 keep->actionQualifier = 0;
 326
 327                 targetPart->updateStatus = odr_intdup (rr->stream, 1);
 328                 targetPart->num_globalDiagnostics = 0;
 329                 targetPart->globalDiagnostics = (Z_DiagRec **) odr_nullval();
 330                 targetPart->num_taskPackageRecords = 1;
 331                 targetPart->taskPackageRecords =
 332                     (Z_IUTaskPackageRecordStructure **)
 333                     odr_malloc (rr->stream,
 334                                 sizeof(Z_IUTaskPackageRecordStructure *));
 335                 targetPart->taskPackageRecords[0] =
 336                     (Z_IUTaskPackageRecordStructure *)
 337                     odr_malloc (rr->stream,
 338                                 sizeof(Z_IUTaskPackageRecordStructure));
 339
 340                 targetPart->taskPackageRecords[0]->which =
 341                     Z_IUTaskPackageRecordStructure_record;
 342                 targetPart->taskPackageRecords[0]->u.record =
 343                     z_ext_record (rr->stream, VAL_SUTRS, "test", 4);
 344                 targetPart->taskPackageRecords[0]->correlationInfo = 0;
 345                 targetPart->taskPackageRecords[0]->recordStatus =
 346                     odr_intdup (rr->stream,
 347                                 Z_IUTaskPackageRecordStructure_success);
 348                 targetPart->taskPackageRecords[0]->num_supplementalDiagnostics
 349                     = 0;
 350
 351                 targetPart->taskPackageRecords[0]->supplementalDiagnostics = 0;
 352             }
 353             if (notToKeep)
 354             {
 355                 int i;
 356                 for (i = 0; i < notToKeep->num; i++)
 357                 {
 358                     Z_External *rec = notToKeep->elements[i]->record;
 359
 360                     if (rec->direct_reference)
 361                     {
 362                         struct oident *oident;
 363                         oident = oid_getentbyoid(rec->direct_reference);
 364                         if (oident)
 365                             yaz_log (LOG_LOG, "record %d type %s", i,
 366                                      oident->desc);
 367                     }
 368                     switch (rec->which)
 369                     {
 370                     case Z_External_sutrs:
 371                         if (rec->u.octet_aligned->len > 170)
 372                             yaz_log (LOG_LOG, "%d bytes:\n%.168s ...",
 373                                      rec->u.sutrs->len,
 374                                      rec->u.sutrs->buf);
 375                         else
 376                             yaz_log (LOG_LOG, "%d bytes:\n%s",
 377                                      rec->u.sutrs->len,
 378                                      rec->u.sutrs->buf);
 379                         break;
 380                     case Z_External_octet        :
 381                         if (rec->u.octet_aligned->len > 170)
 382                             yaz_log (LOG_LOG, "%d bytes:\n%.168s ...",
 383                                      rec->u.octet_aligned->len,
 384                                      rec->u.octet_aligned->buf);
 385                         else
 386                             yaz_log (LOG_LOG, "%d bytes\n%s",
 387                                      rec->u.octet_aligned->len,
 388                                      rec->u.octet_aligned->buf);
 389                     }
 390                 }
 391             }
 392         }
 393     }
 394     else
 395     {
 396         yaz_log (LOG_WARN, "Unknown Extended Service(%d)",
 397                  rr->esr->taskSpecificParameters->which);
 398
 399     }
 400     return 0;
 401 }
 402
 403 /* result set delete */
 404 int ztest_delete (void *handle, bend_delete_rr *rr)
 405 {
 406     if (rr->num_setnames == 1 && !strcmp (rr->setnames[0], "1"))
 407         rr->delete_status = Z_DeleteStatus_success;
 408     else
 409         rr->delete_status = Z_DeleteStatus_resultSetDidNotExist;
 410     return 0;
 411 }
 412
 413 /* Our sort handler really doesn't sort... */
 414 int ztest_sort (void *handle, bend_sort_rr *rr)
 415 {
 416     rr->errcode = 0;
 417     rr->sort_status = Z_SortStatus_success;
 418     return 0;
 419 }
 420
 421
 422 /* present request handler */
 423 int ztest_present (void *handle, bend_present_rr *rr)
 424 {
 425     return 0;
 426 }
 427
 428 /* retrieval of a single record (present, and piggy back search) */
 429 int ztest_fetch(void *handle, bend_fetch_rr *r)
 430 {
 431     char *cp;
 432     r->errstring = 0;
 433     r->last_in_set = 0;
 434     r->basename = "Default";
 435     r->output_format = r->request_format;
 436     if (r->request_format == VAL_SUTRS)
 437     {
 438         /* this section returns a small record */
 439         char buf[100];
 440
 441         sprintf(buf, "This is dummy SUTRS record number %d\n", r->number);
 442
 443         r->len = strlen(buf);
 444         r->record = (char *) odr_malloc (r->stream, r->len+1);
 445         strcpy(r->record, buf);
 446     }
 447     else if (r->request_format == VAL_GRS1)
 448     {
 449         r->len = -1;
 450         r->record = (char*) dummy_grs_record(r->number, r->stream);
 451         if (!r->record)
 452         {
 453             r->errcode = 13;
 454             return 0;
 455         }
 456     }
 457     else if (r->request_format == VAL_POSTSCRIPT)
 458     {
 459         char fname[20];
 460         FILE *f;
 461         long size;
 462
 463         sprintf (fname, "part.%d.ps", r->number);
 464         f = fopen(fname, "rb");
 465         if (!f)
 466         {
 467             r->errcode = 13;
 468             return 0;
 469         }
 470         fseek (f, 0L, SEEK_END);
 471         size = ftell (f);
 472         if (size <= 0 || size >= 5000000)
 473         {
 474             r->errcode = 14;
 475             return 0;
 476         }
 477         fseek (f, 0L, SEEK_SET);
 478         r->record = (char*) odr_malloc (r->stream, size);
 479         r->len = size;
 480         r->output_format = VAL_POSTSCRIPT;
 481         fread (r->record, size, 1, f);
 482         fclose (f);
 483     }
 484     else if (r->request_format == VAL_TEXT_XML &&
 485              (cp = dummy_xml_record (r->number, r->stream)))
 486     {
 487         r->len = strlen(cp);
 488         r->record = cp;
 489         r->output_format = VAL_TEXT_XML;
 490     }
 491     else if ((cp = dummy_marc_record(r->number, r->stream)))
 492     {
 493         r->len = strlen(cp);
 494         r->record = cp;
 495         r->output_format = VAL_USMARC;
 496     }
 497     else
 498     {
 499         r->errcode = 13;
 500         return 0;
 501     }
 502     r->errcode = 0;
 503     return 0;
 504 }
 505
 506 /*
 507  * silly dummy-scan what reads words from a file.
 508  */
 509 int ztest_scan(void *handle, bend_scan_rr *q)
 510 {
 511     static FILE *f = 0;
 512     static struct scan_entry list[200];
 513     static char entries[200][80];
 514     int hits[200];
 515     char term[80], *p;
 516     int i, pos;
 517     int term_position_req = q->term_position;
 518     int num_entries_req = q->num_entries;
 519
 520     q->errcode = 0;
 521     q->errstring = 0;
 522     q->entries = list;
 523     q->status = BEND_SCAN_SUCCESS;
 524     if (!f && !(f = fopen("dummy-words", "r")))
 525     {
 526         perror("dummy-words");
 527         exit(1);
 528     }
 529     if (q->term->term->which != Z_Term_general)
 530     {
 531         q->errcode = 229; /* unsupported term type */
 532         return 0;
 533     }
 534     if (*q->step_size != 0)
 535     {
 536         q->errcode = 205; /*Only zero step size supported for Scan */
 537         return 0;
 538     }
 539     if (q->term->term->u.general->len >= 80)
 540     {
 541         q->errcode = 11; /* term too long */
 542         return 0;
 543     }
 544     if (q->num_entries > 200)
 545     {
 546         q->errcode = 31;
 547         return 0;
 548     }
 549     memcpy(term, q->term->term->u.general->buf, q->term->term->u.general->len);
 550     term[q->term->term->u.general->len] = '\0';
 551     for (p = term; *p; p++)
 552         if (islower(*p))
 553             *p = toupper(*p);
 554
 555     fseek(f, 0, SEEK_SET);
 556     q->num_entries = 0;
 557
 558     for (i = 0, pos = 0; fscanf(f, " %79[^:]:%d", entries[pos], &hits[pos]) == 2;
 559         i++, pos < 199 ? pos++ : (pos = 0))
 560     {
 561         if (!q->num_entries && strcmp(entries[pos], term) >= 0) /* s-point fnd */
 562         {
 563             if ((q->term_position = term_position_req) > i + 1)
 564             {
 565                 q->term_position = i + 1;
 566                 q->status = BEND_SCAN_PARTIAL;
 567             }
 568             for (; q->num_entries < q->term_position; q->num_entries++)
 569             {
 570                 int po;
 571
 572                 po = pos - q->term_position + q->num_entries+1; /* find pos */
 573                 if (po < 0)
 574                     po += 200;
 575
 576                 if (!strcmp (term, "SD") && q->num_entries == 2)
 577                 {
 578                     list[q->num_entries].term = entries[pos];
 579                     list[q->num_entries].occurrences = -1;
 580                     list[q->num_entries].errcode = 233;
 581                     list[q->num_entries].errstring = "SD for Scan Term";
 582                 }
 583                 else
 584                 {
 585                     list[q->num_entries].term = entries[po];
 586                     list[q->num_entries].occurrences = hits[po];
 587                 }
 588             }
 589         }
 590         else if (q->num_entries)
 591         {
 592             list[q->num_entries].term = entries[pos];
 593             list[q->num_entries].occurrences = hits[pos];
 594             q->num_entries++;
 595         }
 596         if (q->num_entries >= num_entries_req)
 597             break;
 598     }
 599     if (feof(f))
 600         q->status = BEND_SCAN_PARTIAL;
 601     return 0;
 602 }
 603
 604 bend_initresult *bend_init(bend_initrequest *q)
 605 {
 606     bend_initresult *r = (bend_initresult *) odr_malloc (q->stream, sizeof(*r));
 607     int *counter = (int *) xmalloc (sizeof(int));
 608
 609     *counter = 0;
 610     r->errcode = 0;
 611     r->errstring = 0;
 612     r->handle = counter;         /* user handle, in this case a simple int */
 613     q->bend_sort = ztest_sort;              /* register sort handler */
 614     q->bend_search = ztest_search;          /* register search handler */
 615     q->bend_present = ztest_present;        /* register present handle */
 616     q->bend_esrequest = ztest_esrequest;
 617     q->bend_delete = ztest_delete;
 618     q->bend_fetch = ztest_fetch;
 619     q->bend_scan = ztest_scan;
 620     return r;
 621 }
 622
 623 void bend_close(void *handle)
 624 {
 625     xfree (handle);              /* release our user-defined handle */
 626     return;
 627 }
 628
 629 int main(int argc, char **argv)
 630 {
 631     return statserv_main(argc, argv, bend_init, bend_close);
 632 }