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

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

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

revision 1.1 by chupa, Tue Nov 26 01:22:31 2002 UTC revision 1.2 by chupa, Fri Nov 29 15:17:44 2002 UTC
# Line 29  Line 29 
29  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30  ;; general end function  ;; general end function
31  (define (AOLConnect)  (define (AOLConnect)
   (display "AOLConnect\n")  
32    (chat-try 120    (chat-try 120
33            '("Connected"      (chat-success))            '("Connected"      (chat-success))
34            '("Open"           (chat-success))            '("Open"           (chat-success))
# Line 48  Line 47 
47  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
48  ;; Login into an ANS server type  ;; Login into an ANS server type
49  (define (ANSLogin)  (define (ANSLogin)
   (display "AnsLogin\n")  
50    (chat-try 20    (chat-try 20
51            '("login"      (begin            '("login"      (begin
52                           (chat-send "aol\r")                           (chat-send "aol\r")
# Line 61  Line 59 
59  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
60  ;; Login into a BBN server type  ;; Login into a BBN server type
61  (define (BBNLogin2)  (define (BBNLogin2)
   (display "BBNLogin2\n")  
62    (chat-send "aolnet\r")    (chat-send "aolnet\r")
63    (chat-try 20    (chat-try 20
64            '("Password"   (begin            '("Password"   (begin
# Line 71  Line 68 
68            '(else         (chat-failure))))            '(else         (chat-failure))))
69    
70  (define (BBNLogin)  (define (BBNLogin)
   (display "BBNLogin\n")  
71    (chat-try 20    (chat-try 20
72            '("login"      (BBNTalkToNetwork))            '("login"      (BBNTalkToNetwork))
73            '("NO CARRIER" (chat-failure))            '("NO CARRIER" (chat-failure))
# Line 82  Line 78 
78  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
79  ;; Login into a Sprint server type  ;; Login into a Sprint server type
80  (define (SprintLogin2)  (define (SprintLogin2)
   (display "SprintLogin2\n")  
81    (chat-send "aol\r")    (chat-send "aol\r")
82    (chat-try 20    (chat-try 20
83            '("Password"   (begin            '("Password"   (begin
# Line 92  Line 87 
87            '(else         (chat-failure))))            '(else         (chat-failure))))
88    
89  (define (SprintLogin)  (define (SprintLogin)
   (display "SprintLogin\n")  
90    (chat-try 20    (chat-try 20
91            '("Username"   (SprintLogin2))            '("Username"   (SprintLogin2))
92            '("login"      (SprintLogin2))            '("login"      (SprintLogin2))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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