home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / xareafix.lha / XAreaFix / scripts / PostMessage < prev   
Encoding:
Text File  |  1994-03-06  |  1.1 KB  |  34 lines
  1. ;$VER: PostMessage 1.0 (06.03.94)
  2. ;****************************************************
  3. ;*                                                  *
  4. ;* Xenolink 1.90 PostMessage script                 *
  5. ;*                                                  *
  6. ;* © 1994, XEcho Development, by Bart Schraa        *
  7. ;*                                                  *
  8. ;****************************************************
  9. ;
  10. ;PostMessage TextFile/A,MsgBase/A,Group/A
  11. ;Post a message per group of filearea's
  12. ;
  13. ;Put 'Unsetenv <Group>' in the script you call XAreaFix Tick from
  14. ;
  15. ;Put PostMessage <TextFile> <MsgBase> <Group> at the MSGCMD line of your fileareas.config
  16. ;e.g.:
  17. ;MSGCMD PostMessage ram:readme.first! 101 ADS
  18. ;
  19. ;© 1994 XEcho Development, by Bart Schraa
  20. ;
  21. .key TextFile/A,MsgBase/A,Group/A
  22. .bra {
  23. .ket }
  24. if exists {TextFile}
  25.    GetEnv {Group} >nil:
  26.    if not warn
  27.       Echo "Area already processed"
  28.    else
  29.       Echo "Sending message into" {Group}
  30.       XAreaFixWriter FROM "Bart Schraa" TO All MSGSECTION {MsgBase} INPUTFILE {TextFile} SUBJECT "Processed file(s)" 
  31.       SetEnv {Group} "Processed" >nil:
  32.    Endif
  33. endif
  34.