home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / misc / jwsc0830.lha / BATCH / generic.script next >
Encoding:
Text File  |  1992-08-04  |  1.3 KB  |  59 lines
  1. failat 99999
  2. path c2: rexx: uucp: sys:rexxc
  3. list >t:inbound inbound: quick
  4.  
  5. c2:search t:inbound fnews#?
  6. if not warn
  7.  cd dlgconfig:text
  8.  delete fnews.tmp
  9.  delete fido#?.nws
  10.  list >t:head inbound:fnews#? quick nohead lformat="lz x %s%s"
  11.  execute t:head
  12.  list >t:head2 fido???.nws quick nohead lformat="jam:jstrip %s fidonews.txt"
  13.  execute t:head2
  14.  delete fido???.nws
  15.  date >>user:james_mcormond/event.log
  16.  echo >>User:james_Mcormond/event.log "Imported FidoNews"
  17. list >t:inbound inbound: quick
  18. endif
  19.  
  20. echo r12
  21. c2:search t:inbound r12-diff.a??
  22. if not warn
  23.  cd mail:nodelist/2
  24.  list >t:head inbound:r12-diff#? quick nohead lformat="pkax -x %s%s"
  25.  execute t:head
  26.  point:parselst -e
  27.  date >>user:james_Mcormond/event.log
  28.  echo >>user:james_mcormond/event.log "Updated R12 nodelist"
  29. list >t:inbound inbound: quick
  30. endif
  31.  
  32. echo node
  33. c2:search t:inbound nodediff.a??
  34. if not warn
  35.  changetaskpri -1
  36.  cd mail:nodelist
  37.  list >t:head inbound:nodediff#? quick nohead lformat="pkax -x %s%s"
  38.  execute t:head
  39.  point:traplist
  40.  date >>user:james_mcormond/event.log
  41.  echo >>user:james_mcormond/event.log "Updated Main Nodelist"
  42. list >t:inbound inbound: quick
  43. endif
  44.  
  45. echo tick
  46. c2:search t:inbound tk??????.tic
  47. if not warn
  48.  cd mail:
  49.  stack 30000
  50.  fido:skytick tick
  51.  avail flush
  52.  stack 5000
  53. endif
  54.  
  55. rx jbundle
  56. rx jflow
  57.  
  58. endcli
  59. ;