Current Shareware 1994 January/SHAR194.ISO/modem/cs_mac08.zip/ACTION.MAC

Text File | 1993-10-24 | 15KB | 407 lines

 ┌────────────────────────────────┐
 │  Chuck Seyboldt's COMMO Macro  │   CS-MAC08:ACTION.MAC
 └────────────────────────────────┘

 {:|}    {send ~|}      {retu}
 {:n}    {send ~n}      {retu}
 {:n|}   {send ~n|}     {retu}
 {:y|}   {send ~y|}     {retu}
 {:loe}  {send ~^[^[}   {retu}

    ┌──────────────────────────────────┐
┌───┤  COMMO "ACTION processor" macro  ├───
    └──────────────────────────────────┘
  *
  *  ACTION.MAC reads simple ASCII files and sends commands and
  *  strings to the BBS based on the ACTION file.  Setup for PCBoards.
  *
  *  You may make an ACTION file manually with a text editor.
  *  An ACTION file generator is included later as the :alf macro command.
  *  Located in the COMMO home dir, the ACTION file has this sort of format:
  *
*┌───────────────────────────────  action.nl  ─┐
*│ u                                           │ < "U" for upload
*│ filename.ul                                 │ < Name the file to u/l
*│ A line of file desription.  Up to 45 chars  │ < decription
*│ in length.  Multiple line descriptions are  │
*│ supported if your BBS host allows them.     │
*│ --                                          │ < "--" to end ACTION item
*│ d                                           │ < "D" for download
*│ file1.dl                                    │ < batch downloads allowed
*│ another.zip                                 │
*│ filemore.lhz                                │
*│ --                                          │ < "--" is important
*│ u                                           │
*│ another.zip                                 │
*│ /Private to the sysop.  Thanks for the fish │
*│ --                                          │ < Esp. at the very end.
*└─────────────────────────────────────────────┘
  *
 {:action}
         {sete-P0 esc}
         {ifex %_hom%action.%abbr,,esc}
         {rope %_hom%action.%abbr,act-end}              <- START here
 {:reread}
         {pops-c}
         {setl 60,,10,|}
         {read cmd}                          ;read line of ACTION file
         {comp cmd,--}  {ifco reread}        ;branch to appropriate ACTION
         {comp cmd,a}   {ifco asciup}
         {comp cmd,j}   {ifco joincn}
         {comp cmd,d}   {ifco dlfile}
         {comp cmd,u}   {ifco ulfile}
         {comp cmd,z}   {ifco zippy}
         {comp cmd,g}   {ifco g_bye}         ;if no match, end ACTION

 {:act-end}                                  ;When at end of ACTION list
         {exec-n echo ^j*-*-* %_dat %_tim >> %savedir\used-act.%abbr}
         {exec-n type %_hom%action.%abbr  >> %savedir\used-act.%abbr}
         {exec-n del  %_hom%action.%abbr}
         {setv line}  {setv fname}
         {setv cmd}   {setv bb}
 {:esc}  {macl logon.mac,noact}                         <-  END here

 ┌──────────────────────────────┐
 │  Download processor section  │
 └──────────────────────────────┘

 {:dlfile}
         {send %cmd%|}                  ;Setup is for Zmodem BATCH downloads
         {golo skip,not avai}           ;If host doesn't allow d/l, skip it
 {:next-d}{read fname}                  ;Read one complete line into %fname%
         {inst fname,--} {ifco do-dl}
         {ifex %dldir\%fname,next-d}    ;Don't try to d/l files that exist
         {send %fname%~~ }              ;Send filename to BBS
         {goto next-d}                  ;Repeat read til dl-list is all read
 {:do-dl}{send |~~|~~|}                 ;Start download
         {call dlfile-%prot}            ;call file download subroutine
         {look %bbs_pmt}
         {goto reread}                  ;end of "D" ACTION processor

 ┌────────────────────────────┐
 │  Upload processor section  │
 └────────────────────────────┘

 {:ulfile}
         {read fname}                   ;Upload ACTION starts
         {ifex %uldir\%fname,,skip}     ;Make sure file exists on your disk
         {send u %fname% %prot|}        ;Tell host to get ready for u/l
         {golo skip,Insufficient}       ; disk space for complete upload!
         {golo skip,not avai}           ;If host doesn't allow u/l, or
         {golo skip,y exists}           ;If host says file already exists,
         {golo skip,plicates}           ;  skip this u/l action item.
         {look ximum)}                  ;Host is ready for description.
 {:desc} {read line}
         {comp line,--}                 ;Check for end of u/l action
         {ifco ul_ok}
         {send ~%line%|}                ;Send description line
         {goto desc}                    ;and look for more description
 {:ul_ok}{send ~|}
         {call ulfile-%prot}            ;call file transfer subroutine
         {setl 60,,30,|}                ;Allow time for file validation
         {push}
         {golo |,remain online...}      ;for upload processing OK
         {look %bbs_pmt}
         {goto reread}                  ;end of "U" ACTION processor

 ┌────────────────────────────┐
 │  Skip to next action item  │
 └────────────────────────────┘

 {:skip} {read line}                    ;SKIP section jumps to next
         {comp line,--}                 ;  action item by reading to
         {ifco ,skip}                   ;  the next "--" string.
         {send |}
         {setl 50,,3,|}
         {look %bbs_pmt}
         {goto reread}                  ;alternate end of "U" processor

  *  ASCII uploads take a special form.  Here is an example message.
  *  You may need to structure ASCII upload messages differently.
  *
*┌──────────────────────────────────  hijack ──┐
*│ jack kilday                                 │ < Message Recipient
*│ Thanks for the Fish                         │ < Message Subject
*│ n                                           │ < Public/Private msg flag
*│ u                                           │ < Use ASCII u/l, not editor
*│ Hi Jack,                                    │
*│                                             │
*│     Just stopping in with a test of a COMMO │
*│ ACTION macro processor.  I also wanted to   │
*│ give you a big THANK YOU for all the fish.  │
*│ They were delicious.                        │
*│                                             │
*│                                   Chuck·S   │
*└─────────────────────────────────────────────┘
  *
 {:asciup}
         {read fname}                   ;ASCII upload to PCBoard system
         {ifex %dldir\%fname%,,reread}
         {parm ,,,,2}                   ;Set character pacing
         {send e|}                      ;Send "E" to start message entry
         {asci %dldir\%fname%,}         ;Send the structured message
         {parm ,,,,0}                   ;No character pacing
         {send ~~|~~~sn|}               ;the PCBoard "save" command
         {look %bbs_pmt}
         {goto reread}                  ;end of "A" processor

 ┌───────────────────────────┐
 │  Join conference section  │
 └───────────────────────────┘

 {:joincn}
         {read fname}                   ;Join PCBoard Conference
         {send j %fname|}
         {push}
         {golo n|,)=yes?}               ;Skip mail scan
         {golo |,invalid}               ;If you choose invalid conf
         {golo n|,(H)elp}               ;If you chose invalid conf
         {golo 0|,none?}                ;To conf 0 on invalid conf
         {look %bbs_pmt}  {pops}
         {goto reread}                  ;end of "J" processor


 ┌──────────────────────┐
 │  Zippy scan section  │
 └──────────────────────┘

 {:zippy}
         {read fname}
         {clea}
         {send z %fname a|}
         {capt y,%savedir\zippy.%abbr}
         {exec-n echo OPENED  ■  %_dat %_tim^j>> %_cap}
         {push}
         {golo |,more?}
         {look %bbs_pmt}  {pops}
         {clea}
         {exec-n echo CLOSED  ■  %_dat %_tim^j■-■-■>> %_cap}
         {capt n}
         {goto reread}

 ┌───────────────────┐
 │  Goodbye section  │
 └───────────────────┘

 {:g_bye}{paus 1} {alarm 1} {parm ,,,,0} {disp ,,,^j^j}
         {disp ,18,1E,▌ 'G' to LogOFF NOW ■ SpaceBar to stay ON  ▐}
         {disp ,,,^m}
         {setg 10,bye,n} {gets-h resp,1,bye};using Commo for timed branch
         {comp resp,g} {ifco bye}           ;10 second delay, default=bye
         {comp resp, } {ifco sta}

 {:sta}  {clea}                     ;"Stay" routine
         {setv bbsid}
         {setv capture}             ;clear flag to avoid closing .CAP
         {goto reread}

 {:bye}  {send %bye%%rs}
         {setl 10,,,}
         {push}

         {golo loe,<esc>}           ;stifle host delays
         {golo y|, log off }
         {golo y|, logoff? }
         {golo y|,Are you sure}     ;MajorBBS
         {golo y|,Log Off?}         ;Virtual BBS
         {golo n|, comment }
         {golo |,?=help]?}          ;Charlie's Foxhole
         {golo n,your choice -->}   ;EXEC-PC
         {golo |,to continue:}      ;Babble

         {look NO CARRIER^m^j}      ;comes from modem
         {pops}
         {hang y}
         {goto reread}

    ┌───────────────────────────────────┐
