home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ecron210.lha / EZCrond < prev    next >
Encoding:
Text File  |  1997-03-09  |  11.0 KB  |  354 lines
  1. /* $VER: EZCrond by Jim Hines v2.10 ©1995-1997 All Rights Reserved
  2. ** Thanks must go to Gene Heskett for his help in coding some functions.
  3. */
  4.  
  5.     csi='9b'x
  6.     Ital=csi'3m'
  7.     bold=csi'1m'
  8.     norm=csi'0m'
  9.     black=csi'31m'
  10.     white=csi'32m'
  11.     blue=csi'33m'
  12.     LF = '0a'x
  13.     
  14. /* ========END VARABLES == */
  15.  
  16.     arg command .
  17.  
  18.     if ~show('L','rexxsupport.library') then
  19.         call addlib('rexxsupport.library',0,-30)
  20.  
  21. /* Read the prefs files for later reference */
  22.     if ~exists('EZCron:prefs/config.prefs') then configfile = 't:cron.config'
  23.     else do
  24.         open(configprefs, 'EZCron:Prefs/config.prefs', 'R')
  25.         configfile = readln(configprefs)
  26.         close(configprefs)
  27.     end
  28.  
  29.     if exists('s:cron.config') then address command 'copy s:cron.config' configfile
  30.     else do
  31.         call rtezrequest('A config file does NOT exist.'||LF||'Use EZCronPrefs to create one.', "Okay",'EZCron Error',)
  32.         exit
  33.     end
  34.  
  35.     if command = 'START' then call startrtn()
  36.     if command = 'STOP' | command = 'QUIT' then call stoprtn()
  37.     if command ~= 'START' | command ~= 'STOP' | command ~= 'QUIT' then do
  38.         say ''
  39.         say 'ERROR: Unknown option' command
  40.         exit
  41.     end
  42.  
  43. stoprtn:
  44.     if command = "STOP" then do
  45.         if showlist('P', 'EZCROND') then do
  46.             say 'Exiting EZCron... This may take several seconds.'
  47.             address 'EZCROND' STOP
  48.             exit
  49.         end
  50.     end
  51.     else
  52.         say 'EZCron is not running.'
  53.         exit
  54.     end
  55.  
  56.     /* =======LOOP== */
  57. startrtn:
  58.     RC = showlist('P', 'EZCROND')
  59.     if RC = 1 then do
  60.         say 'EZCron is Already Running.'
  61.         exit
  62.     end
  63.     drop rc
  64.  
  65.     openport('EZCROND')
  66.  
  67.     /* =======Look for EZCronPrefs and signal. ==*/
  68.     if showlist('P', 'EZCRONPREFS') then do
  69.         call delay(50)
  70.         address "EZCRONPREFS" refresh
  71.     end
  72.  
  73.     SIGNAL on HALT
  74.  
  75.     /* =======PARSE CONFIG FILE & TIMER SECTION == */
  76.     do forever
  77.         sec = right(time('N'),2)   /* get seconds */
  78.         sec2 = 60 - sec        /* 60 (seconds) minus sec) */
  79.         delayvar = sec2 * 50   /* sec2 x 50 ticks or 1 second sets the delay time */
  80.         LT = delayvar / 50
  81.         LTime = 60 - LT
  82.         call delay(delayvar)    /* 3000 would be equal to 1 minute */
  83.  
  84.         pkt = getpkt('EZCROND')
  85.         if pkt ~= '0000 0000'x then call aport(pkt)
  86.  
  87.         clock = time('N')                /* 22:58:00 */
  88.         clock2 = LEFT(clock,5)            /* 22:58 */
  89.         date = Date(USA)               /*   08/04/92  */
  90.         date2 = Date(S)                /*   19920804  */
  91.         date3 = Date(W, date2, 'S')    /*   Friday    */
  92.  
  93.         event. = 0
  94.  
  95.         if ~open(cronfile, configfile,'READ') then do
  96.             exit 20
  97.         end
  98.  
  99.         errors = 0
  100.  
  101.         do until eof(cronfile)
  102.             /* Grab the line, parse the event and ignore the comments */
  103.             linein = readln(cronfile)
  104.             parse var linein line ';'
  105.             parse var line line '!'
  106.             next = event.0 + 1
  107.  
  108.             parse var line event.next.command','event.next.pargs','event.next.time',',
  109.             event.next.date','event.next.startdate','event.next.enddate',',
  110.             event.next.rng1','event.next.rng2','event.next.sfx','event.next.txt',',
  111.  
  112.             event.next.date = translate(event.next.date, 'abcdefghijklmnopqrstuvwxyz',,
  113.                             'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  114.                             /* TRANSLATES THE DATE TO LOWERCASE IF NOT NUMERIC */
  115.             event.next.time = translate(event.next.time, 'abcdefghijklmnopqrstuvwxyz',,
  116.                             'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  117.                             /* TRANSLATES THE TIME TO LOWERCASE IF NOT NUMERIC */
  118.             select
  119.                 when event.next.command = "" then iterate
  120.                 when event.next.command = "" then do
  121.                     errors =  1
  122.                     iterate
  123.                 end
  124.             otherwise event.0 = next
  125.             end
  126.         end  /* end of the eof loop */
  127.         call close(cronfile)
  128.  
  129.     /* ======== END OF FILE PARSE SECTION == */
  130.  
  131.         do i = 1 to event.0
  132.             parse var clock2 ahrs ':' amin           /* Actual Hrs and Mins */
  133.             parse var event.i.time ehrs':'emin      /* Event Hrs and Mins */
  134.             parse var date amm'/'add'/'ayy            /* Actual mm dd yy */
  135.             parse var event.i.date emm'/'edd'/'eyy  /* Event mm dd yy */
  136.             parse var event.i.startdate sdmm'/'sddd'/'sdyy  /* Event Startdate mm dd yy */
  137.             parse var event.i.enddate edmm'/'eddd'/'edyy  /* Event Enddate mm dd yy */
  138.  
  139.     /* ======= Misc Routines == */
  140.             if event.i.pargs = '-' then event.i.pargs = ''
  141.             if event.i.sfx = '-' then event.i.sfx = ''
  142.             if event.i.txt = '-' then event.i.txt = ''
  143.  
  144.     /* ======= Every Minute Routine == */
  145.             if event.i.time = 'minute' then event.i.time = clock2
  146.  
  147.     /* ======= Every Five Minute Routine ==  */
  148.             if event.i.time = 'five_min' then do
  149.                 fiveresult = amin / 5
  150.                 parse var fiveresult intmin '.' decsec
  151.             end
  152.             if decsec = '' then event.i.time = clock2
  153.             drop fiveresult intmin decsec
  154.  
  155.     /* ======= Every Ten Minute Routine ==  */
  156.             if event.i.time = 'ten_min' then do
  157.                 tenresult = amin / 10
  158.                 parse var tenresult intmin '.' decsec
  159.             end
  160.             if decsec = '' then event.i.time = clock2
  161.             drop tenresult intmin decsec
  162.  
  163.     /* ======= Quarterly Routine == */
  164.             if event.i.time = 'quarterly' then do
  165.                 qresult = amin / 15
  166.                 parse var qresult intmin '.' decsec
  167.             end
  168.             if decsec = '' then event.i.time = clock2
  169.             drop qresult intmin decsec
  170.  
  171.     /* ======= Every Thirty Minute Routine ==  */
  172.             if event.i.time = 'thirty_min' then do
  173.                 if amin = '00' | amin = '30' then event.i.time = clock2
  174.             end
  175.  
  176.     /* ======= Every Hour Routine == */
  177.             if amin = 00 & event.i.time = 'hourly' then event.i.time = clock2
  178.  
  179.     /* ======= Daily Routine == */
  180.             if event.i.date = 'daily' then event.i.date = date
  181.  
  182.     /* ======= Weekly Routine == */
  183.  
  184.             if event.i.date = 'sunday' & date3 = 'Sunday' then event.i.date = date
  185.             if event.i.date = 'monday' & date3 = 'Monday' then event.i.date = date
  186.             if event.i.date = 'tuesday' & date3 = 'Tuesday' then event.i.date = date
  187.             if event.i.date = 'wednesday' & date3 = 'Wednesday' then event.i.date = date
  188.             if event.i.date = 'thursday' & date3 = 'Thursday' then event.i.date = date
  189.             if event.i.date = 'friday' & date3 = 'Friday' then event.i.date = date
  190.             if event.i.date = 'saturday' & date3 = 'Saturday' then event.i.date = date
  191.  
  192.     /* ======= Weekdays Routine == The 'ol Mon-Fri routine */
  193.             if event.i.date = 'weekdays' & date3 ~= 'Sunday' & date3 ~= 'Saturday'
  194.                 then event.i.date = date
  195.  
  196.     /* ======= Weekend Routine == The ol' Sat & Sun routine */
  197.             if event.i.date = 'weekends' & date3 = 'Saturday' then event.i.date = date
  198.             if event.i.date = 'weekends' & date3 = 'Sunday' then event.i.date = date
  199.  
  200.     /* ======= Monthly Routine == */
  201.             monthevent = event.i.date
  202.             parse var monthevent mth '-' day2
  203.             if mth = 'monthly' then do
  204.                 if day2 = add & event.i.time = clock2 then event.i.date = date
  205.             end
  206.  
  207.     /* =======  4th Fri, 2nd Tue, etc routine == */
  208.             if pos('every', event.i.date, 1) > 0 then do
  209.                  parse var event.i.date var1 '_' num '_' dow  /* every 2 wed */
  210.                 del3 = date(n)   /* 20 Apr 88 */
  211.                 parse var del3 del1 cm del2
  212.                 drop del1 del2 /* dont even need them */
  213.  
  214.                 if cm = 'Jan' then cm = 31;if cm = 'Feb' then cm = 28 /* Will need to be changed for leap */
  215.                 if cm = 'Mar' then cm = 31;if cm = 'Apr' then cm = 30
  216.                 if cm = 'May' then cm = 31;if cm = 'Jun' then cm = 30
  217.                 if cm = 'Jul' then cm = 31;if cm = 'Aug' then cm = 31
  218.                 if cm = 'Sep' then cm = 30;if cm = 'Oct' then cm = 31
  219.                 if cm = 'Nov' then cm = 30;if cm = 'Dec' then cm = 31
  220.  
  221.                 countvar = 0
  222.                 do z = 1 to cm
  223.                     currdate = date(s)                /* 19951221 year month day     */
  224.                     yearmonth = left(currdate, 6)    /* 199512     year month        */
  225.  
  226.                     if z < 10 then do
  227.                         zdate = yearmonth'0'z   /* 19951201 Add the 0 back for single digit days*/
  228.                         newz = '0'z
  229.                     end
  230.                     else do
  231.                         zdate = yearmonth''z   /* 19951231 */
  232.                         newz = z
  233.                     end
  234.  
  235.                     myday = Date(W, zdate, 'S')   /* Friday   */
  236.                     myday = left(myday, 3)         /* Fri         */
  237.                     myday = translate(myday, 'abcdefghijklmnopqrstuvwxyz',,
  238.                                     'ABCDEFGHIJKLMNOPQRSTUVWXYZ') /* fri */
  239.  
  240.                     if myday = dow then countvar = countvar + 1
  241.                     if myday = dow & countvar = num then do
  242.                         year = left(zdate, 4)             /* 1995     */
  243.                         year2 = right(year, 2)             /*   95     */
  244.                         month = right(zdate, 4)            /*     1221 */
  245.                         month2 = left(month, 2)         /*       12    */
  246.                         event.i.date = month2'/'newz'/'year2
  247.                         leave
  248.                     end
  249.                 end
  250.             end
  251.  
  252.  
  253.     /* ======= Special Time/Date Routine AF == */
  254.             if ehrs = '##' | emin = '##' then do
  255.                 if ehrs = '##' then ehrs = ahrs
  256.                 if emin = '##' then emin = amin
  257.                 event.i.time = ehrs':'emin
  258.             end
  259.  
  260.             if emm = '##' | edd = '##' | eyy = '##' then do
  261.                 if emm = '##' then emm = amm
  262.                 if edd = '##' then edd = add
  263.                 if eyy = '##' then eyy = ayy
  264.                 event.i.date = emm'/'edd'/'eyy
  265.             end
  266.  
  267.     /* ======= Time Range routine == */
  268.             if event.i.rng1 ~= '--:--' & event.i.rng2 ~= '--:--' then do
  269.                 strng = event.i.rng1
  270.                 parse var strng sthrs':'stmin
  271.                 strngdrop = 60 * sthrs
  272.                 strng = strngdrop + stmin
  273.                 endrng = event.i.rng2
  274.                 parse var endrng edhrs':'edmin
  275.                 edrngdrop = 60 * edhrs
  276.                 edrng = edrngdrop + edmin
  277.                 currtim = time(m) /* current time in minutes since midnight */
  278.                 if currtim >= strng then a = 1
  279.                 if currtim <= edrng then b = 1
  280.                 if a = 1 & b = 1 then runit = 1
  281.                 if runit ~= 1 then event.i.time = void_event
  282.                 drop strng edrng currtim a b runit
  283.             end
  284.  
  285.     /* ======= Date Range Routine == */
  286.             if event.i.startdate ~= '--/--/--' & event.i.enddate ~= '--/--/--' then do
  287.                 if pos('##', event.i.startdate, 1) > 0 | pos('##', event.i.enddate, 1) > 0 then do
  288.                     /* Start Range */
  289.                     if sdmm = '##' then sdmm = amm
  290.                     if sddd = '##' then sddd = add
  291.                     if sdyy = '##' then sdyy = ayy
  292.                     event.i.startdate = sdmm'/'sddd'/'sdyy
  293.  
  294.                     /* End Range */
  295.                     if edmm = '##' then edmm = amm
  296.                     if eddd = '##' then eddd = add
  297.                     if edyy = '##' then edyy = ayy
  298.                     event.i.enddate = edmm'/'eddd'/'edyy
  299.                 end
  300.  
  301.                 a = b = 0
  302.                 sd = event.i.startdate
  303.                 edt = event.i.enddate
  304.                 parse var sd tmm'/'tdd'/'tyy
  305.                 sd = date(c,'19'tyy''tmm''tdd,s)
  306.                 parse var edt tmm'/'tdd'/'tyy
  307.                 edt = date(c,'19'tyy''tmm''tdd,s)
  308.                 currdt = date(usa)
  309.                 parse var currdt tmm'/'tdd'/'tyy
  310.                 currdt = date(c,'19'tyy''tmm''tdd,s)
  311.                 if currdt < sd then a = 1
  312.                 if currdt >= edt then b = 1
  313.                 if a = 1 | b = 1 then event.i.date = void_event
  314.                 drop sd edt currdt tmm tdd tyy a b
  315.             end
  316.     
  317.     /* ======= Final Routine == */
  318.  
  319.                if event.i.time = clock2 & event.i.date = date then
  320.                 address command 'run >NIL:' event.i.command event.i.pargs
  321.  
  322.             if event.i.time = clock2 & event.i.date = date & event.i.sfx ~= '' then do
  323.                 if exists('EZCron:prefs/sfx.prefs') then do
  324.                     open(sfxconfig, 'EZCron:prefs/sfx.prefs', 'r')
  325.                     sfxplayer = readln(sfxconfig)
  326.                     close(sfxconfig)
  327.                     address command 'run >nil:' sfxplayer event.i.sfx
  328.                 end
  329.             end
  330.             if event.i.time = clock2 & event.i.date = date & event.i.txt ~= "" then do
  331.                 address command 'run >nil: rx >nil: ezcron:rexx/Reminder.rexx' event.i.txt /*This calls the external rexx proggy for the event display */
  332.                 if showlist(h,SPEAK) then do
  333.                     address command 'echo' '"'event.i.txt'"' '>speak:'
  334.                 end
  335.             end
  336.             if event.i.time = clock2 & event.i.date = date
  337.             then event.i.date = 'Finished with Event'
  338.         end       /* end of 'do i = 1 to event.0' */
  339.     end             /* end of do forever */
  340.  
  341. /* ======== CLEANUP == */
  342.     if event.0 = 0 then exit
  343.     options failat 300
  344.  
  345. /* ======== Arexx Port Message Check == */
  346. aport:
  347.     Cmd = getarg(Pkt)
  348.     if Cmd = 'STOP' then do
  349.         call reply(Pkt, 0)
  350.         call closeport('EZCROND')
  351.         if showlist(P, 'EZCRONPREFS') then address 'EZCRONPREFS' refresh
  352.         exit
  353.     end
  354.