home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / BSRC_250.ZIP / EVTPARSE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-15  |  15.6 KB  |  506 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 written by Bob Hartman                   */
  14. /*                                                                          */
  15. /*                                                                          */
  16. /*                     BinkleyTerm Scheduler Routines                       */
  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. char *start_time (BINK_EVENT *, char *);
  51. char *end_time (BINK_EVENT *, char *);
  52.  
  53.  
  54. char *start_time (BINK_EVENTP e, char *p)
  55. {
  56.    int i, j, k, l, n;
  57.  
  58.    if ((n = sscanf (p, "%d:%d,%d,%d", &i, &j, &k, &l)) < 2)
  59.       {
  60.       return NULL;
  61.       }
  62.  
  63.    e->minute = i * 60 + j;
  64.    if ((e->minute < 0) || (e->minute > (24 * 60)))
  65.       {
  66.       return (NULL);
  67.       }
  68.  
  69.    if (n >= 3)
  70.       e->month = (char)k;
  71.    if (n >= 4)
  72.       e->day = (char)l;
  73.  
  74.    p = skip_to_blank (p);
  75.  
  76.    return (p);
  77. }
  78.  
  79. char *end_time (BINK_EVENTP e, char *p)
  80. {
  81.    int i, j, k;
  82.  
  83.    if (sscanf (p, "%d:%d", &i, &j) != 2)
  84.       {
  85.       return NULL;
  86.       }
  87.  
  88.    k = i * 60 + j;
  89.    if ((k > (24 * 60)) || (k < 0))
  90.       {
  91.       return (NULL);
  92.       }
  93.  
  94.    if (k < e->minute)
  95.       {
  96.       (void) printf (MSG_TXT(M_NO_END_MIDNIGHT));
  97.       return (NULL);
  98.       }
  99.  
  100.    e->length = k - e->minute;
  101.  
  102.    p = skip_to_blank (p);
  103.  
  104.    return (p);
  105. }
  106.  
  107. int parse_event (char *e_line)
  108. {
  109.    int i, j, j1, j2;
  110.    char *p, *p1, *eptr;
  111.    BINK_EVENT e;
  112.  
  113.    /* If we already have a schedule, then forget it */
  114.    if (got_sched)
  115.       return (0);
  116.  
  117.    /* Zero out the event structure */
  118.  
  119.    (void) memset ((char *)&e, 0 , sizeof (e));
  120.  
  121.    /* Skip blanks to get to the days field */
  122.    p = skip_blanks (e_line);
  123.  
  124.    /* Parse the days field */
  125.    e.days = 0;
  126.    e.wait_time = 120;
  127.    while ((*p) && (!isspace (*p)))
  128.       {
  129.       switch (toupper (*p))
  130.          {
  131.          case 'S':                              /* Sunday or Saturday */
  132.             if (!strnicmp (p, "sun", 3))
  133.                {
  134.                e.days |= DAY_SUNDAY;
  135.                }
  136.             else if (!strnicmp (p, "sat", 3))
  137.                {
  138.                e.days |= DAY_SATURDAY;
  139.                }
  140.             else /* Error condition */ 
  141.                {
  142.                goto err;
  143.                }
  144.             p += 3;
  145.             break;
  146.  
  147.          case 'M':                              /* Monday */
  148.             if (!strnicmp (p, "mon", 3))
  149.                {
  150.                e.days |= DAY_MONDAY;
  151.                }
  152.             else /* Error condition */ 
  153.                {
  154.                goto err;
  155.                }
  156.             p += 3;
  157.             break;
  158.  
  159.          case 'T':                              /* Tuesday or Thursday */
  160.             if (!strnicmp (p, "tue", 3))
  161.                {
  162.                e.days |= DAY_TUESDAY;
  163.                }
  164.             else if (!strnicmp (p, "thu", 3))
  165.                {
  166.                e.days |= DAY_THURSDAY;
  167.                }
  168.             else /* Error condition */ 
  169.                {
  170.                goto err;
  171.                }
  172.             p += 3;
  173.             break;
  174.  
  175.          case 'W':                              /* Wednesday, Week or
  176.                                                   * Weekend */
  177.             if (!strnicmp (p, "wed", 3))
  178.                {
  179.                e.days |= DAY_WEDNESDAY;
  180.                p += 3;
  181.                }
  182.             else if (!strnicmp (p, "week", 4))
  183.                {
  184.                e.days |= DAY_WEEK;
  185.                p += 4;
  186.                }
  187.             else if (!strnicmp (p, "wkend", 5))
  188.                {
  189.                e.days |= DAY_WKEND;
  190.                p += 5;
  191.                }
  192.             else /* Error condition */ 
  193.                {
  194.                goto err;
  195.                }
  196.             break;
  197.  
  198.          case 'F':                              /* Friday */
  199.             if (!strnicmp (p, "fri", 3))
  200.                {
  201.                e.days |= DAY_FRIDAY;
  202.                }
  203.             else /* Error condition */ 
  204.                {
  205.                goto err;
  206.                }
  207.             p += 3;
  208.             break;
  209.  
  210.          case 'A':                              /* All */
  211.             if (!strnicmp (p, "all", 3))
  212.                {
  213.                e.days |= (DAY_WEEK | DAY_WKEND);
  214.                }
  215.             else /* Error condition */ 
  216.                {
  217.                goto err;
  218.                }
  219.             p += 3;
  220.             break;
  221.  
  222.          default:                               /* Error condition */
  223.             goto err;
  224.          }
  225.  
  226.       if (*p == '|')
  227.          ++p;
  228.       }
  229.  
  230.    /* Did we get something valid? */
  231.    if (e.days == 0)
  232.       {
  233.       goto err;
  234.       }
  235.  
  236.    /* Skip blanks to get to the start-time field */
  237.    p = skip_blanks (p);
  238.  
  239.    /* Parse the start-time field */
  240.    if ((p = start_time (&e, p)) == NULL)
  241.       {
  242.       eptr = MSG_TXT(M_INVALID_START);
  243.       goto bad_line;
  244.       }
  245.  
  246.    /* Give each event a default of 60 minutes */
  247.    e.length = 60;
  248.  
  249.    /* Give each event a local cost of 0 */
  250.    e.node_cost = 0;
  251.  
  252.    /* Each event defaults to Q=0 */
  253.    e.mailqsize = 0l;
  254.  
  255.    /* Give each event a default of T=3,10000 */
  256.    e.with_connect = 3;
  257.    e.no_connect = 10000;
  258.  
  259.    /* While there are still things on the line */
  260.    while (*p)
  261.       {
  262.       /* Skip blanks to get to the next field */
  263.       p = skip_blanks (p);
  264.  
  265.       /* switch to find what thing is being parsed */
  266.  
  267.       switch (tolower (*p))
  268.          {
  269.          case '\0':                             /* No more stuff */
  270.             break;
  271.  
  272.          case '0':                              /* Digits must be an ending
  273.                                                   * time */
  274.          case '1':
  275.          case '2':
  276.          case '3':
  277.          case '4':
  278.          case '5':
  279.          case '6':
  280.          case '7':
  281.          case '8':
  282.          case '9':
  283.             /* Parse ending time */
  284.             if ((p = end_time (&e, p)) == NULL)
  285.                {
  286.                (void) printf (MSG_TXT(M_INVALID_END), e_line);
  287.                return (1);
  288.                }
  289.             break;
  290.  
  291.          case ';':                              /* Comment */
  292.          case '%':
  293.             *p = '\0';
  294.             break;
  295.  
  296.          case '"':                              /* Extra chars to append to
  297.                                                   * packer strings */
  298.             ++p;
  299.             p1 = e.cmd;
  300.             *p1++ = ' ';
  301.             while (*p != '"')
  302.                *p1++ = *p++;
  303.             *p1 = '\0';
  304.             ++p;
  305.             break;
  306.  
  307.          case 'a':                              /* Average wait */
  308.             ++p;
  309.             if (*p == '=')
  310.                {
  311.                ++p;
  312.                if (isdigit (*p))
  313.                   {
  314.                   i = atoi (p);
  315.                   if ((i > 1800) || (i < 0))
  316.                      {
  317.                      eptr = MSG_TXT(M_INVALID_AVGWAIT);
  318.                      goto bad_line;
  319.                      }
  320.                   e.wait_time = i;
  321.                   p = skip_to_blank (p);
  322.                   break;
  323.                   }
  324.                }
  325.             eptr = MSG_TXT(M_INVALID_AVGWAIT);
  326.             goto bad_line;
  327.  
  328.          case 'b':                              /* BBS type event */
  329.             p = skip_to_blank (p);
  330.             e.behavior |= MAT_BBS;
  331.             break;
  332.  
  333.          case 'c':                              /* #CM event */
  334.             p = skip_to_blank (p);
  335.             e.behavior |= MAT_CM;
  336.             break;
  337.  
  338.          case 'd':                              /* Dynamic event */
  339.             p = skip_to_blank (p);
  340.             e.behavior |= MAT_DYNAM;
  341.             break;
  342.  
  343.          case 'e':                              /* An errorlevel exit */
  344.             ++p;
  345.             if (isdigit (*p))
  346.                {
  347.                i = *p - '0';
  348.                ++p;
  349.                if (*p == '=')
  350.                   {
  351.                   if ((i <= 3) && (i > 0))
  352.                      {
  353.                      ++p;
  354.                      if (isdigit (*p))
  355.                         {
  356.                         j = atoi (p);
  357.                         e.errlevel[i - 1] = (unsigned char) j;
  358.                         p = skip_to_blank (p);
  359.                         break;
  360.                         }
  361.                      }
  362.                   else if ((i > 3) && (i <= 9))
  363.                      {
  364.                      ++p;
  365.                      if (isdigit (*p))
  366.                         {
  367.                         j = atoi (p);
  368.                         e.errlevel[i - 1] = (unsigned char) j;
  369.                         while (*p && (*p != ','))
  370.                            ++p;
  371.                         ++p;
  372.                         (void) strncpy (&(e.err_extent[i - 4][0]), p, 3);
  373.                         p = skip_to_blank (p);
  374.                         break;
  375.                         }
  376.                      }
  377.                   }
  378.                }
  379.             eptr = MSG_TXT(M_BAD_ERRORLEVEL);
  380.             goto bad_line;
  381.  
  382.          case 'f':                              /* Forced event */
  383.             p = skip_to_blank (p);
  384.             e.behavior |= MAT_FORCED;
  385.             break;
  386.  
  387.          case 'h':                              /* hi-priority crash */
  388.             p = skip_to_blank (p);
  389.             e.behavior |= MAT_HIPRICM;
  390.             break;
  391.  
  392.          case 'k':                              /* no #CM event */
  393.             p = skip_to_blank (p);
  394.             e.behavior |= MAT_NOCM;
  395.             break;
  396.  
  397.          case 'l':                              /* Local only mail */
  398.             ++p;
  399.             e.node_cost = 0;
  400.             if (*p == '=')
  401.                {
  402.                ++p;
  403.                if (isdigit (*p))
  404.                   {
  405.                   e.node_cost = atoi (p);
  406.                   }
  407.                }
  408.             else if (*p == '>')
  409.                {
  410.                ++p;
  411.                if (isdigit (*p))
  412.                   {
  413.                   e.node_cost = -atoi (p) - 1;
  414.                   }
  415.                }
  416.             else if (*p == '<')
  417.                {
  418.                ++p;
  419.                if (isdigit (*p))
  420.                   {
  421.                   e.node_cost = atoi (p) - 1;
  422.                   }
  423.                }
  424.             p = skip_to_blank (p);
  425.             e.behavior |= MAT_LOCAL;
  426.             break;
  427.  
  428.          case 'm':                              /* Mailable 24 hours */
  429.             p = skip_to_blank (p);
  430.             e.behavior |= MAT_NOMAIL24;
  431.             break;
  432.  
  433.          case 'n':                              /* No requests */
  434.             p = skip_to_blank (p);
  435.             e.behavior |= MAT_NOREQ;
  436.             break;
  437.  
  438.          case 'q':                              /* Mail Queued size */
  439.             ++p;
  440.             if (*p == '=')
  441.                {
  442.                ++p;
  443.                if (isdigit (*p))
  444.                   {
  445.                   e.mailqsize = (unsigned long) atol (p);
  446.                   p = skip_to_blank (p);
  447.                   break;
  448.                   }
  449.                }
  450.             eptr = MSG_TXT(M_BAD_QSIZE);
  451.             goto bad_line;
  452.  
  453.          case 'r':                              /* Receive only */
  454.             p = skip_to_blank (p);
  455.             e.behavior |= MAT_NOOUT;
  456.             break;
  457.  
  458.          case 's':                              /* Send only */
  459.             p = skip_to_blank (p);
  460.             e.behavior |= MAT_OUTONLY;
  461.             break;
  462.  
  463.          case 't':                              /* Tries */
  464.             ++p;
  465.             if (sscanf (p, "=%d,%d", &j1, &j2) != 2)
  466.                {
  467.                eptr = MSG_TXT(M_BAD_TRIES);
  468.                goto bad_line;
  469.                }
  470.             else
  471.                {
  472.                if ((j1 > 8) || (j1 < 1))
  473.                   {
  474.                   eptr = MSG_TXT(M_BAD_TRIES);
  475.                   goto bad_line;
  476.                   }
  477.                e.with_connect = j1;
  478.                e.no_connect = j2;
  479.                }
  480.             p = skip_to_blank (p);
  481.             break;
  482.  
  483.          case 'x':                              /* No outbound requests here */
  484.             p = skip_to_blank (p);
  485.             e.behavior |= MAT_NOOUTREQ;
  486.             break;
  487.  
  488.          default:                               /* Error condition */
  489.             eptr = MSG_TXT(M_INDECIPHERABLE);
  490.             goto bad_line;
  491.          }
  492.       }
  493.  
  494.    /* Save it in the array  of pointers */
  495.    e_ptrs[num_events++] = e;
  496.  
  497.    /* Return that everything is cool */
  498.    return (0);
  499.  
  500. err:
  501.    eptr = MSG_TXT(M_BAD_DAY);
  502. bad_line:
  503.    (void) printf (eptr, e_line);
  504.    return (1);
  505. }
  506.