home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / SCRIPTS.ZIP / DOSIG.T < prev    next >
Encoding:
Text File  |  1991-10-08  |  3.7 KB  |  103 lines
  1.     :: DOSIG rev 10-8-91  Cruise a CompuServe Special Interest Group
  2.     :: dosig register usage
  3.     ::    s4 saves hi message number
  4.     ::    s5: flag for individual subject prompt - read
  5.     ::    s6: garble detect
  6.     ::    s7: SIG page designation
  7.     ::    s8: prefix for upload messages
  8.     ::    s9: inital command
  9.     echoc "DOSIG: %s7 AT %t"
  10.     sets remote "%s7"
  11.     kbdlock 0
  12.     timestamp
  13.     put "\25g %s7\r"
  14.     set s5 ""
  15.     set f9 "@set s5 x;kbdlock 2;echo OK-ALREADY"
  16.     set s6 ""
  17.     on 20||e>45||!c echoc "Bad/Lost Connection"; return
  18.     pat
  19.     pat 0cp " ^Q " "\021"
  20.     pat 1$v "\nFunction: "    :Desired response
  21.     pat 2v "Function: \b"    :Desired response
  22.     pat 3 "<ENTER>"        :Possible Compuserve snafu
  23.     pat 4 "User ID:"    :CIS may just log you off
  24.     pat 5 "unavailable"
  25.     pat 6 "Fatal error"
  26.     ::if !iremote,allsig pat 7c "Short bulletin:" "\25\017\r"
  27.     pat 8 "hat page is empty"
  28.     pat 9c " RE T)" "\25\r"
  29.     pat 10iv "Forum messages:"
  30.     pat 11 "? MONUTR"
  31.     pat 12 "service is not defined"
  32.     pat 13 "Fatal Error"
  33.     pat 15 "temporarily"
  34.     pat 16v "Forum !\b"
  35.     pat 17c "Control-C Intercepted Menu" "1\r"
  36.     pat 18 " is unrecognized!"
  37.     wait -F90
  38.     if n echoc "90 seconds and no match!!"; timestamp
  39.     if 8||12 putw "\021\25g %s7\r";  wait    : possible garbled cmd
  40.     if 8||12 echoc "Got 8||12" sets sk "%sk 8/12:%s7"; return
  41.     if 10 pat 10i "\r"; wait
  42.     if 10 pat 10 ""; sets s4 "%y1"; wait
  43.     if n set s6 x; put "\021\25\r"; wait       :in case of garble
  44.     if 11 echoc "CIS Total Lossage"; s; sets sk "%sk %s7"; bye; fail
  45.     if 5 mput "\r"; echoc "(Unavailable)"; sets sk "%sk u:"; goto gcis1
  46.     if "15|18" echoc "(%s7 closed.)"; sets sk "%sk c:"; goto gcis1
  47.     if 6||13 echoc "Fatal Message"; sets sk "%sk f:"; goto gcis1
  48.     if 4 s; sets sk "%sk %s7"; fail
  49.     if 3 set s6 x; put "\021\25\r" wait
  50.     if n put "\021\25\r" wait -f55    :No match - try once more
  51.     if n echoc "No Patterns Matched!"; s; goto gcis1
  52.     if !1&&!2&&!16 s; echoc "Wrong Message"; s; goto gcis1
  53.     if jinvok,upl if %s8 expand %lib/upl.t cisupl/%s8*
  54.     if jinvok,dow if %s8 expand %lib/dow.t  cisdow/%s8*
  55.     if %s8 expand %lib/cisupl.t %s8*
  56.     put "\021\25%s9\r"
  57.     pat
  58.     pat 0cp " ^Q " "\021"
  59.     pat 1 " RE T)"        :Message waiting for you
  60.     pat 2i "Function: \b"    :Desired response
  61.     pat 3$ "\nFunction: "    :Desired response
  62.     pat 6c "yam " "@echo YAM\ MENTIONED"
  63.     pat 7c YAM "@echo YAM\ MENTIONED"
  64.     pat 8c Yam "@echo YAM\ MENTIONED"
  65.     pat 9v$ "\nNO CARRIER\r\n"
  66.     pat 11c "\n#: " "@setc now %t"
  67.     pat 12l "\nTo: "
  68.     pat 16 "Forum !\b"
  69.     on "9||e>45||!c" goto ondosig        :If disconnect or bad line
  70. dosg1:    wait
  71.     while 12 echof "Prefix: %s8 Sig: %s7 D/L:%t" wait
  72.     while 1 echoc "SIG: %s7" put "\25\r" goback dosg1 :Bypass RE T questions
  73.     if !3&&!2&&!16 echoc "Timeout waiting for Function prompt"; put "\21"; wait
  74.     if !3&&!2&&!16 echoc "Timeout 2 waiting for Function prompt"; put "\021\25\r"; wait
  75.     if !3&&!2&&!16 echoc "Function prompt not seen"; s; goto gcis1
  76.     : echoc "Function Prompt Detected"
  77.     :: if !is9,rm if %s8 expand %lib/sigrd.t r%s8*; expand %lib/sigrd.t I%s8*
  78.     if %s5 echo " Enter Subjects to scan for, one per line, empty line ends. "
  79.     if %s5 while %s5 accept s5 "subject:" if %s5 put "r;s;s;%s5;n\r" wait -f15
  80.     set f9
  81. @echo "Sorry... Too Late to Stop the Bubble Machine"
  82.     pat 19i "For"
  83.     if js9,qsn split s4; putw "\25OP;HI;%z4;P\r"
  84.     kbdlock 0
  85.     echoc " %s7 Dosig Ends %e errors detected "
  86.     echoc " Last header line seen at %now"
  87.     : echoc "s4 = %s4"
  88.     return
  89. ondosig:    s        :If disconnect or bad line
  90.     echoc "DOSIG error trap"
  91.     if "!c" echoc "Carrier Lost"
  92.     if "9" echoc "Carrier Lost Message Seen"
  93.     if "e>45" echoc "Error Count Exceeded: %e"
  94.     fail
  95. gcis1:    w; echoc "**** DOSIG ERROR RECOVERY (%e Line Hits Detected) ****"
  96.     sets sk "%sk %s7"
  97.     pat; pat 2 "\nOK\r"; pat 3i "TOP"
  98.     while "L<5&&c&&n" put "\021\25TOP\rg cis\r" wait -f15 ife "!n" put "\021\17" return
  99.     bye; fail
  100.  
  101.  
  102.  
  103.