home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / emis14p.zip / zocmt.scr < prev   
Text File  |  1995-01-30  |  3KB  |  141 lines
  1. # ZOC Script für MausTausch
  2. # 
  3. # Setze die Parameter. Das Verzeichnis wird als Parameter übergeben.
  4. seta emisdir "%lastline%"
  5. writeln "%emisdir%"
  6. openfile "%emisdir%\emismt.cfg" "r"
  7. getfile ;# Überspringe die Programm-Id
  8. getfile
  9. seta bbs "%lastline%"
  10. getfile
  11. seta phone "%lastline%"
  12. getfile
  13. seta name "%lastline%"
  14. getfile
  15. seta pass "%lastline%"
  16. closefile
  17.  
  18. #  To test your own script, change the next line to 'debug 1'
  19. debug 0
  20. setn noexit 0
  21.  
  22. #  Set a few values
  23. setn  waittime 30            ;# time between dials
  24. setn  maxtry   20            ;# max number of trys
  25. seta init "" ; # Evtl zusätzlicher Modem-Init-String
  26.  
  27. #INIT-String vorhanden?
  28. compa    "%init%" WITH ""
  29. ifnequ    send "%init%"
  30. ifnequ    wait "OK"
  31. ifequ     send "^M"
  32. delay
  33.  
  34. #   Reset counter, clear screen
  35. setn counter 1
  36. cls
  37.  
  38.  
  39. #   MAIN LOOP
  40. #
  41. :loop0
  42.     #  Dial and see what happens
  43.     #  (if the number contains a ^I (TAB) the following text is used
  44.     #  in the CALLING.LOG instead of logging just the phone number)
  45.     dial "%phone%^I%bbs%"
  46.  
  47.     #  Set timeout to 90sec. and wait for a line of text to come
  48.     timeout 90
  49. :loop1
  50.     waitline
  51.  
  52.     #  if something arrived save incoming line to variable 
  53.     #  (lastline might change duringprocessing)
  54.     ifnbrk seta last "%lastline%"
  55.  
  56.     #  else
  57.     #  if WAITLINE timed out, set our variable to TIMEOUT
  58.     ifbrk  seta last "TIMEOUT"
  59.  
  60.     #  Set text compare to non exact matching (that is CONNECT=CONNECT 1200)
  61.     exact    0
  62.  
  63.     #  compare to for CONNECT or CARRIER and if equal, log in
  64.     compa    "%last%" WITH CONNECT
  65.     ifequ    goto login    
  66.  
  67.     compa    "%last%" WITH CARRIER
  68.     ifequ    goto login    
  69.  
  70.     #  Try again for BUSY, NO CARRIER, NO DIALTONE
  71.     compa    "%last%" WITH BUSY
  72.     ifequ    goto SomeMore    
  73.  
  74.     compa    "%last%" WITH "NO CARRIER"
  75.     ifequ    goto SomeMore    
  76.  
  77.     compa    "%last%" WITH "NO DIALTONE"
  78.     ifequ    goto SomeMore    
  79.  
  80.     #  for TIMEOUT hang up
  81.     compa    "%last%" WITH "NO CARRIER"
  82.     ifequ    hangup
  83.  
  84.  
  85.     #   Ignore anything else (Zyxels say 'RINGING' or V42 say 'PROCOL xxx')
  86.     #  and wait for something we know
  87. goto loop1
  88.  
  89.     #  Increment counter and eventually try again
  90.     #
  91. :SomeMore
  92.     #  ... wait and see if we ...
  93.     delay    %waittime%
  94.  
  95.     #  ... want to try again?
  96.     inc     counter
  97.     compn    %counter% with %maxtry%
  98.     iflow    goto loop0
  99.     ifequ    goto loop0
  100.  
  101. #   No success after %maxtry% tries
  102. goto    fail
  103.  
  104.  
  105.  
  106. ##################
  107. #  LOGIN        #
  108. ##################
  109.  
  110. :login
  111. #  Make a bit noise
  112. beep 1
  113. writeln "^M^J^MConnection established!!"
  114. timeout 30
  115.  
  116. #  MausTausch Schnell-Login
  117. wait  "(J/N)"
  118. send  "MausTausch%name%^m%pass%^mz"
  119.  
  120. # 5 min maximal für das infile
  121. timeout 300
  122. wait "Protokoll startet"
  123. upload z "%emisdir%\infile.zip"
  124.  
  125. # 30 min maximal für das packen des outfiles
  126. timeout 1800
  127. wait "Protokoll startet"
  128. download z "%emisdir%"
  129. timeout 10
  130. wait "NO CARRIER"
  131. compn "%noexit%" with 0
  132. ifequ endzoc
  133. exit
  134. #
  135. #
  136. # FEHLER
  137. :fail
  138. writeln "ERROR"
  139. compn "%noexit%" with 0
  140. ifequ endzoc
  141. exit