blob: a3e673834db5945370d77ffd9f5412f2767191a9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/bin/rc
fn confignet{
# get primary default interface if not specified
if(~ $#* 0){
e=/net/ether*
if(! ~ $e '/net/ether*')
*=(ether $e(1))
}
# setup wifi encryption if any
if(~ $1 ether && ~ $service terminal && test -x /bin/aux/wpa){
if(grep -s '^status: need authentication' $2/ifstats >[2]/dev/null){
aux/wpa -p $2
}
}
must ip/ipconfig -p $*
if(~ $#fs 0)
fs=`{awk -F'=' '/^[ ]*fs=/{print $2}' /net/ndb}
if(~ $#auth 0)
auth=`{awk -F'=' '/^[ ]*auth=/{print $2}' /net/ndb}
if(~ $#fs 0)
ask fs ' address is? ' $auth(1)
if(~ $#auth 0)
ask auth ' address is? ' $fs(1)
# resolve dns names
if(test -x /bin/ndb/dnsgetip){
for(i in fs auth secstore){
x=`{for(x in $$i) ndb/dnsgetip -a $x}
~ $#x 0 || $i=$x
}
}
# set bootstrap authservers for factotum
if(! ~ $#auth 0){
grep -v '^[ ]*auth=' /net/ndb >/env/x
cat /env/x <{echo ' auth='^$auth^'
'} >/net/ndb
rm /env/x
}
}
fn connecttcp{
while(! ~ $#fs 0 && ! srv -q tcp!$fs(1)^!564 boot)
fs=$fs(2-);
fs=$fs(1)
}
fn connecttcptls{
while(! ~ $#fs 0 && ! srv -qe 'tlsclient -t <{echo $fsthumb} tcp!'^$fs(1)^!5564 boot)
fs=$fs(2-);
fs=$fs(1)
}
fn connectil{
while(! ~ $#fs 0 && ! srv -q il!$fs(1)^!17008 boot)
fs=$fs(2-);
fs=$fs(1)
}
mtcp=(confignet connecttcp)
mtcptls=(confignet connecttcptls)
mil=(confignet connectil)
mt=(mtcp mtcptls mil $mt)
|