home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / UUCICO.SCR < prev    next >
Encoding:
Text File  |  1996-03-23  |  1.4 KB  |  74 lines
  1. ; ********************************************************************
  2. ; Script:    UUCICO.SCR
  3. ; mb-info:   Scriptdatei für UUCP-Login
  4. ; Ersteller: Holger Lembke
  5. ; Erstellt:  21.09.94
  6. ; Wartung:   04.11.1994, 05.12.1994, 24.02.95, 19.03.95
  7. ; ********************************************************************
  8. call debug.scr
  9. call anruf.scr
  10. message UUCP-Login
  11.  
  12. ; Belegung muß rückwärts erfolgen
  13. event $connectwait error
  14. event 10 sendcr
  15. scan4sub ^pROK^@ startcico
  16. scan4sub ^pShere uucico
  17. scan4sub assword: passwort
  18. scan4sub ogin: systemname
  19.  
  20. ; Hier loopt es. Raus nur, - wenn ein SCAN4SUB eintritt oder carrierverlust
  21. send ^m
  22. @mainloop:
  23. delay 500
  24. goto mainloop
  25.  
  26. @sendcr
  27. send ^m
  28. eventkill 1
  29. goto mainloop
  30.  
  31. @systemname:
  32. message Systemname gesendet..
  33. send $username^m
  34. eventkill all
  35. delay 500
  36. goto mainloop
  37.  
  38. @passwort:
  39. message Passwort gesendet..
  40. send $passwort^m
  41. ; hier muß jetzt Zeit für das Zusammenstellen des Uploads sein!!....
  42. external uparc
  43. goto mainloop
  44.  
  45. ; UUCICO starten
  46. @uucico:
  47. ; Bescheid sagen, daß ich es bin
  48. send ^pS$cicohost^@
  49. goto mainloop
  50.  
  51. @startcico:
  52. ; hier geht's jetzt echt los
  53. scankill all
  54. eventkill all
  55. ; protokol klarmachen, sein's ist mir egal. Wir können nur "g"
  56. ; von ihm könnte kommem ^pPiagGjf^@
  57. delay 1000
  58. send ^pUg^@
  59. delay 1000
  60. status loginok
  61. Message Starte Protokoll....
  62. external uucico
  63.  
  64. ; Schluß
  65. @ende:
  66. Message Beende Verbindung....
  67. call auflegen.scr
  68. exit
  69.  
  70. @error:
  71. exit 2
  72.  
  73.  
  74.