3 # on hook and initialize
9 # dial telephone number
12 dial/at -q -t 60 dt^$1
23 # the following can be inherited
39 if( test -e $dev^ctl ){
40 echo -n b^$baud # baud rate
41 echo -n m1 # cts/rts flow control
42 echo -n q64000 # big buffer
43 echo -n n1 # nonblocking writes
46 echo -n c1 # handup wen we lose dcd
49 # get the modem's attention
54 while( ! dialfn $telno )
57 if( ! dial/expect -it 60 'username:' ){
58 echo lra: can''t connect >[1=2]
62 if( ! dial/expect -it 60 'password:' ){
63 echo lra: can''t connect >[1=2]
67 if( ! dial/expect -t 60 'telnet:' ){
68 echo lra: can''t connect >[1=2]
72 echo connected to lra >[1=2]
78 # supply unknowns with inside addresses
79 if( ! grep -s 'auth=' /net/ndb){
80 echo ' auth=135.104.9.7'>>/net/ndb
81 echo ' authdom=cs.bell-labs.com'>>/net/ndb
83 if( ! grep -s 'ntp=' /net/ndb)
84 echo ' ntp=135.104.9.2'>>/net/ndb
85 if( ! grep -s 'dns=' /net/ndb){
86 echo ' dns=135.104.8.38'>>/net/ndb
87 echo ' dns=135.104.70.11'>>/net/ndb
90 # start dns if it isn't already going
91 if(! test -e /srv/dns )