home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / BSRC_250.ZIP / VERSION7.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-15  |  16.0 KB  |  477 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                                                                          */
  3. /*                                                                          */
  4. /*      ------------         Bit-Bucket Software, Co.                       */
  5. /*      \ 10001101 /         Writers and Distributors of                    */
  6. /*       \ 011110 /          Freely Available<tm> Software.                 */
  7. /*        \ 1011 /                                                          */
  8. /*         ------                                                           */
  9. /*                                                                          */
  10. /*  (C) Copyright 1987-91, Bit Bucket Software Co., a Delaware Corporation. */
  11. /*                                                                          */
  12. /*                                                                          */
  13. /*                  This module was adapted by Bill Andrus                  */
  14. /*                With the usual kibitzing by Vince Perriello               */
  15. /*                                                                          */
  16. /*              BinkleyTerm Version7 Nodelist processing module             */
  17. /*                                                                          */
  18. /*                                                                          */
  19. /*    For complete  details  of the licensing restrictions, please refer    */
  20. /*    to the License  agreement,  which  is published in its entirety in    */
  21. /*    the MAKEFILE and BT.C, and also contained in the file LICENSE.250.    */
  22. /*                                                                          */
  23. /*    USE  OF THIS FILE IS SUBJECT TO THE  RESTRICTIONS CONTAINED IN THE    */
  24. /*    BINKLEYTERM  LICENSING  AGREEMENT.  IF YOU DO NOT FIND THE TEXT OF    */
  25. /*    THIS  AGREEMENT IN ANY OF THE  AFOREMENTIONED FILES,  OR IF YOU DO    */
  26. /*    NOT HAVE THESE FILES,  YOU  SHOULD  IMMEDIATELY CONTACT BIT BUCKET    */
  27. /*    SOFTWARE CO.  AT ONE OF THE  ADDRESSES  LISTED BELOW.  IN NO EVENT    */
  28. /*    SHOULD YOU  PROCEED TO USE THIS FILE  WITHOUT HAVING  ACCEPTED THE    */
  29. /*    TERMS  OF  THE  BINKLEYTERM  LICENSING  AGREEMENT,  OR  SUCH OTHER    */
  30. /*    AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO.      */
  31. /*                                                                          */
  32. /*                                                                          */
  33. /* You can contact Bit Bucket Software Co. at any one of the following      */
  34. /* addresses:                                                               */
  35. /*                                                                          */
  36. /* Bit Bucket Software Co.        FidoNet  1:104/501, 1:343/491             */
  37. /* P.O. Box 460398                AlterNet 7:491/0                          */
  38. /* Aurora, CO 80046               BBS-Net  86:2030/1                        */
  39. /*                                Internet f491.n343.z1.fidonet.org         */
  40. /*                                                                          */
  41. /* Please feel free to contact us at any time to share your comments about  */
  42. /* our software and/or licensing policies.                                  */
  43. /*                                                                          */
  44. /*--------------------------------------------------------------------------*/
  45.  
  46. /* Include this file before any other includes or defines! */
  47.  
  48. #include "includes.h"
  49.  
  50. /* This table has been modified to minimize searches */
  51. char unwrk[] = " EANROSTILCHBDMUGPKYWFVJXZQ-'0123456789";
  52.  
  53. long btree (char *, void *, int (*)(void *, void *, int));
  54. int get_ver7_info (unsigned long, ADDRP);
  55. struct _ndx far *get7node(HFILE, unsigned long, struct _ndx far *);
  56. void unpk(char *instr,char *outp,int many);
  57. int addr_compare (void *, void *, int);
  58. int name_compare (void *, void *, int);
  59. extern void get_nodelist_name (ADDRP);
  60.  
  61. extern char *nodelist_base;
  62. extern char *nodelist_name;
  63. static char  index_filename[260];
  64.  
  65. static int namelen;
  66.  
  67. static struct _ndx far *nodeidx = NULL;              /* index file             */
  68. static struct _ndx far *noderef = NULL;              /* index file             */
  69.  
  70.  
  71. int ver7find (ADDRP opus_addr, int have_boss_data)
  72. {
  73.     long record;
  74.     ADDR found_addr;
  75.  
  76.     have_boss_data = have_boss_data;
  77.  
  78.     newnodedes.NetNumber = newnodedes.NodeNumber = 0;
  79.  
  80.     get_nodelist_name (opus_addr);              /* fill in nodelist.base  */
  81.     index_filename[0] = '\0';                   /* "null-terminated string*/
  82.     (void) strcpy (index_filename, net_info);   /* take nodelist path     */
  83.     (void) strcat (index_filename, nodelist_base); /* add in the file name*/
  84.     (void) strcat (index_filename, ".NDX");     /* add in the file ext    */
  85.  
  86.     record = btree (index_filename, (void *)opus_addr, addr_compare);
  87.  
  88.     if (record == -1)
  89.        return (0);
  90.     else
  91.        return (get_ver7_info((unsigned long)record, &found_addr));
  92. }
  93.  
  94. int addr_compare (void *key, void *desired, int len)
  95. {
  96.    int k;
  97.  
  98.    k = ((ADDRP)key)->Zone - ((ADDRP)desired)->Zone;
  99.    if (k)
  100.       return (k);
  101.  
  102.    k = ((ADDRP)key)->Net - ((ADDRP)desired)->Net;
  103.    if (k)
  104.       return (k);
  105.  
  106.    k = ((ADDRP)key)->Node - ((ADDRP)desired)->Node;
  107.    if (k)
  108.       return (k);
  109. /*
  110.  * Node matches.
  111.  *
  112.  * The rule for points:
  113.  *  1) If len == 6, treat key value for Point as Zero.
  114.  *  2) Return comparison of key Point and desired Point.
  115.  */
  116.    if (len == 6)
  117.       ((ADDRP)key)->Point = 0;
  118.  
  119.    return ((ADDRP)key)->Point - ((ADDRP)desired)->Point;
  120. } 
  121.  
  122. void opususer (char *name, ADDRP faddr)
  123. {
  124.    char last_name_first[80];
  125.    char midname[80];
  126.    char *c, *p, *m;
  127.    long record;
  128.  
  129.    faddr->Zone = faddr->Net = faddr->Node = faddr->Point = (unsigned int) -1;
  130.    faddr->Domain = NULL;
  131.  
  132.    c = midname;                                  /* Start of temp name buff   */
  133.    p = name;                                     /* Point to start of name    */
  134.    m = NULL;                                     /* Init pointer to space     */
  135.  
  136.    *c = *p++;
  137.    while (*c)                                    /* Go entire length of name  */
  138.    {
  139.       if (*c == ' ')                             /* Look for space            */
  140.          m = c;                                  /* Save location             */
  141.       c++;
  142.       *c = *p++;
  143.    }
  144.  
  145.    if (m != NULL)                                /* If we have a pointer,     */
  146.    {
  147.       *m++ = '\0';                               /* Terminate the first half  */
  148.       (void) strcpy (last_name_first, m);        /* Now copy the last name    */
  149.       (void) strcat (last_name_first, ", ");     /* Insert a comma and space  */
  150.       (void) strcat (last_name_first, midname);  /* Finally copy first half   */
  151.    }
  152.    else (void) strcpy (last_name_first, midname);/* Use whole name otherwise  */
  153.  
  154.    (void) fancy_str (last_name_first);           /* Get caps in where needed  */
  155.    namelen = (int) strlen (last_name_first);     /* Calc length now           */
  156.  
  157.    index_filename[0] = '\0';                     /* "null-terminated string"  */
  158.  
  159.    if (nodelist_base == NULL)
  160.       get_nodelist_name (&my_addr);              /* fill in nodelist.base     */
  161.    (void) strcpy (index_filename, net_info);     /* take nodelist path        */
  162.    (void) strcat (index_filename, "SYSOP.NDX");  /* add in the file name      */
  163.  
  164.    record = btree (index_filename, (void *)last_name_first, name_compare);
  165.  
  166.    if (record == -1)
  167.       return;
  168.  
  169.    (void) get_ver7_info((unsigned long)record, faddr);
  170. }
  171.  
  172. int name_compare (void *key, void *desired, int len)
  173. {
  174.    return (strnicmp ((char *)key, (char *)desired, (unsigned int) min (namelen,len)));
  175. }
  176.  
  177. /*
  178.  * General V7 nodelist engine. Used by both the by-node and by-sysop
  179.  * lookups.
  180.  *
  181.  * Thanks to Phil Becker for showing me how nice it looks in assembler.
  182.  * It helped me see how nice it could be in C.
  183.  *
  184.  * (I know, Phil, it's still nicer in assembler!)
  185.  *
  186.  */
  187.  
  188. long btree (char *filename, void *desired, int (*compare)(void *key, void *desired, int len))
  189. {
  190.     int j, k, l;
  191.     struct _IndxRef far *ip = NULL;
  192.     struct _LeafRef far *lp = NULL;
  193.     char aline[160];
  194.     char far *tp;
  195.     char *np;
  196.  
  197.     long record, foundrec = -1L;
  198.     int count;
  199.  
  200.     HFILE stream;
  201.  
  202.     if ((stream = share_open(filename, O_RDONLY|O_BINARY, DENY_WRITE)) == -1)
  203.         return (-1L);                            /* no file, no work to do */
  204.  
  205.     if (node_index == NULL)
  206.         node_index = _fmalloc ( sizeof (struct _ndx));
  207.     if (nodeidx == NULL)
  208.         nodeidx = _fmalloc ( sizeof (struct _ndx));
  209.     if (noderef == NULL)
  210.         noderef = _fmalloc ( sizeof (struct _ndx));
  211.  
  212.     if (node_index == NULL)
  213.     {
  214.         status_line (msgtxt[M_NODELIST_MEM]);
  215.         (void) close (stream);
  216.         return (-1L);
  217.     }
  218.  
  219.     /* Get CtlRec */
  220.     if (get7node (stream, 0L, noderef) != noderef)
  221.         {
  222.         close (stream);
  223.         return (-1L);
  224.         }
  225.  
  226.     /* The guts of the matter -- walk from CtlRec to Leaf */
  227.  
  228.     record = noderef->ndx.CtlBlk.CtlRoot;
  229.  
  230. /*
  231.  * Read the first Index node.
  232.  */
  233.     if (get7node(stream, (unsigned long) (record * noderef->ndx.CtlBlk.CtlBlkSize), nodeidx) != nodeidx)
  234.         {
  235.         close (stream);
  236.         return (-1L);
  237.         }
  238. /*
  239.  * Follow the node tree until we either match a key right in the index
  240.  * node, or locate the leaf node which must contain the entry.
  241.  */
  242.     while (nodeidx->ndx.INodeBlk.IndxFirst != -1)
  243.        {
  244.        if ((count = nodeidx->ndx.INodeBlk.IndxCnt) == 0)
  245.           {
  246.           close (stream);
  247.           return (-1L);
  248.           }
  249.  
  250.        for (j = 0; j < count; j++) /* check 20 or less */
  251.           {
  252.           ip = &(nodeidx->ndx.INodeBlk.IndxRef[j]);
  253.           tp = (char far *) nodeidx + ip->IndxOfs;
  254.  
  255.           k = l = ip->IndxLen;
  256.  
  257.           for (np = aline; k > 0; k--)
  258.               *np++ = *tp++;
  259.  
  260.           k = (*compare) ((void *)aline, desired, l);
  261.  
  262.           if (k > 0)
  263.              break;
  264.  
  265.           if (k == 0)
  266.              {
  267.  
  268. /* Key matches in the index node. Since we're just doing lookup, we
  269.  * can assume its pointer is valid. If we were doing updates, that
  270.  * assumption would not work, because leaf nodes update first. So in
  271.  * an update environment, the entire code segment relating to k == 0
  272.  * should not execute, and we should walk the tree all the way down.
  273.  */
  274.              close (stream);
  275.              return (nodeidx->ndx.INodeBlk.IndxRef[j].IndxData);
  276.              }
  277.           }
  278.  
  279.        if (j == 0)
  280.           record = nodeidx->ndx.INodeBlk.IndxFirst;
  281.        else
  282.           record = (nodeidx->ndx.INodeBlk.IndxRef[--j]).IndxPtr;
  283.  
  284.        if (get7node(stream, (unsigned long) (record * noderef->ndx.CtlBlk.CtlBlkSize), nodeidx) != nodeidx)
  285.           {
  286.           close (stream);
  287.           return (-1L);
  288.           }
  289.  
  290.        }
  291. /*
  292.  * We can only get here if we've found the leafnode which must
  293.  * contain our entry.
  294.  *
  295.  * Find our guy here or die trying.
  296.  */
  297.  
  298.     if ((count = nodeidx->ndx.LNodeBlk.IndxCnt) != 0)
  299.        {
  300.        /* Search for a higher key */
  301.  
  302.        for (j = 0; j < count; j++) /* check 30 or less */
  303.           {
  304.           lp = &(nodeidx->ndx.LNodeBlk.LeafRef[j]);
  305.           tp = (char far *) nodeidx + lp->KeyOfs;
  306.  
  307.           k = l = lp->KeyLen;
  308.  
  309.           for (np = aline; k > 0; k--)
  310.               *np++ = *tp++;
  311.  
  312.           k = (*compare) ((void *)aline, desired, l);
  313.  
  314.           if (k > 0)
  315.              break;
  316.           if (k == 0)
  317.              {
  318.              foundrec = (nodeidx->ndx.LNodeBlk.LeafRef[j]).KeyVal;
  319.              break;
  320.              }
  321.           }
  322.        }
  323.  
  324.     (void) close (stream);
  325.     return (foundrec);
  326. }
  327.  
  328. int get_ver7_info (unsigned long pos, ADDRP faddr)
  329. {
  330.     struct _vers7 vers7;
  331.     char my_phone[40];
  332.     char my_pwd[9];
  333.     char aline[160];
  334.     char aline2[160];
  335.     char *fst;
  336.     char temp[80];                                  /* we build filenames here*/
  337.     FILE *stream;
  338.  
  339.     (void) strcpy (temp, net_info);                     /* take nodelist path */
  340.     (void) strcat (temp, nodelist_base);                /* add in the filename*/
  341.     (void) strcat (temp, ".DAT");                       /* then the extension */
  342.     if ((stream = share_fopen (temp, "rb", DENY_WRITE)) == NULL)    /* open it*/
  343.     {
  344.         status_line (msgtxt[M_UNABLE_TO_OPEN], temp);
  345.         return (0);
  346.     }
  347.  
  348.     if (fseek (stream,(long int) pos, SEEK_SET))              /* point at record    */
  349.     {
  350.         status_line (msgtxt[M_NODELIST_SEEK_ERR], temp);
  351.         (void) fclose (stream);
  352.         return (0);
  353.     }
  354.  
  355.     if (!fread ((char *)&vers7, sizeof (struct _vers7), 1, stream))
  356.     {
  357.         status_line (msgtxt[M_NODELIST_REC_ERR], temp);
  358.         (void) fclose (stream);
  359.         return (0);
  360.     }
  361.  
  362.     (void) memset(my_phone,'\0',40);
  363.     (void) fread (my_phone, vers7.Phone_len, 1, stream);
  364.  
  365.     (void) memset(my_pwd,'\0',9);
  366.     (void) fread (my_pwd, vers7.Password_len, 1, stream);
  367.  
  368.     (void) memset(aline,'\0',160);
  369.     (void) memset(aline2,'\0',160);
  370.     if (!fread (aline2, vers7.pack_len, 1, stream))
  371.         {
  372.         status_line (msgtxt[M_NODELIST_REC_ERR], temp);
  373.         (void) fclose (stream);
  374.         return (0);
  375.         }
  376.  
  377.     (void) fclose (stream);
  378.  
  379.     unpk(aline2,aline,vers7.pack_len);
  380.  
  381.     (void) memset (&newnodedes, 0, sizeof (struct _newnode));
  382.  
  383.     newnodedes.NetNumber = vers7.Net;
  384.     newnodedes.NodeNumber = vers7.Node;
  385.     newnodedes.Cost = newnodedes.RealCost = vers7.CallCost;
  386.     (void) memcpy (newnodedes.SystemName, aline, min(33, vers7.Bname_len));
  387.     newnodedes.SystemName[min(33, vers7.Bname_len)] = '\0';
  388.     (void) fancy_str (newnodedes.SystemName);
  389.  
  390. #ifdef MILQ
  391.     fst = &aline[0] + vers7.Bname_len;
  392.     (void) memcpy (crnt_sysop, fst, min(25,vers7.Sname_len));
  393.     crnt_sysop[min(25,vers7.Sname_len)] = '\0';
  394.     (void)fancy_str( crnt_sysop );
  395. #endif
  396.  
  397.     fst = &aline[0] + vers7.Bname_len + vers7.Sname_len;
  398.     (void) memcpy (newnodedes.PhoneNumber, my_phone, min(39,vers7.Phone_len));
  399.     newnodedes.PhoneNumber[min(39,vers7.Phone_len)] = '\0';
  400.     (void) memcpy (newnodedes.MiscInfo, fst, min(29, vers7.Cname_len));
  401.     newnodedes.MiscInfo[min(29, vers7.Cname_len)] = '\0';
  402.     (void) fancy_str( newnodedes.MiscInfo );
  403.  
  404.     (void) memcpy (newnodedes.Password, my_pwd, min(8, vers7.Password_len));
  405.     newnodedes.HubNode = vers7.HubNode;
  406.     newnodedes.BaudRate = vers7.BaudRate;
  407.     newnodedes.ModemType = vers7.ModemType;
  408.     newnodedes.NodeFlags = vers7.NodeFlags;
  409.  
  410.     found_zone = faddr->Zone  = vers7.Zone;
  411.     found_net  = faddr->Net   = vers7.Net;
  412.     faddr->Node  = vers7.Node;
  413.     if (vers7.NodeFlags & B_point)
  414.         faddr->Point = vers7.HubNode;
  415.     else faddr->Point = 0;
  416.     faddr->Domain = NULL;
  417.  
  418.     return (1);
  419. }
  420.  
  421. struct _ndx far *get7node(HFILE stream, unsigned long pos, struct _ndx far *ndx)
  422. {
  423. #ifdef C386
  424.     unsigned long  got;
  425. #else
  426.     USHORT got;
  427. #endif
  428.  
  429.     (void) lseek (stream, (long) pos, SEEK_SET);
  430.  
  431.     if (_dos_read (stream, ndx,(unsigned int) sizeof (struct _ndx), &got) != 0)
  432.     {
  433.         status_line (msgtxt[M_NODELIST_READ_ERR]);
  434.         (void) close (stream);
  435.         return (NULL);
  436.     }
  437.     return (ndx);
  438. }
  439.  
  440.  
  441. /* ====================================================================
  442.  * unpack a dense version of a symbol (base 40 polynomial)
  443.  * ====================================================================
  444.  */
  445. void unpk(char *instr,char *outp,int count)
  446. {
  447.     struct chars {
  448.            unsigned char c1;
  449.            unsigned char c2;
  450.            };
  451.  
  452.     union {
  453.           unsigned w1;
  454.           struct chars d;
  455.           } u;
  456.  
  457.    register int i, j;
  458.    char obuf[4];
  459.  
  460.    outp[0] = '\0';
  461.  
  462.    while (count) {
  463.        u.d.c1 = *instr++;
  464.        u.d.c2 = *instr++;
  465.        count -= 2;
  466.        for(j=2;j>=0;j--) {
  467.            i = u.w1 % 40;
  468.            u.w1 /= 40;
  469.             obuf[j] = unwrk[i];
  470.            }
  471.        obuf[3] = '\0';
  472.        (void) strcat (outp, obuf);
  473.        }
  474. }
  475.  
  476.  
  477.