/[pengfork]/pengfork/doc/config/global2.scm
ViewVC logotype

Diff of /pengfork/doc/config/global2.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by chupa, Sat Dec 7 14:01:23 2002 UTC revision 1.4 by chupa, Thu Jan 2 13:43:48 2003 UTC
# Line 29  Line 29 
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))))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26