home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / bsrc_260.arj / SRC.ZIP / evtparse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-02-20  |  11.9 KB  |  536 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-96, Bit Bucket Software Co.              */
  11. /*                                                                          */
  12. /*                 This module was written by Bob Hartman                   */
  13. /*                                                                          */
  14. /*                     BinkleyTerm Scheduler Routines                       */
  15. /*                                                                          */
  16. /*                                                                          */
  17. /*    For complete  details  of the licensing restrictions, please refer    */
  18. /*    to the License  agreement,  which  is published in its entirety in    */
  19. /*    the MAKEFILE and BT.C, and also contained in the file LICENSE.260.    */
  20. /*                                                                          */
  21. /*    USE  OF THIS FILE IS SUBJECT TO THE  RESTRICTIONS CONTAINED IN THE    */
  22. /*    BINKLEYTERM  LICENSING  AGREEMENT.  IF YOU DO NOT FIND THE TEXT OF    */
  23. /*    THIS  AGREEMENT IN ANY OF THE  AFOREMENTIONED FILES,  OR IF YOU DO    */
  24. /*    NOT HAVE THESE FILES,  YOU  SHOULD  IMMEDIATELY CONTACT BIT BUCKET    */
  25. /*    SOFTWARE CO.  AT ONE OF THE  ADDRESSES  LISTED BELOW.  IN NO EVENT    */
  26. /*    SHOULD YOU  PROCEED TO USE THIS FILE  WITHOUT HAVING  ACCEPTED THE    */
  27. /*    TERMS  OF  THE  BINKLEYTERM  LICENSING  AGREEMENT,  OR  SUCH OTHER    */
  28. /*    AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO.      */
  29. /*                                                                          */
  30. /*                                                                          */
  31. /* You can contact Bit Bucket Software Co. at any one of the following      */
  32. /* addresses:                                                               */
  33. /*                                                                          */
  34. /* Bit Bucket Software Co.        FidoNet  1:104/501, 1:343/491             */
  35. /* P.O. Box 460398                AlterNet 7:42/1491                        */
  36. /* Aurora, CO 80046               BBS-Net  86:2030/1                        */
  37. /*                                Internet f491.n343.z1.fidonet.org         */
  38. /*                                                                          */
  39. /* Please feel free to contact us at any time to share your comments about  */
  40. /* our software and/or licensing policies.                                  */
  41. /*                                                                          */
  42. /*--------------------------------------------------------------------------*/
  43.  
  44. /* Include this file before any other includes or defines! */
  45.  
  46. #include "includes.h"
  47.  
  48. char *start_time (BINK_EVENT *, char *);
  49. char *end_time (BINK_EVENT *, char *);
  50.  
  51. char *
  52. start_time (BINK_EVENTP e, char *p)
  53. {
  54.     int i, j, k, l, n;
  55.  
  56.     if ((n = sscanf (p, "%d:%d,%d,%d", &i, &j, &k, &l)) < 2)
  57.     {
  58.         return NULL;
  59.     }
  60.  
  61.     e->minute = i * 60 + j;
  62.     if ((e->minute < 0) || (e->minute > (24 * 60)))
  63.     {
  64.         return (NULL);
  65.     }
  66.  
  67.     if (n >= 3)
  68.         e->month = (char) k;
  69.     if (n >= 4)
  70.         e->day = (char) l;
  71.  
  72.     p = skip_to_blank (p);
  73.  
  74.     return (p);
  75. }
  76.  
  77. char *
  78. end_time (BINK_EVENTP e, char *p)
  79. {
  80.     int i, j, k;
  81.  
  82.     if (sscanf (p, "%d:%d", &i, &j) != 2)
  83.     {
  84.         return NULL;
  85.     }
  86.  
  87.     k = i * 60 + j;
  88.     if ((k > (24 * 60)) || (k < 0))
  89.     {
  90.         return (NULL);
  91.     }
  92.  
  93.     if (k < e->minute)
  94.     {
  95.         (void) printf (MSG_TXT (M_NO_END_MIDNIGHT));
  96.         return (NULL);
  97.     }
  98.  
  99.     e->length = k - e->minute;
  100.  
  101.     p = skip_to_blank (p);
  102.  
  103.     return (p);
  104. }
  105.  
  106. int 
  107. 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
  141.                 /* Error condition */
  142.             {
  143.                 goto err;
  144.             }
  145.             p += 3;
  146.             break;
  147.  
  148.         case 'M':                /* Monday */
  149.             if (!strnicmp (p, "mon", 3))
  150.             {
  151.                 e.days |= DAY_MONDAY;
  152.             }
  153.             else
  154.                 /* Error condition */
  155.             {
  156.                 goto err;
  157.             }
  158.             p += 3;
  159.             break;
  160.  
  161.         case 'T':                /* Tuesday or Thursday */
  162.             if (!strnicmp (p, "tue", 3))
  163.             {
  164.                 e.days |= DAY_TUESDAY;
  165.             }
  166.             else if (!strnicmp (p, "thu", 3))
  167.             {
  168.                 e.days |= DAY_THURSDAY;
  169.             }
  170.             else
  171.                 /* Error condition */
  172.             {
  173.                 goto err;
  174.             }
  175.             p += 3;
  176.             break;
  177.  
  178.         case 'W':                /* Wednesday, Week or
  179.                                                   * Weekend */
  180.             if (!strnicmp (p, "wed", 3))
  181.             {
  182.                 e.days |= DAY_WEDNESDAY;
  183.                 p += 3;
  184.             }
  185.             else if (!strnicmp (p, "week", 4))
  186.             {
  187.                 e.days |= DAY_WEEK;
  188.                 p += 4;
  189.             }
  190.             else if (!strnicmp (p, "wkend", 5))
  191.             {
  192.                 e.days |= DAY_WKEND;
  193.                 p += 5;
  194.             }
  195.             else
  196.                 /* Error condition */
  197.             {
  198.                 goto err;
  199.             }
  200.             break;
  201.  
  202.         case 'F':                /* Friday */
  203.             if (!strnicmp (p, "fri", 3))
  204.             {
  205.                 e.days |= DAY_FRIDAY;
  206.             }
  207.             else
  208.                 /* Error condition */
  209.             {
  210.                 goto err;
  211.             }
  212.             p += 3;
  213.             break;
  214.  
  215.         case 'A':                /* All */
  216.             if (!strnicmp (p, "all", 3))
  217.             {
  218.                 e.days |= (DAY_WEEK | DAY_WKEND);
  219.             }
  220.             else
  221.                 /* Error condition */
  222.             {
  223.                 goto err;
  224.             }
  225.             p += 3;
  226.             break;
  227.  
  228.         default:                /* Error condition */
  229.             goto err;
  230.         }
  231.  
  232.         if (*p == '|')
  233.             ++p;
  234.     }
  235.  
  236.     /* Did we get something valid? */
  237.     if (e.days == 0)
  238.     {
  239.         goto err;
  240.     }
  241.  
  242.     /* Skip blanks to get to the start-time field */
  243.     p = skip_blanks (p);
  244.  
  245.     /* Parse the start-time field */
  246.     if ((p = start_time (&e, p)) == NULL)
  247.     {
  248.         eptr = MSG_TXT (M_INVALID_START);
  249.         goto bad_line;
  250.     }
  251.  
  252.     /* Give each event a default of 60 minutes */
  253.     e.length = 60;
  254.  
  255.     /* Give each event a local cost of 0 */
  256.     e.node_cost = 0;
  257.  
  258.     /* Each event defaults to Q=0 */
  259.     e.mailqsize = 0l;
  260.  
  261.     /* Give each event a default of T=3,10000 */
  262.     e.with_connect = 3;
  263.     e.no_connect = 10000;
  264.  
  265.     /* While there are still things on the line */
  266.     while (*p)
  267.     {
  268.         /* Skip blanks to get to the next field */
  269.         p = skip_blanks (p);
  270.  
  271.         /* switch to find what thing is being parsed */
  272.  
  273.         switch (tolower (*p))
  274.         {
  275.         case '\0':                /* No more stuff */
  276.             break;
  277.  
  278.         case '0':                /* Digits must be an ending
  279.                                                   * time */
  280.         case '1':
  281.         case '2':
  282.         case '3':
  283.         case '4':
  284.         case '5':
  285.         case '6':
  286.         case '7':
  287.         case '8':
  288.         case '9':
  289.             /* Parse ending time */
  290.             if ((p = end_time (&e, p)) == NULL)
  291.             {
  292.                 (void) printf (MSG_TXT (M_INVALID_END), e_line);
  293.                 return (1);
  294.             }
  295.             break;
  296.  
  297.         case ';':                /* Comment */
  298.         case '%':
  299.             *p = '\0';
  300.             break;
  301.  
  302.         case '"':                /* Extra chars to append to
  303.                                                   * packer strings */
  304.             ++p;
  305.             p1 = e.cmd;
  306.             *p1++ = ' ';
  307.             while (*p != '"')
  308.                 *p1++ = *p++;
  309.             *p1 = '\0';
  310.             ++p;
  311.             break;
  312.  
  313.         case 'a':                /* Average wait */
  314.             ++p;
  315.             if (*p == '=')
  316.             {
  317.                 ++p;
  318.                 if (isdigit (*p))
  319.                 {
  320.                     i = atoi (p);
  321.                     if ((i > 1800) || (i < 0))
  322.                     {
  323.                         eptr = MSG_TXT (M_INVALID_AVGWAIT);
  324.                         goto bad_line;
  325.                     }
  326.                     e.wait_time = i;
  327.                     p = skip_to_blank (p);
  328.                     break;
  329.                 }
  330.             }
  331.             eptr = MSG_TXT (M_INVALID_AVGWAIT);
  332.             goto bad_line;
  333.  
  334.         case 'b':                /* BBS type event */
  335.             p = skip_to_blank (p);
  336.             e.behavior |= MAT_BBS;
  337.             break;
  338.  
  339.         case 'c':                /* #CM event */
  340.             p = skip_to_blank (p);
  341.             e.behavior |= MAT_CM;
  342.             break;
  343.  
  344.         case 'd':                /* Dynamic event */
  345.             p = skip_to_blank (p);
  346.             e.behavior |= MAT_DYNAM;
  347.             break;
  348.  
  349.         case 'e':                /* An errorlevel exit */
  350.             ++p;
  351.             if (isdigit (*p))    /* E0 through E9 */
  352.             {
  353.                 i = *p - '0';
  354.                 ++p;
  355.                 if (*p == '=')
  356.                 {
  357.                     if ((i <= 3) && (i > 0))
  358.                     {
  359.                         ++p;
  360.                         if (isdigit (*p))
  361.                         {
  362.                             j = atoi (p);
  363.                             e.errlevel[i - 1] = (unsigned char) j;
  364.                             p = skip_to_blank (p);
  365.                             break;
  366.                         }
  367.                     }
  368.                     else if ((i > 3) && (i <= 9))
  369.                     {
  370.                         ++p;
  371.                         if (isdigit (*p))
  372.                         {
  373.                             j = atoi (p);
  374.                             e.errlevel[i - 1] = (unsigned char) j;
  375.                             while (*p && (*p != ','))
  376.                                 ++p;
  377.                             ++p;
  378.                             (void) strncpy (&(e.err_extent[i - 4][0]), p, 3);
  379.                             p = skip_to_blank (p);
  380.                             break;
  381.                         }
  382.                     }
  383.                 }
  384.             }
  385.             else if (tolower (*p) == 'f')    /* Errorlevel for fax */
  386.             {
  387.                 ++p;
  388.                 if (*p == '=')
  389.                 {
  390.                     ++p;
  391.                     if (isdigit (*p))
  392.                     {
  393.                         j = atoi (p);
  394.                         e.faxerrlevel = (unsigned char) j;
  395.                         p = skip_to_blank (p);
  396.                         break;
  397.                     }
  398.                 }
  399.             }
  400.  
  401.             eptr = MSG_TXT (M_BAD_ERRORLEVEL);
  402.             goto bad_line;
  403.  
  404.         case 'f':                /* Forced event */
  405.             p = skip_to_blank (p);
  406.             e.behavior |= MAT_FORCED;
  407.             break;
  408.  
  409.         case 'h':                /* hi-priority crash */
  410.             p = skip_to_blank (p);
  411.             e.behavior |= MAT_HIPRICM;
  412.             break;
  413.  
  414.         case 'k':                /* no #CM event */
  415.             p = skip_to_blank (p);
  416.             e.behavior |= MAT_NOCM;
  417.             break;
  418.  
  419.         case 'l':                /* Local only mail */
  420.             ++p;
  421.             e.node_cost = 0;
  422.             if (*p == '=')
  423.             {
  424.                 ++p;
  425.                 if (isdigit (*p))
  426.                 {
  427.                     e.node_cost = atoi (p);
  428.                 }
  429.             }
  430.             else if (*p == '>')
  431.             {
  432.                 ++p;
  433.                 if (isdigit (*p))
  434.                 {
  435.                     e.node_cost = -atoi (p) - 1;
  436.                 }
  437.             }
  438.             else if (*p == '<')
  439.             {
  440.                 ++p;
  441.                 if (isdigit (*p))
  442.                 {
  443.                     e.node_cost = atoi (p) - 1;
  444.                 }
  445.             }
  446.             p = skip_to_blank (p);
  447.             e.behavior |= MAT_LOCAL;
  448.             break;
  449.  
  450.         case 'm':                /* Mailable 24 hours */
  451.             p = skip_to_blank (p);
  452.             e.behavior |= MAT_NOMAIL24;
  453.             break;
  454.  
  455.         case 'n':                /* No requests */
  456.             p = skip_to_blank (p);
  457.             e.behavior |= MAT_NOREQ;
  458.             break;
  459.  
  460.         case 'q':                /* Mail Queued size */
  461.             ++p;
  462.             if (*p == '=')
  463.             {
  464.                 ++p;
  465.                 if (isdigit (*p))
  466.                 {
  467.                     e.mailqsize = (unsigned long) atol (p);
  468.                     p = skip_to_blank (p);
  469.                     break;
  470.                 }
  471.             }
  472.             eptr = MSG_TXT (M_BAD_QSIZE);
  473.             goto bad_line;
  474.  
  475.         case 'r':                /* Receive only */
  476.             p = skip_to_blank (p);
  477.             e.behavior |= MAT_NOOUT;
  478.             break;
  479.  
  480.         case 's':                /* Send only */
  481.             p = skip_to_blank (p);
  482.             e.behavior |= MAT_OUTONLY;
  483.             break;
  484.  
  485.         case 't':                /* Tries */
  486.             ++p;
  487.             if (sscanf (p, "=%d,%d", &j1, &j2) != 2)
  488.             {
  489.                 eptr = MSG_TXT (M_BAD_TRIES);
  490.                 goto bad_line;
  491.             }
  492.             else
  493.             {
  494.                 if ((j1 > 8) || (j1 < 1))
  495.                 {
  496.                     eptr = MSG_TXT (M_BAD_TRIES);
  497.                     goto bad_line;
  498.                 }
  499.                 e.with_connect = j1;
  500.                 e.no_connect = j2;
  501.             }
  502.             p = skip_to_blank (p);
  503.             break;
  504.  
  505.         case 'x':                /* No outbound requests here */
  506.             p = skip_to_blank (p);
  507.             e.behavior |= MAT_NOOUTREQ;
  508.             break;
  509.  
  510.         case '$':
  511.             p = skip_to_blank (p);
  512.             e.behavior |= MAT_KILLBAD;
  513.             break;
  514.  
  515.         default:                /* Error condition */
  516.             eptr = MSG_TXT (M_INDECIPHERABLE);
  517.             goto bad_line;
  518.         }
  519.     }
  520.  
  521.     /* Save it in the array  of pointers */
  522.     e_ptrs[num_events++] = e;
  523.  
  524.     /* Return that everything is cool */
  525.     return (0);
  526.  
  527. err:
  528.  
  529.     eptr = MSG_TXT (M_BAD_DAY);
  530.  
  531. bad_line:
  532.  
  533.     (void) printf (eptr, e_line);
  534.     return (1);
  535. }
  536.