home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ecron210.lha / EZCron < prev    next >
Encoding:
Text File  |  1997-03-09  |  21.5 KB  |  793 lines
  1. /* $VER: EZCron v2.10 by Jim Hines. ©1995-97 All Rights Reserved.
  2. ** EZCron is The Graphic User Interface for EZCrond, ©1994-1997 Jim Hines.
  3. ** Thanks must go to Gene Heskett for his help in coding some functions.
  4. ** Internet email me at <hines_j@iolinc.net>
  5. */
  6.  
  7.     LF= '0a'x
  8.     defaultevent = 'rx,ezcron:rexx/TalkingClock.rexx,hourly,daily,--/--/--,--/--/--,--:--,--:--,-,-,'
  9.  
  10.     options results
  11.  
  12.     if ~show("L","rexxsupport.library") then
  13.            call addlib("rexxsupport.library", 0, -30)
  14.     
  15.     if ~show('L','rexxreqtools.library') then
  16.            call addlib("rexxreqtools.library", 0, -30, 0)
  17.  
  18.     if ~showlist( 'p', 'VAREXX' ) then do
  19.            address command 'run >nil: varexx'
  20.         call delay(25)
  21.         waitforport
  22.         waitforport
  23.     end
  24.  
  25.     address VAREXX
  26.     call openport(EZCRONPREFS)
  27.     load 'EZCron:EZC.gui EZCRONPREFS'
  28.     host = result
  29.     address value host
  30.     show editwindow
  31.     set startdate enddate disable
  32.  
  33. startup:
  34.     if showlist('P', 'EZCROND') then do
  35.         settext text '"Active"'
  36.     end
  37.     if ~showlist('P', 'EZCROND') then do
  38.         settext text '"Inactive"'
  39.     end
  40.  
  41. /* Read the prefs files for later reference */
  42.     if ~exists('EZCron:prefs/con.prefs') then convar = '>CON:50/100/400/100/CronTestEvent/Close'
  43.     else do
  44.         open(confile, 'EZCron:Prefs/con.prefs', 'R')
  45.         convar = readln(confile)
  46.         close(confile)
  47.     end
  48.  
  49.     if ~exists('EZCron:prefs/config.prefs') then configfile = 't:cron.config'
  50.     else do
  51.         open(configprefs, 'EZCron:Prefs/config.prefs', 'R')
  52.         configfile = readln(configprefs)
  53.         close(configprefs)
  54.     end
  55.  
  56. /* Create it if cron.config ~exists */
  57.     if ~exists('s:cron.config') then do
  58.         call message('Config file not found. Creating a new one.')
  59.         open(cronfile, 's:cron.config', 'w')
  60.         writeln(cronfile, defaultevent)
  61.         close(cronfile)
  62.     end
  63.  
  64. /* make sure it's not empty */
  65.     if exists('s:cron.config') then do
  66.         open(cronfile, 's:cron.config', 'R')
  67.         if readln(cronfile) = '' then do
  68.             call message('Your config contains no entries. Creating one.')
  69.             writeln(cronfile, defaultevent)
  70.         end
  71.     close(cronfile)
  72.     end
  73.     drop defaultevent
  74.  
  75.     address command 'copy s:cron.config' configfile
  76.  
  77. eventparse:
  78.     address value host  /* this is so the correct window's buttons work after closing other windows */
  79.     drop result ev et rng1 rng2 ed sd edt arg1 sfx txt
  80.  
  81.     do forever
  82.         setlist selectevent clear
  83.         config = 's:cron.config'    /* Name of file for reading events from */
  84.         event. = 0
  85.         
  86.         if ~open(cronfile, config,'R') then do
  87.             call message('Config file not found. Creating a new one.')
  88.             call AC_New()
  89.         end
  90.         
  91.         errors = 0
  92.         do until eof(cronfile)
  93.             linein = readln(cronfile)
  94.             parse var linein line ';'
  95.             next = event.0 + 1
  96.     
  97.             parse var line event.next.command','event.next.pargs','event.next.time',',
  98.             event.next.date','event.next.startdate','event.next.enddate',',
  99.             event.next.rng1','event.next.rng2','event.next.sfx','event.next.txt','
  100.  
  101.             event.next.date = translate(event.next.date, 'abcdefghijklmnopqrstuvwxyz',,
  102.                             'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  103.                             /* THE ABOVE TRANSLATES THE DATE TO LOWERCASE IF NOT NUMERIC */
  104.  
  105.             event.next.time = translate(event.next.time, 'abcdefghijklmnopqrstuvwxyz',,
  106.                             'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  107.                             /* THE ABOVE TRANSLATES THE TIME TO LOWERCASE IF NOT NUMERIC */
  108.  
  109.  
  110.             event.next.txt = strip(event.next.txt) /* This Gets rid of the leading & trailing spaces in the LAST variable
  111.                                                       If new fields are added, the variable must be changed to reflect this */
  112.     
  113.             if line ~= '' then do  /* This keeps the commented out lines from appearing */
  114.                 setlist selectevent event.next.command
  115.             end
  116.         
  117.             select
  118.                 when event.next.command = '' then iterate
  119.                 when event.next.command = '' then do
  120.                     iterate
  121.                 end
  122.                 otherwise event.0 = next
  123.             end
  124.         end
  125.         settext eventcount event.0  /* for event counter */
  126.         call close(cronfile)
  127.         call waitforpkt()
  128.     end
  129.  
  130. /* ===== END OF PARSE  */
  131.  
  132. waitforpkt:
  133.     do forever
  134.         call waitpkt('EZCRONPREFS')    /* Wait for a message from Varexx */
  135.         packet = getpkt('EZCRONPREFS')        /* Get the message */
  136.  
  137.            if packet ~= '00000000'x then do /* This is not a null message */
  138.             call reply(packet, 0)  /* FOR AREXX MESSAGES */
  139.             class  = getarg(packet)    /* Get the information about the message */
  140.             type = word(class, 1)
  141.             msg = substr(class, 12,100)
  142.  
  143.             if class = eventtype then call eventtype()
  144.             if class = closewindow then call exiting()
  145.             if class = quit then call exiting()
  146.             if class = prefsgad then call prefsgad()
  147.             if class = edit then call edit()
  148.             if class = testevent then call testevent()
  149.             if class = AC_New then call AC_New()
  150.             if class = arg1gad then call arggad()
  151.             if class = sfxgad then call sfxgad()
  152.             if class = datefields then call mydate()
  153.             if class = timefields then call mytime()
  154.             if class = purgegad then call purge()
  155.             if class = indis then call indis()
  156.             if class = update then call update()
  157.             if class = addevent then call addevent()
  158.             if class = addefault then call addefault()
  159.             if class = delete_event then call deleteevent()
  160.             if class = ac_toggle then call ac_toggle()
  161.             if class = clockon then call clockon()
  162.             if class = refresh then call refresh()
  163.             if class = about then call about()
  164.             if class = copy then call copy()
  165.             if msg ~= '' & type = 'SELECTEVENT' then call selectevent()
  166.         end
  167.     end
  168.     return
  169.  
  170. /* SUBROUTINES */
  171.  
  172. copy:
  173.     address command 'copy s:cron.config s:cron.config.bak'
  174.     return
  175.  
  176. about:
  177.     call rtezrequest('EZCron v2.10'||LF||'©1995-1997 Jim Hines'||LF||'EZCron is emailware.'||LF||'If you use it, please lemme know.','Alright','About EZCron','rtez_flags=ezreqf_centertext rt_reqpos = reqpos_centerscr',)
  178.     return
  179.  
  180. eventtype:
  181.     call rtezrequest("Please choose what type"||LF||"of  Event you would like.", "Program|Cancel|Reminder", ,)
  182.     if rtresult == 1 then call getfile()
  183.     if rtresult == 2 then call waitforpkt()
  184.     if rtresult == 0 then call txtgad
  185.     return
  186.  
  187. clockon:
  188.     if exists('ezcron:prefs/clock.prefs') then do
  189.         open(clockpref, 'EZCron:Prefs/clock.prefs', 'R')
  190.         clockvar = readln(clockpref)
  191.         close(clockpref)
  192.         if clockvar = 'DIGITAL' then clockvar = 'digital format 2'
  193.         if clockvar = 'ANALOG' then clockvar = 'seconds'
  194.     end
  195.     else clockvar = 'seconds'
  196.     address command 'run <>nil: clock' clockvar
  197.     return
  198.  
  199. AC_Toggle:
  200.     if ~showlist('P', 'EZCROND') then do
  201.         address command 'run <>nil: rx EZCron:EZCronD start'
  202.     end    
  203.     else
  204.         if showlist('P', 'EZCROND') then do    
  205.         address command 'run <>nil: rx EZCron:EZCronD stop'
  206.         settext text '"Exiting..."'
  207.     end
  208.     return
  209.  
  210. edit:
  211.     if ~exists('EZCron:prefs/txted.prefs') then address command 'ed s:cron.config'
  212.     if exists('EZCron:prefs/txted.prefs') then do
  213.         open(edconfig, 'EZCron:prefs/txted.prefs', 'r')
  214.         linein = readln(edconfig)
  215.         address command linein 's:cron.config'
  216.         close(edconfig)
  217.     end
  218.     address command 'copy s:cron.config' configfile
  219.     call eventparse()
  220.  
  221. testevent:
  222.     if exists('EZCron:prefs/sfx.prefs') then do
  223.         open(sfxconfig, 'EZCron:prefs/sfx.prefs', 'r')
  224.         sfxplayer = readln(sfxconfig)
  225.         close(sfxconfig)
  226.     end
  227.  
  228.     read event
  229.     ev = RESULT
  230.     if left(ev,1) = '!' then ev = substr(ev,2,256)
  231.     
  232.     read arg1
  233.     arg1 = RESULT
  234.     if arg1 = '-' then arg1 = ''
  235.     
  236.     read sfx
  237.     fx = RESULT
  238.     if fx = '-' then fx = ''
  239.     
  240.     read txtstr
  241.     tx = result
  242.                 
  243.     if ev ~= textreminder then do
  244.         address command 'run' convar ev arg1
  245.     end
  246.     
  247.     if fx ~= '' then do
  248.         address command 'run >nil:' sfxplayer fx
  249.     end
  250.     
  251.     if ev = TEXTREMINDER then do
  252.         address command 'run >nil: rx >nil: ezcron:rexx/Reminder.rexx' tx
  253.         if showlist(h,SPEAK) then do
  254.             address command 'echo' '"'tx'"' '>speak:'
  255.         end
  256.     end
  257.     drop result ev et ed arg1 rng1 rng2 sfx txt
  258.     return    
  259.  
  260. selectevent:
  261.     read selectevent NUMBER
  262.     en = RESULT  /* en is the event number */
  263.  
  264.     settext event msg
  265.     set arg1 arg1gad enable
  266.     if msg = 'TEXTREMINDER' | msg = '!TEXTREMINDER' then do
  267.         set arg1 arg1gad disable
  268.     end
  269.     a = 0
  270.     if pos('##', event.en.date, 1) > 0 then do
  271.         a = 1
  272.     end
  273.     settext event_time event.en.time
  274.     settext event_date event.en.date
  275.     settext rng1 event.en.rng1
  276.     settext rng2 event.en.rng2
  277.     if event.en.date = 'range' | event.en.date = 'daily' | a = 1 then do
  278.         set startdate enddate enable
  279.     end
  280.     else do
  281.         set startdate enddate disable
  282.     end
  283.     settext startdate event.en.startdate
  284.     settext enddate event.en.enddate
  285.     settext arg1 event.en.pargs
  286.     settext rng1 event.en.rng1
  287.     settext rng2 event.en.rng2
  288.     settext sfx event.en.sfx
  289.     settext txtstr event.en.txt
  290.     drop a
  291.     return
  292.  
  293. getfile:
  294.     set arg1 arg1gad enable
  295.     clock = time('N')
  296.     clock2 = LEFT(clock,5)
  297.     filename = rtfilerequest(, , "Pick a File To Run",OK)
  298.     if filename = '' then call eventparse() /* Get out of routine */
  299.     settext event filename
  300.     settext event_time clock2
  301.     settext rng1 '--:--'
  302.     settext rng2 '--:--'
  303.     settext event_date Date(USA)
  304.     settext startdate '--/--/--'
  305.     settext enddate '--/--/--'
  306.     settext arg1 '-'
  307.     settext sfx '-'
  308.     settext txtstr '-'
  309.     return
  310.  
  311. AC_New:
  312.     if exists('EZCron:prefs/defev.prefs') then do
  313.         open(prefs, 'EZCron:prefs/defev.prefs', 'r')
  314.         defevent = readln(prefs)
  315.         close(prefs)
  316.     end
  317.     if ~exists('s:cron.config') then do
  318.         open(MkCfg, 's:cron.config',W)
  319.         writeln(MkCfg, defevent)
  320.         close(MkCfg)
  321.     end
  322.     else 
  323.     call rtezrequest("A cron.config file already exists."||LF||"Do you wish to overwrite it?.", "_Yes|_No", , "rt_reqpos = reqpos_centerscr")
  324.     if rtresult == 1 then do
  325.         if exists('s:cron.config.old') then address command 'delete s:cron.config.old'
  326.         address command 'rename s:cron.config s:cron.config.old'
  327.         open(MkCfg, 's:cron.config','w')
  328.         writeln(MkCfg, defevent)
  329.         close(MkCfg)
  330.     end
  331.     address command 'copy s:cron.config' configfile
  332.     call eventparse()
  333.     return
  334.     
  335. arggad:
  336.     argname = rtfilerequest(, , "Pick a file argument",OK)
  337.     if argname = '' then argname = '-'
  338.     settext arg1 argname
  339.     return
  340.  
  341. sfxgad:
  342.     read sfx
  343.     sfxtxt = result
  344.     parse var sfxtxt device ':'
  345.     if device = '-' then device = 'sys'
  346.     argname = rtfilerequest(device':',, "Pick a soundfile",OK,)
  347.     if argname = '' then argname = '-'
  348.     settext sfx argname
  349.     return    
  350.  
  351. txtgad:
  352.     read txtstr
  353.     txt = result
  354.     if txt = '-' then txt = '' 
  355.     argname = rtgetstring(txt,'Enter Reminder String', 'Reminder Requester', ,)
  356.     if argname = '' then call eventparse()
  357.     clock = time('N')
  358.     clock2 = LEFT(clock,5)
  359.     settext txtstr argname
  360.     settext event TextReminder
  361.     settext event_time clock2
  362.     settext event_date Date(USA)
  363.     settext startdate '--/--/--'
  364.     settext enddate '--/--/--'
  365.     set arg1 startdate enddate disable
  366.     settext arg1 '-'
  367.     settext sfx '-'
  368.     drop txt
  369.     return
  370.  
  371. prefsgad:
  372.     call openport(PREFSWINPORT)
  373.     spawn PREFSWINPORT
  374.     host2 = result
  375.     address value host2
  376.     show prefswindow
  377.     call prefs()
  378.     return
  379.  
  380. mydate:
  381.     call openport(DATEWINPORT)
  382.     spawn DATEWINPORT
  383.     host3 = result
  384.     address value host3
  385.     show datewindow
  386.     call datefields()
  387.     return
  388.  
  389. mytime:
  390.     call openport(TIMEWINPORT)
  391.     spawn TIMEWINPORT
  392.     host4 = result
  393.     address value host4
  394.     show timewindow
  395.     call timefields()
  396.     return
  397.  
  398. purge:
  399.     address command 'copy s:cron.config s:cron.config.old'
  400.     address command 'delete s:cron.config'
  401.     open(dfile, 's:cron.config', 'W') /* create it again*/
  402.     close(dfile)
  403.  
  404.     do i = 1 to event.0
  405.         if event.i.date = 'range' then event.i.date = event.i.enddate
  406.         parse var event.i.date month '/' day '/' year
  407.                     
  408.         if day ~= '' & if year ~= '' then do 
  409.             sortdate = '19'year''month''day
  410.             eventdate = date('c',sortdate,'s')        /* number of days since..*/
  411.             currentdate = date(s) /* 19951221 */
  412.             sortcurrent = date('c', currentdate, 's') /* number of days since..*/
  413.             a = sortcurrent-eventdate
  414.             if a > 0 then event.i.command = delete  /* this are the files you DONT want to write */
  415.         end
  416.  
  417.         if event.i.command ~= delete then do
  418.             open(dfile, 's:cron.config', 'a')
  419.             writeln(dfile, event.i.command','event.i.pargs','event.i.time','event.i.date','event.i.startdate','event.i.enddate','event.i.rng1','event.i.rng2','event.i.sfx','event.i.txt',')
  420.             drop result
  421.         end
  422.         close(dfile)
  423.         address command 'copy s:cron.config' configfile
  424.         drop a
  425.     end
  426.     call eventparse()
  427.     return
  428.     
  429. indis: /* Enable/Disable event */
  430.     read event
  431.     ev = result
  432.  
  433.     if left(ev,1) = '!' then do
  434.         ev = substr(ev,2,256) /* start with 2nd char and go 256 deep */
  435.         settext event ev
  436.         class = update
  437.     end
  438.     else do
  439.         settext event '!'ev
  440.         class = update
  441.     end
  442.     return
  443.  
  444. update: /* Modify */
  445.     address command 'copy s:cron.config s:cron.config.old'
  446.     address command 'delete >NIL: s:cron.config'
  447.     open(dfile, 's:cron.config', 'W') /* create it again*/
  448.     close(dfile)
  449.  
  450.     read event
  451.     ev = result
  452.     if ev = '' then call message('No Event Field.')
  453.     if ev = '' then call eventparse()
  454.     if ev = 'None Selected' then call message('No Event Field.')
  455.     if ev = 'None Selected' then call eventparse()
  456.     read event_time
  457.     et = result
  458.     if et = '' then    call message('No Time Field.')
  459.     read event_date
  460.     ed = result
  461.     if ed = '' then call message('No Date Field.')
  462.     read startdate
  463.     sd = result
  464.     if sd = '' then sd = '--/--/--'
  465.     read enddate
  466.     edt = result
  467.     if edt = '' then edt = '--/--/--'
  468.     read arg1
  469.     arg = result
  470.     if arg = '' then arg = '-'
  471.     read rng1
  472.     trng1 = result
  473.     if trng1 = '' then trng1 = '--:--'
  474.     read rng2
  475.     trng2 = result
  476.     if trng2 = '' then trng2 = '--:--'
  477.     read sfx
  478.     fx = result
  479.     if fx = '' then fx = '-'
  480.     read txtstr
  481.     rem = result
  482.     if rem = '' then rem = '-'    
  483.  
  484.     read selectevent var h
  485.     open(dfile, 's:cron.config', 'a')
  486.     do i = 1 to h.count
  487.         if en ~= i then do
  488.             writeln(dfile, event.i.command','event.i.pargs','event.i.time','event.i.date','event.i.startdate','event.i.enddate','event.i.rng1','event.i.rng2','event.i.sfx','event.i.txt',')
  489.             drop result
  490.         end
  491.         else do
  492.             writeln(dfile, ev','arg','et','ed','sd','edt','trng1','trng2','fx','rem',')
  493.         end
  494.     end
  495.     close(dfile)
  496.     drop result ev et ed sd edt arg1 rng1 rng2 sfx txt
  497.     address command 'copy s:cron.config' configfile
  498.     call eventparse()
  499.  
  500. addevent:
  501.     read event
  502.     ev = result
  503.     if ev = '' then call message('No Event Field.')
  504.     if ev = 'None Selected' then call message('No Event Field.')
  505.                 
  506.     read event_time
  507.     et = result
  508.     if et = '' then    call message('No Time Field.')
  509.     
  510.     read event_date
  511.     ed = result
  512.     if ed = '' then call message('No Date Field.')
  513.  
  514.     read startdate
  515.     sd = result
  516.     if sd = '' then sd = '--/--/--'
  517.  
  518.     read enddate
  519.     edt = result
  520.     if edt = '' then edt = '--/--/--'
  521.         
  522.     read arg1
  523.     arg1 = result
  524.     if arg1 = '' then arg1 = '-'
  525.  
  526.     read rng1
  527.     rng1 = result
  528.     if rng1 = '' then rng1 = '--:--'
  529.  
  530.     read rng2
  531.     rng2 = result
  532.     if rng2 = '' then rng2 = '--:--'
  533.     
  534.     read sfx
  535.     sfx = result
  536.     if sfx = '' then sfx = '-'
  537.     
  538.     read txtstr
  539.     txt = result
  540.     if txt = '' then txt = '-'
  541.                 
  542.     if ev = '' then call eventparse()
  543.     if ev = 'None Selected' then call eventparse()
  544.     if et = '' then call eventparse()
  545.     if ed = '' then call eventparse()
  546.  
  547.     open(dfile, 's:cron.config', 'a')
  548.     writeln(dfile, ev','arg1','et','ed','sd','edt','rng1','rng2','sfx','txt',')
  549.     close(dfile)
  550.     drop result ev et ed sd edt arg1 rng1 rng2 sfx txt
  551.     address command 'copy s:cron.config' configfile
  552.     call eventparse()
  553.             
  554. addefault:
  555.     read event
  556.     ev = result
  557.     if ev = '' then call message('No Event Field.')
  558.     if ev = 'None Selected' then call message('No Event Field.')
  559.     if ev = '' then call eventparse()
  560.     if ev = 'None Selected' then call eventparse()
  561.     if et = '' then call eventparse()
  562.     if ed = '' then call eventparse()
  563.  
  564.     address command 'delete ezcron:prefs/defev.prefs'
  565.     open(dfile, 'ezcron:prefs/defev.prefs', 'w')
  566.     writeln(dfile, ev','event.en.pargs','event.en.time','event.en.date','event.en.startdate','event.en.enddate','event.en.rng1','event.en.rng2','event.en.sfx','event.en.txt',')
  567.     close(dfile)
  568.     drop result ev 
  569.     call eventparse()
  570.     return
  571.  
  572. deleteevent:
  573.     address command 'copy s:cron.config s:cron.config.old'
  574.     address command 'delete >NIL: s:cron.config'
  575.     open(dfile, 's:cron.config', 'W') /* create it again*/
  576.     close(dfile)
  577.  
  578.     read selectevent var h
  579.     open(dfile, 's:cron.config', 'a')
  580.     do n = 1 to h.count
  581.         if en ~= n then do
  582.             writeln(dfile, h.n','event.n.pargs','event.n.time','event.n.date','event.n.startdate','event.n.enddate','event.n.rng1','event.n.rng2','event.n.sfx','event.n.txt',')
  583.         end
  584.     end
  585.     close(dfile)
  586.     address command 'copy s:cron.config' configfile
  587.     
  588.     settext event 'None Selected'
  589.     settext event_time 'NA'
  590.     settext event_date 'NA'
  591.     settext startdate '--/--/--'
  592.     settext enddate '--/--/--'
  593.     settext arg1 '-'
  594.     settext rng1 '--:--'
  595.     settext rng2 '--:--'
  596.     settext sfx '-'
  597.     settext txtstr '-'
  598.     call eventparse()
  599.  
  600. refresh:
  601.     if showlist('P', 'EZCROND') then do
  602.         settext text '"Active"'
  603.     end
  604.     if ~showlist('P', 'EZCROND') then do
  605.         settext text '"Inactive"'
  606.     end
  607.  
  608.     call eventparse()
  609.     return
  610.  
  611. prefs:
  612.     do forever
  613.         call waitpkt( "PREFSWINPORT" )    /* Wait for a message from Varexx */
  614.         packet = getpkt( "PREFSWINPORT" )        /* Get the message */
  615.     
  616.         if packet ~= '00000000'x then do /* This is not a null message */
  617.             class  = getarg(packet)    /* Get the information about the message */
  618.                type = word(class, 1)
  619.             msg = substr(class, 11,25)
  620.  
  621.             if class = 'CLOSEWINDOW PrefsWindow' then do
  622.                 hide
  623.                 address value host
  624.                 call waitforpkt()
  625.             end
  626.  
  627.             if class = texteditor then do
  628.                 editor = rtfilerequest(, , "Pick a text editor",OK, "rt_reqpos = reqpos_centerscr")
  629.                 if rtresult == 0 then call prefs() /*This get out of the edprefs function */
  630.                 open(edconfig,'EZCron:prefs/txted.prefs', 'w')
  631.                 writeln(edconfig, editor)
  632.                 close(edconfig)
  633.                 drop editor
  634.             end
  635.                 
  636.             if class = sfxplayer then do
  637.                 player = rtfilerequest(, , "Pick a sound player",OK, "rt_reqpos = reqpos_centerscr")
  638.                 if rtresult == 0 then call prefs() /*This get out of the edprefs function */
  639.                 open(edconfig,'EZCron:prefs/sfx.prefs', 'w')
  640.                 writeln(edconfig, player)
  641.                 close(edconfig)
  642.                 drop player
  643.             end
  644.  
  645.             if class = conselect then do
  646.                 console = rtgetstring(convar,'Enter Output String', 'Test Output Requester', ,)
  647.                 if console ~= '' then convar = console
  648.                 if rtresult == 0 then call prefs() /*This get out of the edprefs function */
  649.                 open(conconfig,'EZCron:prefs/con.prefs', 'w')
  650.                 writeln(conconfig, console)
  651.                 close(conconfig)
  652.                 drop console
  653.             end
  654.  
  655.             if class = clockprefs then do
  656.                 call rtezrequest("Pick a clock type.", "Analog|Cancel|Digital", ,)
  657.                 if rtresult == 1 then clockvar = analog
  658.                 if rtresult == 2 then call prefs()
  659.                 if rtresult == 0 then clockvar = digital
  660.                 open(ckconfig,'EZCron:prefs/clock.prefs', 'w')
  661.                 writeln(ckconfig, clockvar)
  662.                 close(ckconfig)
  663.                 drop clockvar
  664.             end
  665.  
  666.             if class = configprefs then do
  667.                 configrt = rtgetstring(configfile,'Enter Path for cron.config', 'cron.config prefs', ,)
  668.                 if configrt ~= '' then configfile = configrt
  669.                 if rtresult == 0 then call prefs() /*This get out of the edprefs function */
  670.                 open(configpref,'EZCron:prefs/config.prefs', 'W')
  671.                 writeln(configpref, configrt)
  672.                 close(configpref)
  673.                 drop configrt
  674.                 call rtezrequest('If you changed the path,'||LF||'you must restart the daemon.','Okay,!','EZCron ERROR','rt_reqpos = reqpos_centerscr rtez_flags=ezreqf_centertext',)
  675.             end
  676.         call prefs()
  677.         end    
  678.     end
  679.  
  680. datefields:
  681.     do forever
  682.         call waitpkt( "DATEWINPORT" )    /* Wait for a message from Varexx */
  683.         packet = getpkt( "DATEWINPORT" )        /* Get the message */
  684.     
  685.         if packet ~= '00000000'x then do /* This is not a null message */
  686.             class  = getarg(packet)    /* Get the information about the message */
  687.                type = word(class, 1)
  688.             msg = substr(class, 11,25)
  689.  
  690.             if class = once then field = Date(USA)
  691.             if class = daily then call daterange('daily')
  692.             if class = monthly then field = 'Monthly-'right(date(S),2)  /* Monthly-13 */ 
  693.             if class = sunday then field = 'Sunday'
  694.             if class = monday then field = 'Monday'
  695.             if class = tuesday then field = 'Tuesday'
  696.             if class = wednesday then field = 'Wednesday'
  697.             if class = thursday then field = 'Thursday'
  698.             if class = friday then field = 'Friday'
  699.             if class = saturday then field = 'Saturday'
  700.             if class = sunday then field = 'Sunday'
  701.             if class = weekdays then field = 'Weekdays'
  702.             if class = weekends then field = 'Weekends'
  703.             if class = every_nn_dd then field = 'Every_3_Fri'
  704.             if class = dspecial then call daterange('##/##/##')
  705.             if class = 'CLOSEWINDOW DateWindow' then do
  706.                 hide
  707.                 address value host
  708.                 call waitforpkt()
  709.                 return
  710.             end
  711.             if field ~= '' then call fillindate()
  712.             return
  713.         end
  714.     end
  715.  
  716. daterange:
  717.     hide
  718.     address value host
  719.     settext event_date arg(1)
  720.     set startdate enddate enable
  721.     settext startdate '--/--/--'    
  722.     settext enddate '--/--/--'
  723.     call waitforpkt()
  724.     return
  725.     
  726. timefields:
  727.     do forever
  728.         call waitpkt( "TIMEWINPORT" )    /* Wait for a message from Varexx */
  729.         packet = getpkt( "TIMEWINPORT" )        /* Get the message */
  730.     
  731.         if packet ~= '00000000'x then do /* This is not a null message */
  732.             class  = getarg(packet)    /* Get the information about the message */
  733.                type = word(class, 1)
  734.             msg = substr(class, 11,25)
  735.  
  736.             if class = timeonce then field = LEFT(time('N'),5)
  737.             if class = minute then field = 'Minute'
  738.             if class = five_min then field = 'Five_Min'
  739.             if class = ten_min then field = 'Ten_Min'
  740.             if class = quarterly then field = 'Quarterly'
  741.             if class = thirty_min then field = 'Thirty_Min'
  742.             if class = hourly then field = 'Hourly'
  743.             if class = shour then field = '##:'substr(time('N'),4,2)
  744.             if class = 'CLOSEWINDOW TimeWindow' then do
  745.                 hide
  746.                 address value host
  747.                 call waitforpkt()
  748.                 return
  749.             end
  750.             if field ~= '' then call fillintime()
  751.             return
  752.         end    
  753.     end
  754.  
  755. fillindate:
  756.     hide
  757.     address value host
  758.     settext event_date field
  759.     settext startdate '--/--/--'
  760.     settext enddate '--/--/--'
  761.     set startdate enddate disable
  762.     call waitforpkt()
  763.     return
  764.  
  765. fillintime:
  766.     hide
  767.     address value host
  768.     settext event_time field
  769.     settext rng1 '--:--'
  770.     settext rng2 '--:--'
  771.     call waitforpkt()
  772.     return
  773.  
  774. helpmessage: procedure
  775.  
  776.     call rtezrequest(arg(1),'Okay!','EZCron Online Help','rtez_flags=ezreqf_centertext',)
  777.     return
  778.  
  779. message: procedure
  780.  
  781.     call rtezrequest(arg(1),'Okay!','EZCron ERROR','rt_reqpos = reqpos_centerscr rtez_flags=ezreqf_centertext',)
  782.     return
  783.  
  784. exiting:
  785.     'hide unload'  /* Hide the window and unload the gui file from memory */
  786.     call closeport("EZCRONPREFS")  /* Close the port */
  787.     address command 'run >nil: vxc'
  788.     address command 'run >nil: vxc'
  789.     address command 'run >nil: vxc'
  790.     address command 'run >nil: avail flush'    
  791.     exit
  792.  
  793.