29 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
30 |
|
|
31 |
|
|
32 |
(define (TalkToNetwork) |
(define (talk-to-network) |
33 |
(chat-send "aoluser@aol.com\r") |
(chat-send "aoluser@aol.com\r") |
34 |
(chat-try 20 |
(chat-try 20 |
35 |
'("Password" (ConnectToAOL)) |
'("Password" (begin |
36 |
'("NO CARRIER" (chat-failure)) |
(chat-send "aolpw\r") |
37 |
'(else (chat-failure)))) |
(chat-try 60 |
38 |
|
'("Connected" (chat-success)) |
39 |
|
'("Open" (chat-success)) |
40 |
|
'("Unavailable" (chat-failure)) |
41 |
|
'("Connect Failed" (chat-failure)) |
42 |
|
'("Not Available" (chat-failure)) |
43 |
|
'("Unreachable" (chat-failure)) |
44 |
|
'("No Connection" (chat-failure)) |
45 |
|
'("Bad Password" (chat-failure)) |
46 |
|
'("Failed" (chat-failure)) |
47 |
|
'("Login Invalid" (chat-failure)) |
48 |
|
'("Invalid User" (chat-failure)) |
49 |
|
'("Error in" (chat-failure)) |
50 |
|
'("Server Timeout" (chat-failure)) |
51 |
|
'("NO CARRIER" (chat-failure)) |
52 |
|
'(else (chat-failure))))) |
53 |
|
'("NO CARRIER" (chat-failure)) |
54 |
|
'(else (chat-failure)))) |
55 |
|
|
56 |
(define (TalkToLivingston) |
(define (talk-to-livingston) |
57 |
(chat-send "aoluser@aol.com\r") |
(chat-send "aoluser@aol.com\r") |
58 |
(chat-try 20 |
(chat-try 20 |
59 |
'("Password" (ConnectToAOLBlind)) |
'("Password" (begin |
60 |
|
(chat-send "aolpw\r") |
61 |
|
(chat-try 10 |
62 |
|
'("Unavailable" (chat-failure)) |
63 |
|
'("Connect Failed" (chat-failure)) |
64 |
|
'("Not Available" (chat-failure)) |
65 |
|
'("Unreachable" (chat-failure)) |
66 |
|
'("No Connection" (chat-failure)) |
67 |
|
'("Bad Password" (chat-failure)) |
68 |
|
'("Failed" (chat-failure)) |
69 |
|
'("Login Invalid" (chat-failure)) |
70 |
|
'("Error in" (chat-failure)) |
71 |
|
'("Server Timeout" (chat-failure)) |
72 |
|
'("NO CARRIER" (chat-failure)) |
73 |
|
'(else (chat-success))))) |
74 |
'("NO CARRIER" (chat-failure)) |
'("NO CARRIER" (chat-failure)) |
75 |
'(else (chat-failure)))) |
'(else (chat-failure)))) |
76 |
|
|
|
(define (ConnectToAOL) |
|
|
(chat-send "aolpw\r") |
|
|
(AOLConnect)) |
|
|
|
|
|
(define (AOLConnect) |
|
|
(chat-try 60 |
|
|
'("Connected" (chat-success)) |
|
|
'("Open" (chat-success)) |
|
|
'("Unavailable" (chat-failure)) |
|
|
'("Connect Failed" (chat-failure)) |
|
|
'("Not Available" (chat-failure)) |
|
|
'("Unreachable" (chat-failure)) |
|
|
'("No Connection" (chat-failure)) |
|
|
'("Bad Password" (chat-failure)) |
|
|
'("Failed" (chat-failure)) |
|
|
'("Login Invalid" (chat-failure)) |
|
|
'("Invalid User" (chat-failure)) |
|
|
'("Error in" (chat-failure)) |
|
|
'("Server Timeout" (chat-failure)) |
|
|
'("NO CARRIER" (chat-failure)) |
|
|
'(else (chat-failure)))) |
|
|
|
|
|
(define (ConnectToAOLBlind) |
|
|
(chat-send "aolpw\r") |
|
|
(AOLConnectBlind)) |
|
|
|
|
|
(define (AOLConnectBlind) |
|
|
(chat-try 10 |
|
|
'("Unavailable" (chat-failure)) |
|
|
'("Connect Failed" (chat-failure)) |
|
|
'("Not Available" (chat-failure)) |
|
|
'("Unreachable" (chat-failure)) |
|
|
'("No Connection" (chat-failure)) |
|
|
'("Bad Password" (chat-failure)) |
|
|
'("Failed" (chat-failure)) |
|
|
'("Login Invalid" (chat-failure)) |
|
|
'("Error in" (chat-failure)) |
|
|
'("Server Timeout" (chat-failure)) |
|
|
'("NO CARRIER" (chat-failure)) |
|
|
'(else (chat-success)))) |
|
77 |
|
|
78 |
|
|
79 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
80 |
;; Main entry point |
;; Main entry point |
81 |
(define (chat-connect) |
(define (chat-connect) |
82 |
(chat-try 20 |
(chat-try 20 |
83 |
'("Login" (TalkToNetwork)) |
'("Login" (talk-to-network)) |
84 |
'("Username" (TalkToNetwork)) |
'("Username" (talk-to-network)) |
85 |
'("Livingston" (TalkToLivingston)) |
'("Livingston" (talk-to-livingston)) |
86 |
'("NO CARRIER" (chat-failure)) |
'("NO CARRIER" (chat-failure)) |
87 |
'(else (chat-failure)))) |
'(else (chat-failure)))) |