home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / wcutil10.zip / WCUTIL.TPL < prev    next >
Text File  |  1993-07-26  |  25KB  |  716 lines
  1. ;***********************************************************************
  2. ;WCUTIL TPL file
  3. ;This TPL file has been customized for use with WCUTIL.EXE an add-on
  4. ;utility for WinCIS.
  5. ;
  6. ;Lines commented out by the author will be marked with three semi-colons
  7. ;
  8. ;blocks of added commands will be delineated by:
  9. ;------------------------------------------------------------------------
  10. ;as will explanatory comments
  11. ;***********************************************************************
  12. [PROLOG]
  13. ;
  14. ; This script file was created on &&DATE at &&TIME by &&USERNAME.
  15. ;
  16. ;***********************************************************************
  17. ;       WinCIS &&VERSION
  18. ;       Copyright(C) 1992
  19. ;       Larry Lee (76670,1471)
  20. ;       16038 Augusta Drive
  21. ;       Chino Hills, Ca 91709
  22. ;       (Script language notes have been moved to the bottom of file)
  23. ;***********************************************************************
  24. ;
  25. ;
  26. ;------------------------------------------------------------------------
  27. ;;;NOTE: I have found that because I have set the next three options
  28. ;;; permanently, they can be commented out.  This speeds the logon marginally
  29. SEND SET BRIEF YES^M
  30. WAIT !
  31. SEND SET PAGED NO^M
  32. WAIT !
  33. SEND SET BLANK YES^M
  34. WAIT !
  35. ;;;
  36. SEND SET WIDTH 80^M
  37. WAIT !
  38. ;
  39. ;------------------------------------------------------------------------
  40. ; Execute WCUTIL.SCR if it exists in the ControlPath
  41. ;------------------------------------------------------------------------
  42.   IF FILEEXISTS &&CONTROLPATHWCUTIL.SCR
  43.     @ECHO No WCUTIL.SCR to execute.
  44.     %ECHO Executing WCUTIL.SCR...
  45.     %DO &&CONTROLPATHWCUTIL.SCR
  46.     %KILLFILE &&CONTROLPATHWCUTIL.SCR
  47. ;------------------------------------------------------------------------
  48. [EPILOG]
  49. ;
  50. ;***********************************************************************
  51. ; All Done, Just Log off CompuServe
  52. ;***********************************************************************
  53. ;
  54. LOGOFF
  55.  
  56. [READ MAIL]
  57. ;
  58. ; Read Any Waiting CompuServe Mail
  59. ;
  60.  IF MAILWAITING
  61.   @REMOVEACTION MAIL Read.Waiting
  62.   %ECHO Reading CompuServe Mail
  63.   %READMAIL &&SYSMESSAGEPATHMAIL.MSG
  64.     %%ECHO CompuServe Mail Read Complete!
  65.     %%REMOVEACTION MAIL Read.Waiting
  66.     %@ECHO Unable to Read your CompuServe Mail!
  67.  
  68.  
  69. [SEND MAIL]
  70. ;
  71. ; Send Any Waiting CompuServe Mail
  72. ;
  73.   IF FILEEXISTS &&SYSMESSAGEPATHMAIL.SND
  74.   @REMOVEACTION MAIL Send.Replies
  75.   %ECHO Sending CompuServe Mail
  76.   %SENDMAIL  &&SYSMESSAGEPATHMAIL.SND
  77.     %@ECHO Unable to Send your CompuServe Mail!
  78.     %%ECHO CompuServe Mail Send Complete!
  79.     %%REMOVEACTION MAIL Send.Replies
  80.  
  81. [PROMPT MAIL OUTBOX]
  82. ;
  83. ; Ask what about Overwriting to the Mail OutBox
  84. ;
  85.      %%ASK OVERWRITE? &&SYSMESSAGEPATHMAIL.MOX  Do you want to save your outgoing Mail in &&SYSMESSAGEPATHMAIL.MOX
  86.      %%%ECHO Saving Your Out Going Mail to &&SYSMESSAGEPATHMAIL.MOX
  87.      %%%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT CIS:MAIL
  88.      %%%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
  89. ; At This point the Mail File Is No Longer Needed
  90.      %%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  91.  
  92.  
  93. [APPEND MAIL OUTBOX]
  94. ;
  95. ; Append Queued Mail to the Mail OutBox
  96. ;
  97.    %%ECHO Appending your outgoing Mail to &&SYSMESSAGEPATHMAIL.MOX
  98.    %%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT &&FORUMNAME
  99.    %%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
  100. ; At This point the Mail File Is No Longer Needed
  101.    %%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  102.  
  103. [OVERWRITE MAIL OUTBOX]
  104. ;
  105. ; Overwrite Queued Mail to the &&FORUMNAME OutBox
  106. ;
  107.    %%ECHO Saving your outgoing Mail in &&SYSPATH&&FORUMNAME.MOX
  108.    %%KILLFILE &&SYSMESSAGEPATHMAIL.MOX
  109.    %%FILEMARK &&SYSMESSAGEPATHMAIL.MOX MAIL_SENT &&FORUMNAME
  110.    %%COPYFILE &&SYSMESSAGEPATHMAIL.SND &&SYSMESSAGEPATHMAIL.MOX
  111. ; At This point the Message File Is No Longer Needed
  112.    %%%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  113.  
  114. [DELETE MAIL OUTBOX]
  115. ;
  116. ; Never Save Queued Mail to the Mail OutBox
  117. ;
  118.    %%ECHO Deleting outgoing Mail: &&SYSMESSAGEPATHMAIL.SND
  119. ; At This point the Mail File Is No Longer Needed
  120.    %%KILLFILE &&SYSMESSAGEPATHMAIL.SND
  121.  
  122. [GO FORUM]
  123. ;
  124. ;***********************************************************************
  125. ; Lets enter the &&FORUMNAME forum, &&FORUMTITLE
  126. ;***********************************************************************
  127. ECHO Going to &&FORUMNAME, &&FORUMTITLE
  128. ;----------------------------------------------------------------------
  129. ;If you wish to grab forum announcements each time you enter a forum
  130. ;uncomment the following four lines:
  131. ;----------------------------------------------------------------------
  132. ;;;FILEMARK &&MESSAGEPATH&&FORUMNAME.MSG Read_Annoucements &&FORUMNAME
  133. ;;;PUTFILE &&MESSAGEPATH&&FORUMNAME.MSG ^M^J#: 0 S-1/ Forum Annoucement^M^J    01-Jan-93  &TIME
  134. ;;;PUTFILE &&MESSAGEPATH&&FORUMNAME.MSG ^M^JSb: News Flash^M^JFm: System^M^JTo:^M^J^M^J
  135. ;;;CAPTURE &&MESSAGEPATH&&FORUMNAME.MSG
  136. ;------------------------------------------------------------------------
  137. GO &&GATEWAY:&&FORUMNAME
  138. ;
  139. ; Join Forum If Required!
  140. ;
  141.   %IF NOT JOINED
  142.     %@REMOVEACTION &&FORUMNAME Join.Forum     
  143.     %%ECHO Attempting to Join &&FORUMNAME, &&FORUMTITLE
  144.     %%JOIN
  145.         %%%ECHO Successfully Joined &&FORUMNAME, &&FORUMTITLE
  146.       %%%REMOVEACTION &&FORUMNAME Join.Forum     
  147.         %%WAIT !
  148.         %%@ECHO Sorry, unable to Join &&FORUMNAME, &&FORUMTITLE
  149.         %%@SETERRORLEVEL 0 FALSE
  150. ;
  151. ; Set Session Defaults to Command Mode for Forum Processing
  152. ;
  153. ;------------------------------------------------------------------------
  154. ; BY DEFAULT WINCIS SETS THE FORUM DEFAULTS EVERY TIME IT ENTERS A FORUM
  155. ; I FIND THIS WASTED TIME.  THEREFORE, IN MY OWN TPL I HAVE COMMENTED OUT 
  156. ; THE FOLLOWING SIX LINES AND CHANGED THE LOGIC LATER IN THE TPL FILE UNDER THE
  157. ; [SET FORUM DEFAULTS] SECTION SO THAT THE PROMPT CHARACTER IS SET TO ^G
  158. ; PERMANENTLY
  159.   %ECHO Setting Temporary Session Defaults in &&FORUMNAME, &&FORUMTITLE
  160.   %SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;CHAR;S^M
  161.   %WAIT New prompt:
  162.   %%SEND ^^G^M
  163.   %WAIT FORUM !
  164.     %@SETERRORLEVEL 0 FALSE
  165. ;------------------------------------------------------------------------
  166. ;
  167.   @ECHO Sorry, unable to enter the &&FORUMNAME Forum!
  168.   %ECHO Now in &&FORUMNAME, &&FORUMTITLE
  169. ;
  170. ; Check for Waiting Messages in the &&FORUMNAME Forum
  171. ;
  172.   %IF MESSAGESWAITING
  173.     %@ECHO No Messages Waiting to be Read On &&FORUMNAME, &&FORUMTITLE
  174.     %@REMOVEACTION &&FORUMNAME Read.Waiting.Messages
  175.     %%ECHO Reading Waiting Messages of &&FORUMNAME, &&FORUMTITLE
  176.     %%SCAN &&MESSAGEPATH&&FORUMNAME.MSG READ WAIT
  177.     %%REMOVEACTION &&FORUMNAME Read.Waiting.Messages
  178. ;
  179.  
  180. ;------------------------------------------------------------------------
  181. ;Check to see if there's an upload file
  182. ;------------------------------------------------------------------------
  183. %IF FILEEXISTS &&CONTROLPATH&&FORUMNAME.UPL
  184.   %@ECHO NO &&CONTROLPATH&&FORUMNAME.UPL TO EXECUTE
  185.   %%ECHO Executing upload script: &&CONTROLPATH&&FORUMNAME.UPL
  186.   %%DO &&CONTROLPATH&&FORUMNAME.UPL
  187.   %%%KILLFILE &&CONTROLPATH&&FORUMNAME.UPL
  188.   SETERRORLEVEL 2 TRUE
  189.   
  190. [GO LIB]
  191. ;
  192. ; Lets enter Library #&&LIBRARY of &&FORUMNAME
  193.   %LIB &&LIBRARY
  194. ;
  195. ; If something goes wrong... Inform the user and bypass this Library!
  196. ;   Otherwise all is well... Continue processing (downloads, catalogs, etc)
  197. ;
  198.     %@ECHO Sorry, unable to enter Library #&&LIBRARY of &&FORUMNAME, &&FORUMTITLE
  199.     %%ECHO Now In &&FORUMNAME, &&FORUMTITLE Libraries
  200. ;
  201.  
  202. [JOIN FORUM]
  203. ;
  204. ; Commented Out Since It's Done at GO FORUM Automatically
  205. ; Join The Forum
  206. ;
  207. ;  %IF NOT JOINED
  208. ;    %@REMOVEACTION &&FORUMNAME Join.Forum
  209. ;    %%ECHO Attempting to Join &&FORUMNAME, &&FORUMTITLE
  210. ;    %%JOIN
  211. ;       %%%ECHO Successfully Joined &&FORUMNAME, &&FORUMTITLE
  212. ;       %%%REMOVEACTION &&FORUMNAME Join.Forum
  213. ;       %%@ECHO Sorry, unable to Join &&FORUMNAME Forum!
  214.  
  215. [SET FORUM DEFAULTS]
  216. ;
  217. ; Set Permanent Session Defaults to Command Mode for Forum Processing
  218. ;
  219.   %ECHO Setting Permanent Session Defaults in &&FORUMNAME, &&FORUMTITLE
  220.   %SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;P^M
  221. ;--------------------------------------------------------------------
  222. ; The above line is the default for seeting forum defaults.
  223. ; If you wish to avoid setting "session defaults" (above), you can
  224. ; change this section of the TPL file by
  225. ;  1) commenting out the above line and 
  226. ;  2) uncommenting and using instead the folloing
  227. ;;;  %SEND OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;CHAR;P^M
  228. ;;;  %WAIT New prompt:
  229. ;;;  %%SEND ^^G^M
  230. ;--------------------------------------------------------------------  
  231.   %WAIT FORUM !
  232.   %REMOVEACTION &&FORUMNAME Set.Defaults
  233.  
  234.  
  235. [UPDATE FORUM SECTIONS]
  236. ;
  237. ; Read the Section Descriptions
  238. ;
  239.   %ECHO Updating &&FORUMNAME, &&FORUMTITLE Message And Library Descriptions
  240.   %KILLFILE &&CONTROLPATH&&FORUMNAME.SEC
  241.   %READ &&CONTROLPATH&&FORUMNAME.SEC NAM;1;2;M
  242.   %REMOVEACTION &&FORUMNAME Update.Sections
  243.  
  244. [READ FORUM ANNOUNCEMENTS]
  245. ;
  246. ; Read the &&FORUMNAME Forum Announcements
  247. ;
  248.   %ECHO Reading &&FORUMNAME, &&FORUMTITLE Announcements
  249.   %READANN &&MESSAGEPATH&&FORUMNAME.MSG
  250.   %REMOVEACTION &&FORUMNAME Read.Announcements
  251.  
  252. [GO MESSAGES]
  253. ;
  254. ; Enter Message Area of the &&FORUMNAME Forum
  255. ;
  256.   %MESSAGES
  257. ;
  258. ; If something goes wrong... Inform the user and bypass the Message Area!
  259. ;   Otherwise all is well... Continue processing (READS, SCANS, ...)
  260. ;
  261.    %@ECHO Sorry, unable to enter Message Area of &&FORUMNAME, &&FORUMTITLE
  262.    %%ECHO Now In &&FORUMNAME, &&FORUMTITLE Message Area
  263. ;
  264. ;------------------------------------------------------------------------
  265. ;WCUTIL LOGIC TO SEE IF THERE IS A SPECIAL REQUEST RM FILE
  266. ;------------------------------------------------------------------------
  267. ;Check ErrorLevel 9 before deleting RM file
  268.    %%IF FILEEXISTS &&CONTROLPATH&&FORUMNAME.RM
  269.      %%@ECHO NO &&CONTROLPATH&&FORUMNAME.RM TO EXECUTE
  270.      %%%ECHO Executing message requestscript: &&CONTROLPATH&&FORUMNAME.RM
  271.      %%%DO &&CONTROLPATH&&FORUMNAME.RM
  272.      %%%Wait !
  273.      %%%?????%Echo Deleting &&CONTROLPATH&&FORUMNAME.RM
  274.      %%%?????%KILLFILE &&CONTROLPATH&&FORUMNAME.RM
  275.  
  276.  
  277. ;------------------------------------------------------------------------
  278. ;WCUTIL LOGIC TO SEE IF THERE IS A SPECIAL REQUEST QM FILE
  279. ;------------------------------------------------------------------------
  280. ;Check ErrorLevel 9 before deleting QM file
  281. ;Set ErrorLevel 10 to be used by WinCIS SCAN HEADER
  282.    %%IF FILEEXISTS &&CONTROLPATH&&FORUMNAME.QM
  283.      %%@ECHO NO &&CONTROLPATH&&FORUMNAME.QM TO EXECUTE
  284.      %%@SETERRORLEVEL 10 FALSE
  285.      %%%ECHO Executing message request script: &&CONTROLPATH&&FORUMNAME.QM
  286.      %%%DO &&CONTROLPATH&&FORUMNAME.QM
  287.      %%%Wait !
  288. ;     %%%%KILLFILE &&CONTROLPATH&&FORUMNAME.QM 
  289.      %%%?????%Echo Deleting &&CONTROLPATH&&FORUMNAME.QM
  290.      %%%?????%KILLFILE &&CONTROLPATH&&FORUMNAME.QM
  291.      %%%?????%SETERRORLEVEL 10 TRUE
  292.  
  293.  
  294. [READ FORUM MESSAGES]
  295.     %%READ &&MESSAGEPATH&&FORUMNAME.MSG READ THR NUM:&&READMSGNUMBER
  296.  
  297. [RESET READ FORUM MESSAGES]
  298. ;
  299. ;  At this point no messages need to be read so Kill Then Read Msg Index
  300.     %%REMOVEACTION &&FORUMNAME Read.Messages
  301.     %%KILLFILE &&CONTROLPATH&&FORUMNAME.MXS
  302.  
  303. [READ WAITING FORUM MESSAGES]
  304. ;
  305. ; Commented Out Since It's Done at GO FORUM Automatically
  306. ; Check for Waiting Messages in the &&FORUMNAME Forum
  307. ;
  308. ;  %%IF MESSAGESWAITING
  309. ;    %%@REMOVEACTION &&FORUMNAME Read.Waiting.Messages
  310. ;    %%@ECHO No Messages Waiting to be Read On &&FORUMNAME, &&FORUMTITLE
  311. ;    %%%ECHO Reading Waiting Messages of &&FORUMNAME, &&FORUMTITLE
  312. ;    %%%SCAN &&MESSAGEPATH&&FORUMNAME.MSG READ WAIT
  313. ;    %%%REMOVEACTION &&FORUMNAME Read.Waiting.Messages
  314.  
  315. [READ NEW FORUM MESSAGES]
  316. ;
  317. ; Read New Messages in the &&FORUMNAME Forum
  318. ;
  319.     %%ECHO Reading New Messages of &&FORUMNAME, &&FORUMTITLE in Sections &&MSGSECTIONS
  320.     %%SCAN &&MESSAGEPATH&&FORUMNAME.MSG READ NEW &&MSGSECTIONS
  321.     %%REMOVEACTION &&FORUMNAME Read.New.Messages
  322.  
  323. [QUICKSCAN FORUM MESSAGE HEADERS]
  324. ;
  325. ; Scan For New Messages Threads in the &&FORUMNAME Forum and Overwrite existing File
  326. ;
  327. ;;;    %%ECHO Scanning For New Threads of &&FORUMNAME, &&FORUMTITLE in Sections &&MSGSECTIONS
  328. ;;;    %%KILLFILE &&CONTROLPATH&&FORUMNAME.MQS
  329. ;;;    %%SCAN &&CONTROLPATH&&FORUMNAME.MQS SCAN QUICK NEW &&MSGSECTIONS;T
  330.  
  331. ;------------------------------------------------------------------------
  332. ;Added for WCUTIL compatibility:  the check for Error Level 10 before deleting MQS
  333. ;------------------------------------------------------------------------
  334.     %%ECHO Scanning For New Threads of &&FORUMNAME, &&FORUMTITLE in Sections &&MSGSECTIONS
  335.       %%???????@ECHO No custom message scan; deleting old header file
  336.       %%???????@KILLFILE &&CONTROLPATH&&FORUMNAME.MQS
  337.       %%???????%ECHO Merging standard message scan with custom scann
  338.     %%SCAN &&CONTROLPATH&&FORUMNAME.MQS SCAN QUICK NEW &&MSGSECTIONS;T
  339.     %%REMOVEACTION &&FORUMNAME Scan.New.Messages
  340.  
  341. [SEND FORUM MESSAGE]
  342. ;
  343. ; Sending Queued Messages and Replies to the &&FORUMNAME Forum
  344. ;
  345.     %%ECHO Sending Queued Messages and Replies to &&FORUMNAME, &&FORUMTITLE
  346.     %%SENDMSGS &&MESSAGEPATH&&FORUMNAME.SND
  347.  
  348. [PROMPT MESSAGE OUTBOX]
  349. ;
  350. ; Ask what to do about copying the OutGoing Messages
  351. ;
  352.    %%%ASK OVERWRITE? &&CONTROLPATH&&FORUMNAME.MOX  Do you want to save your outgoing &&FORUMNAME Messages in &&MESSAGEPATH&&FORUMNAME.MOX?
  353.    %%%%ECHO Saving your outgoing Messages to &&MESSAGEPATH&&FORUMNAME.MOX
  354.    %%%%FILEMARK  &&MESSAGEPATH&&FORUMNAME.MOX MESSAGES_SENT &&FORUMNAME
  355.    %%%%COPYFILE  &&MESSAGEPATH&&FORUMNAME.SND &&MESSAGEPATH&&FORUMNAME.MOX
  356. ; At This point the Message File Is No Longer Needed
  357.    %%%REMOVEACTION &&FORUMNAME Send.Replies
  358.    %%%KILLFILE &&MESSAGEPATH&&FORUMNAME.SND
  359.  
  360.  
  361. [APPEND MESSAGE OUTBOX]
  362. ;
  363. ; Append Queued Messages and Replies to the &&FORUMNAME Forum OutBox
  364. ;
  365.    %%%ECHO Appending your outgoing &&FORUMNAME Messages to &&MESSAGEPATH&&FORUMNAME.MOX
  366.    %%%FILEMARK &&MESSAGEPATH&&FORUMNAME.MOX MESSAGES_SENT &&FORUMNAME
  367.    %%%COPYFILE &&MESSAGEPATH&&FORUMNAME.SND &&MESSAGEPATH&&FORUMNAME.MOX
  368. ; At This point the Message File Is No Longer Needed
  369.    %%%%REMOVEACTION &&FORUMNAME Send.Replies
  370.    %%%%KILLFILE &&MESSAGEPATH&&FORUMNAME.SND
  371. ;
  372. [OVERWRITE MESSAGE OUTBOX]
  373. ;
  374. ; Overwrite Queued Messages and Replies to the &&FORUMNAME Forum OutBox
  375. ;
  376.    %%%ECHO Saving your outgoing &&FORUMNAME Messages in &&MESSAGEPATH&&FORUMNAME.MOX
  377.    %%%%KILLFILE &&MESSAGEPATH&&FORUMNAME.MOX
  378.    %%%FILEMARK  &&MESSAGEPATH&&FORUMNAME.MOX MESSAGES_SENT &&FORUMNAME
  379.    %%%COPYFILE  &&MESSAGEPATH&&FORUMNAME.SND &&MESSAGEPATH&&FORUMNAME.MOX
  380. ; At This point the Message File Is No Longer Needed
  381.    %%%%REMOVEACTION &&FORUMNAME Send.Replies
  382.    %%%%KILLFILE &&MESSAGEPATH&&FORUMNAME.SND
  383.  
  384. [DELETE MESSAGE OUTBOX]
  385. ;
  386. ; Never Save Queued Messages to the &&FORUMNAME Forum OutBox
  387. ;
  388.    %%%ECHO Deleting outgoing Messages: &&MESSAGEPATH&&FORUMNAME.SND
  389. ; At This point the Mail File Is No Longer Needed
  390.    %%%REMOVEACTION &&FORUMNAME Send.Replies
  391.    %%%KILLFILE &&MESSAGEPATH&&FORUMNAME.SND
  392.  
  393. [SET HIGH MESSAGE COUNTER]
  394. ;
  395. ; Set The High Message Counter to High Values
  396. ;
  397.     %%SEND HIGH;L^M
  398.     %%WAIT !
  399.  
  400. [OVERWRITE MESSAGES]
  401. ;
  402. ; Create New or Erase Existing &&FORUMNAME.MSG File if found to exist.
  403. ;
  404.     %%KILLFILE &&MESSAGEPATH&&FORUMNAME.MSG
  405.  
  406. [PROMPT CATALOG]
  407. ;
  408. ; Ask what to do if a Library Catalog exists for this Forum on Disk
  409. ;
  410.    %%IF FILEEXISTS &&CONTROLPATH&&FORUMNAME.LBR
  411.    %%%ASK OVERWRITE? &&CONTROLPATH&&FORUMNAME.LBR  Do you want to Overwrite or Append to the &&FORUMNAME Catalog File?^M^J&&CONTROLPATH&&FORUMNAME.LBR
  412.    %%%@SETERRORLEVEL 3 FALSE
  413.    %%@SETERRORLEVEL 3 TRUE
  414.  
  415. [APPEND CATALOG]
  416. ;
  417. ; Append to Existing Library Catalog
  418. ;
  419.    %%SETERRORLEVEL 3 TRUE
  420.  
  421. [OVERWRITE CATALOG]
  422. ;
  423. ; Overwrite the existing Catalog
  424. ;
  425.    %%KILLFILE &&CONTROLPATH&&FORUMNAME.LBR
  426.    %%SETERRORLEVEL 3 TRUE
  427.  
  428. [SHORT CATALOG SCAN]
  429. ;
  430. ; Requesting Download Information on &&SCANDESC
  431. ;
  432.     %%%ECHO Scanning Libraries of &&FORUMNAME, &&FORUMTITLE
  433.     %%%SCAN &&CONTROLPATH&&FORUMNAME.LBR LIST &&SCANFILE &&SCANLIBS &&SCANAGE &&SCANKEYWORDS
  434.     %%%REMOVEACTION &&FORUMNAME Scan.Libraries
  435. ;
  436.  
  437. [FULL CATALOG SCAN]
  438. ;
  439. ; Requesting Download Information on &&SCANDESC
  440. ;
  441.     %%%ECHO Scanning Libraries of &&FORUMNAME, &&FORUMTITLE
  442.     %%%SCAN &&CONTROLPATH&&FORUMNAME.LBR SCAN &&SCANFILE DES &&SCANLIBS &&SCANAGE &&SCANKEYWORDS
  443.     %%%REMOVEACTION &&FORUMNAME Scan.Libraries
  444. ;
  445.  
  446. [RESET SCAN CATALOG]
  447. ;
  448. ;  At this Point Library Scans are Complete so Kill Then Search Pattern Index
  449. ;
  450.     %%%KILLFILE &&CONTROLPATH&&FORUMNAME.LXC
  451.  
  452. [DOWNLOAD FILES]
  453.     %%DOWNLOAD &&DOWNLOADFILE &&DOWNLOADPATH &&DOWNLOADUPLD
  454. ;          Title: &&DOWNLOADTITLE
  455. ;          Library# &&LIBRARY, &&DOWNLOADSIZE Bytes, As of &&DOWNLOADDATE
  456. ;
  457.  
  458. [RESET DOWNLOAD FILES]
  459. ;
  460. ;  At this Point Downloads are Complete so Kill Then Download Tag List
  461. ;
  462.     %%REMOVEACTION &&FORUMNAME Download.Files    
  463.     %%KILLFILE &&CONTROLPATH&&FORUMNAME.LXR
  464.  
  465. [UPLOAD FILES]
  466. ;
  467. ; Sending Files
  468. ;                           <To be defined>
  469.     %REMOVEACTION &&FORUMNAME Upload.Files    
  470. ;
  471.  
  472.  
  473. ;***************************************************************
  474. ;* WinCis Commands Commands                                    *
  475. ;***************************************************************
  476. ;
  477. ; REMOVE or SET ACTION flags for forum as tasks are completed
  478. ; 
  479. ; REMOVEACTION &&FORUMNAME Join.Forum
  480. ; SETACTION    &&FORUMNAME Set.Defaults
  481. ;
  482. ; Valid action flags
  483. ; Join.Forum
  484. ; Set.Defaults
  485. ; Update.Sections
  486. ; Read.Announcements
  487. ; Scan.New.Messages
  488. ; Read.Messages
  489. ; Send.Replies
  490. ; Read.New.Messages
  491. ; Read.Waiting.Messages
  492. ; Scan.Libraries
  493. ; Download.Files
  494. ; Upload.FIles
  495. ;
  496. ;
  497. ;
  498. ;  GO           forum_name
  499. ;  RESET
  500. ;  KILLFILE     filename
  501. ;  KILLDIR      directory
  502. ;  MAKEDIR      directory
  503. ;  LIB          library_number
  504. ;
  505. ;  SCANMES
  506. ;  SCANTHR
  507. ;  SCANLIB
  508. ;  QSCNLIB
  509. ;
  510. ;  JOIN
  511. ;
  512. ;  DOWNLOAD     filename pathname
  513. ;
  514. ;  READSEC
  515. ;  READMES
  516. ;  READTHR
  517. ;  READANN
  518. ;  READMAIL
  519. ;
  520. ;  RECORD
  521. ;
  522. ;  DO           scriptfile
  523. ;
  524. ;  LOGOFF
  525. ;  OFF
  526. ;  QUIT
  527. ;
  528. ;  S
  529. ;  SE
  530. ;  SEND         text
  531. ;
  532. ;  U
  533. ;  W
  534. ;  WA
  535. ;  WAIT         text
  536. ;
  537. ;  P
  538. ;  PA
  539. ;  PAUSE        number_of_seconds
  540. ;
  541. ;  C
  542. ;  CA
  543. ;  CAPTURE      filename
  544. ;
  545. ;  PR
  546. ;  PRINT        ON, or OFF
  547. ;
  548. ;  LOG          text
  549. ;
  550. ;  EC
  551. ;  ECHO         text
  552. ;               ON, or OFF
  553. ;
  554. ;  EN
  555. ;  END
  556. ;
  557. ;  N
  558. ;  NA
  559. ;  NAME
  560. ;
  561. ;  US
  562. ;  USER
  563. ;  USERID
  564. ;  RET
  565. ;  RETURN
  566. ;
  567. ;  DEBUG        ON, or OFF
  568. ;***************************************************************
  569. ;* WinCis Variables                                            *
  570. ;***************************************************************
  571. ;       WinCis Variables are denoted by a single & characters &
  572. ;       these variables are replaced with string values at the
  573. ;       time WinCis executes the script.
  574. ;
  575. ; "&USERID"             CompuServe      UserID
  576. ; "&NAME"                               UserName
  577. ; "&PASSWORD"                           User Password
  578. ; "&GATEWAY"            Current Gateway
  579. ; "&FORUM"              Current Forum
  580. ;
  581. ;***************************************************************
  582. ;* WinCis Conditional Commands                                 *
  583. ;***************************************************************
  584. ;
  585. ;
  586. ;     '%', '?' or '@'   are prefix condition characters that can
  587. ;                       prefix any command in order to make the
  588. ;                       command conditional on the success of any
  589. ;                       prior command.
  590. ;
  591. ;       Each occurrence of these prefix conditions denotes a
  592. ;       level of nesting that should be considered prior to
  593. ;       executing the command. Up to 10 levels of nesting
  594. ;       (or 10 prefix conditions) can be checked.
  595. ;
  596. ;       Basically processing proceeds as follows:
  597. :
  598. ;       For each Prefix condition:
  599. ;
  600. ;       For I = 0 to the Number-of-Prefix-Conditions
  601. ;               If The_Condition_At(I) = FALSE Then Skip This Command
  602. ;       Next
  603. ;
  604. ;       All Conditions are true So Perform the command and save the return code...
  605. ;
  606. ;       ReturnCode = Command()
  607. ;
  608. ;       If the command worked then ReturnCode = TRUE Else ReturnCode  = FALSE
  609. ;
  610. ;       Now set the next higher condition to the value of the ReturnCode so that
  611. ;       Other commands can be based on the success of the command just executed
  612. ;
  613. ;       Set The_Condition_At(Number-Of-Prefix-Conditions + 1) = ReturnCode
  614. ;
  615. ;
  616. ;       The Prefix Conditions Denote the following conditions
  617. ;
  618. ;
  619. ;      %   Defines a TRUE  condition at this error level
  620. ;      @   Defines a FALSE condition at this error level
  621. ;      ?   Defines a Don't Care Condition at this  error level
  622. ;
  623. ;
  624. ;       The following is an example of some of the concepts presented:
  625. ;
  626. ;
  627. ;       GO FORUM
  628. ;       ; This command will always be executed since there are no
  629. ;       ; prefix conditions.  If WinCis successfully enters the FORUM
  630. ;       ; then the condition at level 1 will be set to TRUE otherwise it
  631. ;       ; will be set to FALSE
  632. ;
  633. ;       %ECHO We entered the FORUM successfully
  634. ;       ; The ECHO command will execute only if the condition at level 1 is TRUE
  635. ;       ; The ECHO Command does not return a condition and therefore does not
  636. ;       ; affect the condition at level 2
  637. ;
  638. ;       %LIB 1
  639. ;       ; We will only go to library 1 if the condition at level 1 is TRUE
  640. ;       ; this of course depends on that success of the GO FORUM Command
  641. ;       ; If the command is executed it will set the condition at Level 2
  642. ;
  643. ;       %%SCANLIB KEY:PROGRAMS LIB:ALL
  644. ;       ; Scanning for programs will depend of the success of getting to the Library Prompt
  645. ;       ; Therefore this command depends of the success of both the GO FORUM and LIB 1
  646. ;       ; commands.  Here we test 2 levels of prefix conditions denoted by the fact that
  647. ;       ; there are 2 '%' characters prefixing the SCANLIB Command
  648. ;       ; If the command is executed it will set the condition at Level 3
  649. ;
  650. ;       %@ECHO Can't Enter library 1 of the FORUM
  651. ;       ; This command will only be executed if we successfully entered the forum
  652. ;       ; and were unable to enter the library.  Since the first prefix_condition is
  653. ;       ; an % the condition at level 1 must be true, this was set by the value returned
  654. ;       ; by the GO FORUM command. If GO FORUM was not successful the command would be skipped
  655. ;       ; The second prefix_condition @ indicates that the condition at level 2 must be FALSE
  656. ;       ; this condition was last established by the %LIB 1 command.
  657. ;       ; The ECHO Command does not return a condition and therefore does not
  658. ;       ; affect the condition at level 3
  659. ;
  660. ;       @ECHO Can't Enter the FORUM
  661. ;       ; This command will only be executed if the GO FORUM command was unsuccessful
  662. ;       ; the @ indicates that the condition at level 1 must be FALSE.  This of course
  663. ;       ; was last set by the GO FORUM command.
  664. ;
  665. ;
  666. ;***************************************************************
  667. ;* Template Variables                                          *
  668. ;***************************************************************
  669. ;
  670. ;       Template Variables are denoted by the characters &&
  671. ;       these variables are replaced with string values at the
  672. ;       time WinCis generates the script.  Don't confuse template
  673. ;       variables with script variables.  Script variables are
  674. ;       evaluated when the script is executed by WinCis
  675. ;
  676. ;
  677. ;
  678. ; "&&USERID"        CompuServe UserID
  679. ; "&&USERNAME"                 UserName
  680. ; "&&PHONENUMBER"              PhoneNumber
  681. ; "&&LOGONSCRIPT"              LogonScript
  682. ;
  683. ; "&&GATEWAY"         Forum    Gateway
  684. ; "&&FORUMNAME"                Name
  685. ; "&&FORUMTITLE",              Title
  686. ; "&&CONTROLPATH"     Path For Control Files
  687. ; "&&DOWNLOADPATH"             Downloads
  688. ; "&&MESSAGEPATH"              Messages
  689. ; "&&SCRIPTPATH"               Scripts
  690. ;
  691. ; "&&LIBRARY"         Library  Number
  692. ; "&&DOWNLOADFILE"    Download FileName
  693. ; "&&DOWNLOADSIZE"             Filesize
  694. ; "&&DOWNLOADDATE"             Filedate
  695. ; "&&DOWNLOADCOUNT"            #DownLoads
  696. ; "&&DOWNLOADUPLD"             Uploaded by this CIS User
  697. ; "&&DOWNLOADTITLE"            Title Description of File
  698. ;
  699. ; "&&SCANFILE"        LibraryScan FileName
  700. ; "&&SCANAGE"                     Days old or age
  701. ; "&&SCANLIBS"                    Libraries to scan through
  702. ; "&&SCANKEYWORDS"                Keywords to look for
  703. ; "&&SCANTYPE"                    Short or long descriptions
  704. ; "&&SCANDESC"                    Description of this scan
  705. ;
  706. ; "&&READMSGSECTION"  ReadMessage Section Number
  707. ; "&&READMSGNUMBNER"              Thread or Message Number
  708. ;
  709. ; "&&VERSION"         WinCis Version Number
  710. ; "&&DATE"            Date script was created
  711. ; "&&TIME"            Time script was created
  712. ;
  713. ;
  714. ;
  715.  
  716.