home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / RXSAMPLE / TUTORIAL / 99_FIDO.ZRX < prev   
Text File  |  1996-08-26  |  4KB  |  126 lines
  1. /* REXX 
  2. **
  3. **  Dies ist ein nichtfunkionierender Rumpf zur Erstellung eines
  4. **  AutoLogin-Scripts. Allerdings wird ein derartiges Script unter
  5. **  nie gebraucht werden, da einfache AutoLogins ohne Programmierung
  6. **  per Telefonbucheintrag erlernt werden kînnen.
  7. **
  8. **  Szenario:
  9. **    Angenommen, Zaphod Beeblebrox verwendet die Megadodo-BBS auf
  10. **    Ursa Minor Beta, umd neue Nachrichten downzuloaden und seine
  11. **    offline geschriebenen Antworten upzuloaden.
  12. **    Dieses Script wÑhlt solange die Mailbox an, bis ein CONNECT
  13. **    aufgebaut ist. Dann geht es zum HauptmenÅ und downloaded ein
  14. **    neues Nachrichtenpaket, und, wenn vorhanden, uploaded Zaphod's
  15. **    Antworten.
  16. **
  17. */
  18.  
  19.  
  20. /* Benutzer vor unbeabsichtigtem AnwÑhlen von Ursa Minor Beta schÅtzen */
  21.  
  22. CALL ZocMsgBox "Dies ist nur ein Beispiel und nicht zum AusfÅhren gedacht"
  23.  
  24. really= ""
  25. yesno= ""
  26. DO UNTIL yesno="##NO##"
  27.     yesno= ZocMsgBox("Bist Du "||wirklich||" sicher, da· Du einen Anruf "||,
  28.                     "quer durch das ganze Universum machen willst?", 2)
  29.     IF yesno="##YES##" THEN DO 
  30.         really= really||" wirklich"
  31.     END
  32. END
  33. SIGNAL finish
  34.  
  35.  
  36. number=   "555-555-5555-6879"
  37. user=     "Zaphod"
  38. pwd=      "HeartOfGold"
  39. repfile=  "c:\files\qwk\megadodo.rep"
  40.  
  41. CALL ZocTimeout 60
  42.  
  43. /******************************************/
  44. /* Nummer anwÑhlen und auf Antwort warten */
  45. /* Maximal drei Versuche                  */
  46. /******************************************/
  47. done= "nein"
  48. DO 3 UNTIL DONE="ja"
  49.     CALL ZocDial number
  50.     timeout= ZocWait("CONNECT")
  51.  
  52.     /* wenn kein Timeout (also CONNECT) */
  53.     IF timeout=0 THEN DO 
  54.  
  55.         /* einloggen (Name/Pa·wort senden) */
  56.         CALL ZocWait "Bitte zweimal <ESC> drÅcken"
  57.         CALL ZocSend "^[^["
  58.         CALL ZocWait "Name?"
  59.         CALL ZocSend user||"^M"
  60.         CALL ZocWait "Pa·wort?"
  61.         CALL ZocSend pwd||"^M"
  62.  
  63.         /* News Åberspringen und auf das HauptmenÅ warten */
  64.         CALL ZocRespond "--Return--", "^M"
  65.         CALL ZocRespond "--Mehr--", "N"
  66.  
  67.         CALL ZocWait "HAUPTMENö>"
  68.  
  69.         CALL ZocRespond "--Return--"
  70.         CALL ZocRespond "--Mehr--"
  71.  
  72.         DONE= "ja"
  73.     END
  74.  
  75. END /* DO 3 */
  76.  
  77. /******************************************/
  78. /* wenn ein QWK-Paket vorhanden ist,      */
  79. /* downloaden                             */
  80. /******************************************/
  81. CALL ZocSend "Q^M"  /* Auswahl 'Q' im HauptmenÅ */
  82. CALL ZocTimeout 5
  83. timeout= ZocWait("Packen ...")
  84. IF timeout\=640 THEN DO 
  85.     /* Packen kann einige Zeit dauern */
  86.     CALL ZocTimeout 360
  87.     timeout= ZocWait("Download JETZT starten!")
  88.     IF timeout\=640 THEN DO 
  89.         /* Download ins Verzeichnis C:\QWK\MEGADODO */
  90.         CALL ZocDownload("ZMODEM", "C:\QWK\MEGADODO")
  91.     END
  92. END
  93.  
  94. /******************************************/
  95. /* wenn ein Paket zum Uploaden da ist,    */
  96. /* uploaden                               */
  97. /******************************************/
  98. IF stream(repfile,"C","QUERY EXISTS")\="" THEN DO
  99.     CALL ZocSend "R^M"  /* Auswahl 'R' im HauptmenÅ */
  100.     CALL ZocWait "Upload JETZT starten!"
  101.  
  102.     /* Paket uploaden */
  103.     status= ZocUpload("ZMODEM", repfile)
  104.  
  105.     /* Aufwecken und auf das HauptmenÅ warten */
  106.     CALL ZocSend "^M"
  107.     CALL ZocWait "HAUPTMENö>"
  108.  
  109.     /* wenn erfolgreich Åbertragen, Datei lîschen */
  110.     IF status="##OK##" THEN DO 
  111.         CALL ZocShell "DEL "||repfile
  112.     END
  113. END
  114.  
  115. /******************************************/
  116. /* OK, alles erfolgreich, ausloggen       */
  117. /******************************************/
  118. CALL ZocSend "G^M"  /* Auswahl 'G' im HauptmenÅ */
  119. CALL ZocTimeout 30
  120. CALL ZocWait "Bis zum nÑchsten Mal"
  121. CALL ZocHangup
  122.  
  123. finish:
  124. EXIT
  125.  
  126.