home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / modem.madness / SMMNETML / ITR102.ZIP / SIMPLE.ZIP / INCLUDE / REQ_MGR.CFG < prev    next >
Encoding:
Text File  |  1993-03-14  |  4.7 KB  |  133 lines
  1. ;**********************************************************************
  2. ; RequestManager definitions
  3. ; for use with ITrack by Andreas Klein, 2:246/47
  4. ;**********************************************************************
  5. ;
  6. ; Possible names for the request manager
  7. ;
  8. Data Name ReqMgr
  9.   ReqMgr
  10.   RequestMgr
  11.   FreqMgr
  12.   ReqFix
  13.   RequestFix
  14.   FreqFix
  15.   ITRACK
  16. #END# Data
  17. ;
  18. ; Requestmanager Fileattaches waiting for arriving file
  19. ;
  20. FidoArea %FDALL%\RESPONSE     workmail system
  21. ;
  22. ; Who should be notified of the request?
  23. ;
  24. Data Addressname InfoReq
  25.   2:246/55 Frank Prade
  26. #END# Data
  27. ;
  28. ;**********************************************************************
  29. ;       REQUESTMGR
  30. ;       Scan inbound mails to the defined requestmanager aliases and
  31. ;       then first scans the local filebase for the file. If found,
  32. ;       an attach will be created and sent back to the requester.
  33. ;       if not found, a request to the specified node will be created
  34. ;       Then, on every run the inbound area as well as the local file-
  35. ;       base will be scanned and the file will be sent to the sender
  36. ;       of the request
  37. ;       For scanning the created fileattaches in the workmail directo-
  38. ;       ry use a call like 'ITRACK CHECK_RESPONSES' to activate the
  39. ;       scanning function
  40. ;   ------------------------------------------------------------------
  41. ;       Templates used: ReqLocal, NoReqMgr, Bad_Req, InfoFReq
  42. ;       Datablocks    : ReqMgr, FileAttPwd, CrashReq, FileBase,
  43. ;                       FileAlias, Inbound, InfoReq
  44. ;   ------------------------------------------------------------------
  45. ;
  46. ;   Format of the request-message used in this function:
  47. ;
  48. ;   ===========================================================================
  49. ;   From: %FROMNAME%    %FROM%
  50. ;   To  : RequestMgr    %SYSTEM%
  51. ;   Subj: <Your Password>
  52. ;   ---------------------------------------------------------------------------
  53. ;   <(A) File to be requested>               <zu requestendes File>
  54. ;   <(B) Address to request from>            <Request-Adresse>
  55. ;   <(C) optional flags for the request>     <zusaetzliche Flags>
  56. ;
  57. ;   ---<Tearline>
  58. ;   ---------------------------------------------------------------------------
  59. ;
  60. ;   (A) needs to be on or more correct     | (A) ist ein oder mehrere korrekte
  61. ;       file names for DOS systems         |     Filename(n) fuer DOS-Systeme
  62. ;   (B) needs to be a correct and complete | (B) ist eine korrekte und voll-
  63. ;       fido sytle address                 |     staendige Adresse im Fido Format
  64. ;   (C) can be one of the following: CRASH,| (C) ist eines der folgenden Flags:
  65. ;       IMM.                               |     CRASH, IMM.
  66. ;   ===========================================================================
  67. ;
  68. Block RequestMgr
  69.   SelectTo System
  70.     SelectTo ReqMgr
  71.       SelectFrom FileAttPw
  72.         ChangeSubject %LINE[1]%
  73.         ChangeAttr ATTRIBUTE %Line[3]%
  74.         SelectFrom !CrashReq
  75.           SetAttribute @Attribute !CRASH !IMM
  76.         #END# SelectFrom
  77.         ;
  78.         CopyGroup InfoReq
  79.           SetAttribute @Attribute !CRASH !IMM
  80.           AddHeader InfoFreq
  81.         #END# CopyGroup
  82.         ;
  83.         FAttach 10 FileBase Inbound FileAlias
  84.           CreateReturn ReqLocal
  85.             SetAttribute @Attribute !CRASH !IMM
  86.             ChangeSubject %%OLDSUBJECT%%
  87.           #END# CreateReturn
  88.           Kill
  89.         #END# FAttach
  90.         CreateMail Netmail ADDRESS %Line[2]%
  91.           SetAttribute @Attribute REQUEST DIR
  92.         #ORIG# CreateMail
  93.           Move WorkMail
  94.         #END# CreateMail
  95.         AddHeader Bad_Req
  96.       #ELSE# SelectFrom
  97.         CreateReturn NoReqMgr
  98.         #END# CreateReturn
  99.         Kill
  100.       #END# SelectFrom
  101.     #END# SelectTo
  102.   #END# SelectTo
  103. #END# Block
  104.  
  105. ;**********************************************************************
  106. ;       CHECK_RESPONSES:
  107. ;       Checks the waiting request mangager requests whether the file
  108. ;       is already on the system
  109. ;       Warning:
  110. ;       This block is never called during normal runs, it has to be
  111. ;       called via commandline, f.e. 'Itrack Check_Responses'
  112. ;   ------------------------------------------------------------------
  113. ;       Templates used: ReqFound
  114. ;       Datablocks    : WorkMail, Inbound, FileBase, FileAlias,
  115. ;                       NetMail, WorkMail
  116. ;   ------------------------------------------------------------------
  117. ;
  118. Block Check_Responses
  119.   Scan WorkMail
  120.     FAttach Inbound FileBase FileAlias
  121.       CreateReturn ReqFound
  122.         ChangeSubject %%OLDSUBJECT%%
  123.         Move Netmail
  124.       #END# CreateReturn
  125.       Kill
  126.       ; %SEMAP_M% Semaphor-Directory of FrontDoor (FD 2.02 = %FD%)
  127.       Touch %FLAGS%\FDRESCAN.NOW
  128.     #END# FAttach
  129.   #END# Scan
  130. #END# Block
  131. ;
  132.  
  133.