Added YAZ version of zaccess

[egate.git] / zlayer / zaccess.c

diff --git a/zlayer/zaccess.c b/zlayer/zaccess.c
index 3cbc5ca..0420161 100644 (file)
--- a/zlayer/zaccess.c
+++ b/zlayer/zaccess.c
@@ -4,7 +4,10 @@
  * Z39.50 API for the Email gateway
  *
  * $Log: zaccess.c,v $
- * Revision 1.14  1995/02/23 08:32:26  adam
+ * Revision 1.15  1995/04/17 11:26:55  quinn
+ * Added YAZ version of zaccess
+ *
+ * Revision 1.14  1995/02/23  08:32:26  adam
  * Changed header.
  *
  * Revision 1.12  1995/02/20  20:35:37  quinn
@@ -124,6 +127,7 @@ ZASS zass_open(char *host, int port)
     PINITREQUEST ireq;
     PINITRESPONSE ires;
     int len;
+    char name[512];
 
     if (!(p = malloc(sizeof(*p))))
     {
@@ -154,8 +158,9 @@ ZASS zass_open(char *host, int port)
     }
     gw_log(ZASS_DEBUG, ZASS_TYPE, "Opened connection to %s:%d", p->ass->HostName,
        p->ass->Port);
+    sprintf(name, "%s (ZDIST protocol layer)", ZASS_NAME);
     ireq = InitRequest_CreateInitAllASCII(0, "yy", "yy", p->maxrecordsize,
-       p->preferredmessagesize, ZASS_ID, ZASS_NAME, ZASS_VERSION, 0);
+       p->preferredmessagesize, ZASS_ID, name, ZASS_VERSION, 0);
     if (!ireq)
     {
        gw_log(GW_LOG_FATAL, "ZASS_TYPE", "failed to create initrequest");
@@ -465,7 +470,7 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
        }
        PresentResponse_Destroy(pdu);
     }
-    while (num - r.num);
+    while (num - r.num && start);
     *rec = 0;
        
     return &r;