└───┤  End Of "ACTION processor" macro  ├───────
    └───────────────────────────────────┘

    ┌─────────────────────────────┐
┌───┤  "ACTION generator"  macro  ├───
    └─────────────────────────────┘
  *
  *  This macro uses PKUNZIP to automatically insert the file
  *  description from a DESC.SDI or a FILE_ID.DIZ that might be
  *  found in a ZIP file.
  *
  *  This macro isn't commented.  It is pretty easy to follow.

 {:alf}  {sete-p0 no_del}
         {inpu abbr,Make ^(ACTION^) file:  What BBS?}   <- START Here
         {comp abbr}    {ifco opena}
         {subs abbr,1,2,%abbr}
 {:opena}{wope-a %_hom%action.%abbr}

 {:icmnd}{setv cmd} {setv fname} {setv line}
         {sete-p0 no_del}
         {setv _menu1, D   Download}
         {setv _menu2, U   Upload}
         {setv _menu3, Z   Zippy scan}
         {setv _menu4, A   Ascii Upload}
         {setv _menu5, J   Join Conf}
         {setv _menu6, G   Goodbye}
         {setv _menu8, X   eXit & Edit}
         {setv _menter,e_cmnd}
         {setv _mlabel,makeau,,,makedl,,,makegb,,,makejn,,,,,,,,,,,makeul,,,e_cmnd,,makezi}
         {menu 12,18, Action  Menu }
         {goto e_cmnd}

         {inpu cmd,^(U^)pload, ^(D^)ownload, ^(A^)scii Upload, ^(J^)oin Conf?}
         {comp cmd,u}   {ifco makeul}
         {comp cmd,d}   {ifco makedl}
         {comp cmd,a}   {ifco makeau}
         {comp cmd,j}   {ifco makejn}
         {comp cmd,g}   {ifco makegb}
         {comp cmd,z}   {ifco makezi}
         {comp cmd}     {ifco ,icmnd}
 {:e_cmnd}
         {wclo}         {edit %_hom%action.%abbr}
         {ifex %_hom%action.%abbr,,no_del}
         {rope %_hom%action.%abbr}
         {read line}    {rclo}                  ;check for empty
         {comp line}    {ifco ,no_del}          ;ACTION file
         {exec-n del %_hom%action.%abbr}        ;delete if empty
 {:no_del}
         {setv cmd}     {setv fname} {setv line}
         {comp mt}      {ifco ,menu}
         {macl %_mac,auto}                              <- END Here
 {:menu} {macl cs-mac.mac,clect}                        <-  or here

 {:makegb}
         {writ g}
         {writ --}
         {goto e_cmnd}

 {:makejn}
         {inpu fname,Name or Number of Conference to Join}
         {comp fname}   {ifco icmnd}
         {writ j}
         {writ %fname}
         {writ --}      {goto icmnd}

 {:makeau}
         {inpu fname,Name the ASCII Upload}
         {comp fname}   {ifco icmnd}
         {ifex %dldir\%fname,,makeau}
         {writ a}
         {writ %fname}
         {writ --}      {goto icmnd}

 {:makedl}
         {setv fname}   {setv count,1}
         {inpu fname,Name a File that you want to DownLoad}
         {comp fname}   {ifco icmnd}
         {writ d}
 {:dlmore}
         {writ %fname}
         {incr count}   {setv fname}
         {inpu fname,File #%count% to Download?}
         {comp fname}   {ifco ,dlmore}
         {writ --}      {goto icmnd}

 {:makeul}
         {inpu fname,Name the file to upload}
         {comp fname}   {ifco icmnd}
         {ifex %dldir\%fname,descul,makeul}
 {:descul}
         {exec-d %pk_un -v %dldir\%fname desc.sdi file_id.diz}
         {ifer 1,,diz_dsc}
         {setv count,1}
         {setv line}
         {inpu line,One line description of %fname% Required}
         {comp line}    {ifco icmnd}
         {writ u}       {write %fname}
         {writ %line}   {incr count}
 {:mdesc}{setv line}    {inpu line,Line %count% of %fname% description}
         {comp line}    {ifco endul}
         {writ %line}   {incr count}
         {goto mdesc}
 {:endul}{writ --}      {goto icmnd}

 {:diz_dsc}
         {writ u}       {write %fname}
         {setv file,file_id.diz}
 {:add_dsc}
         {exec-d %pk_un -v %uldir\%fname %file}
         {ifer 1,chk_sdi}
         {exec-n %pk_un -o %uldir\%fname %ramdr\ %file}
         {rope %ramdr\%file,endul}
 {:diz_lp}
         {read line}
         {writ %line}
         {goto diz_lp}
 {:chk_sdi}
         {setv file,desc.sdi}
         {goto add_dsc}

 {:makezi}
         {inpu fname,Zippy Scan Text}
         {comp fname}   {ifco icmnd}
         {writ z}
         {writ %fname}
         {writ --}      {goto icmnd}


    ┌───────────────────────────────────┐
└───┤  End Of "ACTION generator" macro  ├───────
    └───────────────────────────────────┘

 ┌──────────────────────────────────────┐
 │  File Transfer protocol subroutines  │
 └──────────────────────────────────────┘
  *
  *  This arrangement provides a method to easily expand the file
  *  transfer protocols that one might use.

 ┌──────────┐
 │  Zmodem  │
 └──────────┘
 {:ulfile-z}
 {:ulfile-}                             ;default protocol is "Z"
         {look ^xB01}                   ;Zmodem .REP Upload
         {exec-n %z_prog port %_por ha bo sz -m %uldir\%fname}
         {retu}

 {:dlfile-z}
 {:dlfile-}                             ;default protocol is "Z"
         {push}
         {golo reread,%bbs_pmt}         ;if no filenames matched
         {golo n|,ed? [}                ;Wildcat logoff after transfer
         {golo z|,] ? [}                ;Wildcat protocol select
         {look ^xB00}
         {pops}
         {exec-n %z_prog port %_por ha bo rz -mr %dldir}
         (exec-n %z_prog port %_por ha bo rz -mr %dldir>NUL)
         {golo reread,] ? [}            ;At Wildcat File Menu
         {retu}

 ┌──────────┐
 │  Ymodem  │
 └──────────┘
 {:ulfile-y}                            ;Ymodem File Upload
         {paus 10}
         {symo-k %uldir\%fname}
         {retu}

 {:dlfile-y}                            ;Ymodem File Download
         {paus 10}
         {rymo-y %dldir}                ;overwrite exiting files
         {retu}

 ┌──────────┐
 │  Xmodem  │
 └──────────┘
 {:ulfile-x}                            ;Xmodem File Upload
         {paus 10}
         {sxmo-y %uldir\%fname}
         {retu}

 {:dlfile-x}                            ;Xmodem File Download
         {paus 10}
         {send g}
         {rxmo-y %dldir\%fname}
         {retu}