home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / sqtool12.zip / SqTool.1st < prev    next >
Text File  |  1996-04-08  |  5KB  |  225 lines
  1. ; Example configuration file for SqTool. Do not use without adapting it.
  2. ; ----------------------------------------------------------------------
  3. ;
  4. ; Note : before running SqTool for the first time, you might want to take
  5. ; a look at the command-line parameter "-InitPtr" in the documentation.
  6. ;
  7.  
  8.  
  9.  
  10. ; Define which LastRead information to use
  11.  
  12. SquishUserNo 8
  13. FidoUserNo 8
  14.  
  15.  
  16.  
  17. ; Define main FidoNet address
  18.  
  19. MainAddress 2:320/222.7
  20.  
  21.  
  22.  
  23. ; Read areas configuration from foreign configuration file...
  24.  
  25. LoraPath e:\Lora
  26. ;AreasBBS c:\BBS\Areas.BBS
  27. ;SquishCfg c:\Squish\Squish.Cfg
  28.  
  29.  
  30.  
  31. ; ...or manually configure areas :
  32. ;
  33. ;AreaDef NetMail "NetMail messages" * Net FTS1 c:\BBS\Msgs\NetMail\ . ()
  34. ;Area NetMail "NetMail messages" FN c:\BBS\Msgs\NetMail\
  35. ;FileArea OS2Utils "OS/2 Utilities" c:\BBS\OS2Utils\Files.BBS c:\BBS\OS2Utils
  36.  
  37.  
  38. ; Set up filters
  39.  
  40.  
  41.  
  42. ;-------------------------------------------------------------------------
  43. ; Copy all messages with my name in them to the AllMyMsg area.
  44.  
  45. BeginFilter "Mes messages"
  46.      Scan *
  47.      UnScan Interet
  48.      UnScan RVaMail
  49.      UnScan WantAns.Fr
  50.      UnScan Mover
  51.      UnScan AllMyMsg
  52.  
  53.      Include From Subject Message Kludges "Vanney"
  54.      Include All "rvanney@ibm.net"
  55.      Exclude To "Raphael Vanney"
  56.      Exclude From "SqFilter"
  57.  
  58.      Action CopyTo "AllMyMsg" Public
  59. EndFilter
  60.  
  61.  
  62.  
  63. ;-------------------------------------------------------------------------
  64. ; Copy all messages to me, left out by the previous filter, to AllMyMsg.
  65.  
  66. BeginFilter "Messages identifiés par Lora"
  67.      Scan RVaMail
  68.  
  69.      Include To "Vanney"
  70.      Include To "rvanney@ibm.net"
  71.  
  72.      Action CopyTo "AllMyMsg"
  73. EndFilter
  74.  
  75.  
  76.  
  77. ;-------------------------------------------------------------------------
  78. ; Copy all messages dealing with topics that I'm interested in to the
  79. ; Interet area. Exclude those copied to AllMyMsg by the previous filters.
  80.  
  81. BeginFilter "Messages intéressants"
  82.      Scan *
  83.      Unscan AllMyMsg
  84.      UnScan PrivNewFiles
  85.      UnScan NewFiles
  86.      UnScan Mover
  87.      UnScan Annonces
  88.      UnScan NetMail
  89.      UnScan WantAns.Fr
  90.      UnScan Wanted.Fr
  91.      UnScan Zlika
  92.      UnScan Interet
  93.  
  94.      Include Message Subject "BJ10e"
  95.      Include Message Subject "Escriba"
  96.      Include Message Subject "SqFilter"
  97.      Include Message Subject "SqFlt"
  98.      Include Message Subject "SqTool"
  99.      Include Message Subject "Millenium"
  100.      Include Message Subject "Millennium"
  101.      Include Message Subject "Zappa"
  102.      Include Message Subject "Triton"
  103.      Include All "PMView"
  104.      Exclude From "SqFilter"
  105.      Exclude From "SqTool"
  106.      Exclude All "Vanney"
  107.  
  108.      Action CopyTo "Interet"
  109. EndFilter
  110.  
  111.  
  112. ;-------------------------------------------------------------------------
  113. ; This filter lets anyone get a directory of my disks.
  114.  
  115. BeginFilter "Get a directory listing"
  116.      Scan Requests
  117.  
  118.      Include To Exact "GetDir"
  119.  
  120. ; it is assumed that the subject of the message contains a valid parameter
  121. ; for the "dir" command, such as "c:\* /s" (without quotes).
  122.  
  123.      Action Execute "dir %MsgSubject% >e:\Temp\Reply.Msg"
  124.  
  125.      ReplyWith DelPrev DelAfter "e:\Temp\Reply.Msg"
  126. EndFilter
  127.  
  128.  
  129.  
  130. ;-------------------------------------------------------------------------
  131. ; Setup for a Fidonet-mail based file-request system
  132.  
  133. BeginFilter
  134.      Scan Requests
  135.  
  136.      Include To Exact "GetFile"
  137.  
  138. ; The subject of the message should contain the name of the file to send.
  139.  
  140.      Action Execute "copy e:\RequestableFiles\%MsgSubject% e:\Temp\Reply.Fil"
  141.  
  142.      ReplyWith DelPrev DelAfter UUE EAsAlso "e:\Temp\Reply.Fil"
  143.  
  144. ; Put the answer on hold in the NetMail area
  145.  
  146.      ReplyAttr Hld
  147.      ReplyArea NetMail
  148. EndFilter
  149.  
  150.  
  151. ;-------------------------------------------------------------------------
  152. ; Handle AllFix requests
  153.  
  154. AfxScan *
  155. AfxUnScan UserUploads
  156. AfxUnScan LocalFiles
  157.  
  158. AfxMaxAnswers 20
  159. AfxMaxDescLines 10
  160.  
  161. ;----------------------------------------------
  162.  
  163. AfxFoundHdr
  164.      "The following files, which match your request, were found on Zlika :"
  165.  
  166. EndTxt
  167.  
  168. ;----------------------------------------------
  169.  
  170. AfxFoundFtr
  171.  
  172.      " You may freely download these files from Zlika."
  173.  
  174.      " SysOp       : Raphaël Vanney"
  175.      " Location    : Courbevoie, France"
  176.      " Phone       : +33-1-47748723"
  177.      " Max. speed  : 28,8kbps (V34 / V.FC)"
  178.  
  179.      "> Open from 10am to 6pm, on weekdays."
  180.  
  181.      "--- SqTool/2, LoraBBS/2, Whatever/2..."
  182. EndTxt
  183.  
  184.  
  185. ;----------------------------------------------
  186.  
  187. BeginFilter "Answer AllFix filefind requests"
  188.      Scan Wanted.Fr
  189.  
  190.      Include Exact To "AllFix"
  191.      Include Exact To "SqTool"
  192.      Include Exact To "SqFltr"
  193.  
  194.      Action AllFix d:\Temp\AllFix.Ans
  195.  
  196.      ReplyWith DelPrev DelAfter d:\Temp\AllFix.Ans
  197.      ReplyArea WantAns.Fr
  198. EndFilter
  199.  
  200.  
  201. ;-------------------------------------------------------------------------
  202. ; Announce new files in the NewFiles message area
  203.  
  204. BeginFileFilter "New files announcement"
  205.      Scan *
  206.      UnScan UserUploads
  207.  
  208.      Select New
  209.  
  210.      Action Announce NewFiles
  211.  
  212.      Header
  213.           "Here comes a list of new files on Zlika :"
  214.  
  215.      EndTxt
  216.  
  217.      Footer
  218.  
  219.           "These files are available on Zlika !"
  220.      EndTxt
  221. EndFilter
  222.  
  223.  
  224. ; The End
  225.