home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Tools / tables / tjoin / tjoin3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  10.1 KB  |  499 lines
  1. /* tjoin3.c: */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Tools/tables/tjoin/RCS/tjoin3.c,v 6.0 1991/12/18 20:35:29 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Tools/tables/tjoin/RCS/tjoin3.c,v 6.0 1991/12/18 20:35:29 jpo Rel $
  9.  *
  10.  * $Log: tjoin3.c,v $
  11.  * Revision 6.0  1991/12/18  20:35:29  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include        <stdio.h>
  19. #include        "tjoin.h"
  20.  
  21. extern  int     yylineno;
  22.  
  23. int         PrintNode(), CheckARs();
  24. SBUFF       *InitStringStore();
  25. MTA         *NameToMta(), *InsertMta(), *GetMta();
  26. CHAN        *InsertChan(), *GetChan();
  27. char        *StoreStr(), *InChanList();
  28.  
  29. extern  char    *av0, *MyName;
  30. extern  HOST    *HostList;
  31. extern  CHAN    *ChanList;
  32. extern  CHAN    *ValidChanList;
  33. extern  MTA     *MtaTree;
  34. extern  SBUFF   *ARStringStore, *HostStringStore;
  35. extern  int     Debug, PrintRoute, DirectFirst, ComplexOutput;
  36.  
  37.  
  38.  
  39.  
  40. /* ----------------------  Begin  Routines  --------------------------------- */
  41.  
  42.  
  43.  
  44. Usage()
  45. {
  46.     fprintf (stderr, "Usage: %s [flags] Hostname ChannelList\n", av0);
  47.     fprintf (stderr, "\t-r\tPrint Routes\n");
  48.     fprintf (stderr, "\t-d\tMost Direct Route First\n");
  49.     fprintf (stderr, "\t-c\tComplex Output\n");
  50.     fprintf (stderr, "\t-h\tThis Message\n");
  51.     exit (1);
  52. }
  53.  
  54.  
  55.  
  56. DoFlag (str)
  57. register char   *str;
  58. {
  59.     for (; *str != '\00'; str++) {
  60.  
  61.         if (*str == 'h')
  62.             Usage();
  63.  
  64.         if (*str == 'd') {
  65.             DirectFirst = 1;
  66.             continue;
  67.         }
  68.  
  69.         if (*str == 'c') {
  70.             ComplexOutput = 1;
  71.             continue;
  72.         }
  73.  
  74.         if (*str == 'r') {
  75.             PrintRoute = 1;
  76.             continue;
  77.         }
  78.  
  79.         fprintf (stderr, "%s: Unknown flag %c\n", av0, *str);
  80.         exit (1);
  81.     }
  82. }
  83.  
  84.  
  85.  
  86. CheckARs (mta)
  87. register MTA    *mta;
  88. {
  89.     register CHAN   *chan;
  90.     int             lineno;
  91.     char            buff [500];     /* --- Lex Buffer Size --- */
  92.  
  93.  
  94.     /* --- Go along the list of AR names. --- */
  95.     /* --- These are of form "Name Lineno" --- */
  96.  
  97.     for (chan = mta->mta_arlist; chan != NULL; chan = chan->ch_next) {
  98.         if (sscanf (chan->ch.name, "%s %d", &buff [0], &lineno) != 2) {
  99.             /* --- Internal error - Horrible --- */
  100.             fprintf (stderr, "%s: CheckARs - AAARGH!!\n", av0);
  101.             exit (1);
  102.         }
  103.  
  104.         if ((chan->ch.mta = NameToMta (&buff [0])) == NULL) {
  105.             fprintf (stderr, "%s: AR %s ", av0, &buff [0]);
  106.             fprintf (stderr, "does not exist at line %d\n", lineno);
  107.         }
  108.     }
  109. }
  110.  
  111.  
  112.  
  113. DefineChan (str)
  114. char    *str;
  115. {
  116.     register CHAN   *chan;
  117.  
  118.     chan = GetChan();
  119.     chan->ch.name = str;    /* --- Leave this data where it is --- */
  120.     chan->ch_next = NULL;
  121.     ValidChanList = InsertChan (ValidChanList, chan);
  122. }
  123.  
  124.  
  125. /* --- *** ---
  126. This routine does all checking Possible. It can not check for
  127. validity of AR hosts, but can check that channels exist. If there are
  128. any problems with the channels, the line is discarded. This routine
  129. also start to modify the data structures and free the memory used by
  130. the LEX part of the program.
  131. --- *** --- */
  132.  
  133. int CheckHost (hostname)
  134. char    *hostname;
  135. {
  136.     register CHAN   *c1;
  137.     register char   *ptr;
  138.     register HOST   *host;
  139.     int             valid;
  140.  
  141.     valid = 0;
  142.  
  143.     for (host = HostList; host != NULL; host = host->hst_next) {
  144.  
  145.         /* --- Check name against hostname --- */
  146.  
  147.         if (host->hst_chan != NULL)
  148.             if (strcmp (hostname, host->hst_name) != 0) {
  149.                 RejectHost (host);
  150.                 continue;
  151.             }
  152.             else {
  153.                 if (Debug == 1) 
  154.                        printf ("CheckHost HostName - Free %s\n",
  155.                         host->hst_name ? 
  156.                         host->hst_name : "null");
  157.  
  158.                 if (host -> hst_name) {
  159.                     free (host->hst_name);
  160.                     host->hst_name = NULL;
  161.                 }
  162.             }
  163.         else {
  164.             /* ---  *** ---
  165.             Check That I am not the AR here. If I am
  166.             then just zap it and say nothing
  167.             --- *** --- */
  168.             if (strcmp (MyName, host->hst_name) == 0) {
  169.                 if (Debug == 1) 
  170.                     printf ("CheckHost AR HostName\n", 
  171.                         host->hst_name ? 
  172.                         host->hst_name : "null");
  173.  
  174.                 if (host->hst_name) {
  175.                     free (host->hst_name);
  176.                     host->hst_name = NULL;
  177.                 }
  178.  
  179.                 continue;
  180.             }
  181.  
  182.             /* --- Check the MTA does not have AR of itself --- */
  183.             if (strcmp (hostname, host->hst_name) == 0) {
  184.                 /* --- What a dummy --- */
  185.                 fprintf (stderr, "%s: CheckHost - Line ", av0);
  186.                 fprintf (stderr, "%d has AR of ", yylineno - 1);
  187.                 fprintf (stderr, "itself - Ignored\n");
  188.  
  189.                 if (Debug == 1) 
  190.                    printf ("CheckHost AR HostName - Free %s\n",
  191.                         host->hst_name ? 
  192.                         host->hst_name : "null");
  193.  
  194.                 if (host->hst_name) {
  195.                     free (host->hst_name);
  196.                     host->hst_name = NULL;
  197.                 }
  198.                 continue;
  199.             }
  200.  
  201.             valid = 1;      /* --- Application Relay --- */
  202.             continue;
  203.         }
  204.  
  205.         for (c1 = host->hst_chan; c1 != NULL; c1 = c1->ch_next) {
  206.             /* --- c1->ch.name points at a LEX buffer --- */
  207.             ptr = InChanList (ValidChanList, c1->ch.name);
  208.             if (ptr == NULL) {
  209.                 if (Debug == 2) {
  210.                   fprintf (stderr, "%s: Invalid Channel ", av0);
  211.                   fprintf (stderr, "%s at line ", c1->ch.name);
  212.                   fprintf (stderr, "%d - ", yylineno - 1);
  213.                   fprintf (stderr, "Ignored\n");
  214.                 }
  215.             }
  216.             else
  217.                 valid = 1;
  218.  
  219.             if (Debug == 1) 
  220.                printf ("CheckHost - ChanName Free %s\n",
  221.                     c1->ch.name ? c1->ch.name : "null");
  222.  
  223.             if (c1->ch.name)
  224.                 free (c1->ch.name);
  225.  
  226.             c1->ch.name = ptr;
  227.         }
  228.     }
  229.  
  230.     return (valid);
  231. }
  232.  
  233.  
  234.  
  235. /* --- Check that Channels exist --- */
  236.  
  237. CheckChan (c1)
  238. register CHAN   *c1;
  239.     {
  240.     int     valid;
  241.     char    *ptr;
  242.  
  243.     for (valid = 0; c1 != NULL; c1 = c1->ch_next) {
  244.  
  245.         /* --- c1->ch.name points at a LEX buffer --- */
  246.         ptr = InChanList (ValidChanList, c1->ch.name);
  247.         if (ptr == NULL) {
  248.             if (Debug == 2) {
  249.                 fprintf (stderr, "%s: Invalid Channel ", av0);
  250.                 fprintf (stderr, "%s at line ", c1->ch.name);
  251.                 fprintf (stderr, "%d - Ignored\n", yylineno- 1);
  252.             }
  253.         }
  254.         else
  255.             valid = 1;
  256.  
  257.  
  258.         if (Debug == 1) 
  259.            printf ("CheckChan - ChanName Free %s\n",
  260.                 c1->ch.name ? c1->ch.name : "null");
  261.  
  262.         if (c1->ch.name)
  263.             free (c1->ch.name);
  264.  
  265.         c1->ch.name = ptr;
  266.     }
  267.  
  268.     return (valid);
  269. }
  270.  
  271.  
  272.  
  273.  
  274. /* --- *** ---
  275. This routine takes the valid data in the input line structure
  276. and merges it into the internal database format. It also frees up all
  277. storeage used by the line input routines.
  278. --- *** --- */
  279.  
  280.  
  281. StoreHost (hostname)
  282. char    *hostname;
  283. {
  284.     register MTA    *mta;
  285.  
  286.     if ((mta = NameToMta (hostname)) == NULL) {
  287.         mta = GetMta();
  288.         mta->mta_name = StoreStr (HostStringStore, hostname);
  289.         MtaTree = InsertMta (MtaTree, mta);
  290.     }
  291.  
  292.     if (mta->mta_domain != NULL) {
  293.         /* --- Very Serious - Don't know what to do --- */
  294.         fprintf (stderr, "%s: StoreHost - Line %d ", av0, yylineno - 1);
  295.         fprintf (stderr, "uses mixed types - Ignored\n");
  296.         FreeHostInfo (HostList);
  297.         return;
  298.     }
  299.  
  300.     MergeData (mta, HostList);
  301. }
  302.  
  303.  
  304.  
  305. StoreChans (name)
  306. char    *name;
  307. {
  308.     register MTA    *mta;
  309.  
  310.     if ((mta = NameToMta (name)) == NULL) {
  311.         mta = GetMta();
  312.         mta->mta_name = StoreStr (HostStringStore, name);
  313.         MtaTree = InsertMta (MtaTree, mta);
  314.     }
  315.  
  316.     if (mta->mta_arlist != NULL || mta->mta_chan != NULL) {
  317.         /* --- Very Serious - Don't know what to do --- */
  318.         fprintf (stderr, "%s: StoreHost - Line %d ", av0, yylineno - 1);
  319.         fprintf (stderr, "uses mixed types - Ignored\n");
  320.         FreeChanInfo (ChanList);
  321.         return;
  322.     }
  323.  
  324.     MergeChanData (mta, ChanList);
  325. }
  326.  
  327.  
  328.  
  329. FreeHostInfo (host)
  330. register HOST   *host;
  331. {
  332.     register HOST   *h2;
  333.     register CHAN   *c1, *c2;
  334.  
  335.     for (; host != NULL; host = h2) {
  336.         h2 = host->hst_next;
  337.  
  338.         for (c1 = host->hst_chan ; c1 != NULL; c1 = c2) {
  339.  
  340.             c2 = c1->ch_next;
  341.  
  342.             if (Debug == 1) 
  343.                    printf ("FreeHostInfo - Chan Free %s\n",
  344.                     c1->ch.name ? c1->ch.name : "null");
  345.  
  346.             free ((char *)c1);
  347.             c1 = NULL;
  348.         }
  349.  
  350.         if (host->hst_name != NULL) {
  351.             if (Debug == 1) 
  352.                    printf ("FreeHostInfo - HostName Free %s\n",
  353.                 host->hst_name ? host->hst_name : "null");
  354.             free (host->hst_name);
  355.             host->hst_name = NULL;
  356.         }
  357.  
  358.         if (Debug == 1) 
  359.             printf ("FreeHostInfo - Host Free %x\n", host);
  360.  
  361.         if (host) {
  362.             free ((char *)host);
  363.             host = NULL;
  364.         }
  365.     }
  366. }
  367.  
  368.  
  369. yyerror (str)
  370. char    *str;
  371. {
  372.         fprintf (stderr, "%s at line number %d\n", str, yylineno);
  373. }
  374.  
  375.  
  376.  
  377.  
  378. /* ----------------------  Static Routines  --------------------------------- */
  379.  
  380.  
  381.  
  382.  
  383. /* --- *** --- 
  384. This routine adds the new data to existing data. It is also
  385. responsible for freeing the space used by AR lines and HOST and
  386. CHAN buffers.
  387. --- *** --- */
  388.  
  389. static MergeData (mta, host)
  390. register MTA    *mta;
  391. register HOST   *host;
  392. {
  393.     register HOST   *h2;
  394.     register CHAN   *c1;
  395.  
  396.     for (; host != NULL; host = h2) {
  397.         h2 = host->hst_next;
  398.         if ((c1 = host->hst_chan) != NULL)
  399.             DoDirectChans (mta, c1);
  400.             else
  401.             ProcessAR (mta, host->hst_name);
  402.  
  403.         if (Debug == 1) 
  404.             printf ("MergeData - Host Free %s\n", 
  405.             host->hst_name ? host -> hst_name : "null");
  406.  
  407.         if (host) {
  408.             free ((char *)host);
  409.             host = NULL;
  410.         }
  411.  
  412.     }
  413. }
  414.  
  415.  
  416. static ProcessAR (mta, hostname)
  417. register MTA    *mta;
  418. register char   *hostname;
  419. {
  420.     register CHAN   *chan;
  421.     char            localHost[BUFSIZ]; /* --- To SPRINTF a number into --- */
  422.  
  423.     if (hostname == NULL)    /* --- I was the AR --- */
  424.         return;
  425.  
  426.     if (InChanList (mta->mta_arlist, hostname) == NULL) {
  427.  
  428.         chan = GetChan();
  429.  
  430.         /* --- Store the Line number with AR in case of errors --- */
  431.         (void) sprintf (localHost, "%s %d", hostname, yylineno - 1);
  432.  
  433.         chan->ch.name = StoreStr (ARStringStore, localHost);
  434.  
  435.         if (Debug == 1) 
  436.             printf ("ProcessAR - HostName Free %s\n", 
  437.             hostname ? hostname : "null");
  438.  
  439.         if (hostname) {
  440.             free (hostname);
  441.             hostname = NULL;
  442.         }
  443.  
  444.         mta->mta_arlist = InsertChan (mta->mta_arlist, chan);
  445.     }
  446. }
  447.  
  448.  
  449.  
  450. static MergeChanData (mta, c1)
  451. register MTA    *mta;
  452. register CHAN   *c1;
  453. {
  454.     register CHAN   *c2, *chan;
  455.  
  456.     for (; c1 != NULL; c1 = c2) {
  457.         c2 = c1->ch_next;
  458.         if (c1->ch.name != NULL)
  459.             if (InChanList (mta->mta_domain, c1->ch.name) == NULL) {
  460.                 chan = GetChan();
  461.                 chan->ch.name = c1->ch.name;
  462.                 mta->mta_domain = InsertChan (mta->mta_domain,
  463.                                     chan);
  464.             }
  465.  
  466.         if (Debug == 1) 
  467.             printf ("MergeChanData - Chan Free %s\n", 
  468.             c1->ch.name ? c1->ch.name : "null");    
  469.  
  470.         free ((char *)c1);
  471.         c1 = NULL;
  472.     }
  473. }
  474.  
  475.  
  476. static DoDirectChans (mta, c1)
  477. register MTA    *mta;
  478. register CHAN   *c1;
  479. {
  480.     register CHAN   *c2, *chan;
  481.  
  482.     for (; c1 != NULL; c1 = c2) {
  483.         c2 = c1->ch_next;
  484.         if (c1->ch.name != NULL)
  485.             if (InChanList (mta->mta_chan, c1->ch.name) == NULL) {
  486.                 chan = GetChan();
  487.                 chan->ch.name = c1->ch.name;
  488.                 mta->mta_chan = InsertChan (mta->mta_chan,chan);
  489.             }
  490.  
  491.         if (Debug == 1) 
  492.             printf ("DoDirectChans - Chan Free %s\n", 
  493.             c1->ch.name ? c1->ch.name : "null");    
  494.  
  495.         free ((char *)c1);
  496.         c1 = NULL;
  497.     }
  498. }
  499.