Hex Artifact Content

Artifact 19614066f25f0e415d8e0fbd34fe8d91ea55b238:


0000: 23 21 20 2f 62 69 6e 2f 74 63 6c 6b 69 74 0a 0a  #! /bin/tclkit..
0010: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0020: 74 75 61 70 69 0a 0a 3a 3a 74 75 61 70 69 3a 3a  tuapi..::tuapi::
0030: 69 66 63 6f 6e 66 69 67 20 65 74 68 30 20 61 64  ifconfig eth0 ad
0040: 64 72 65 73 73 20 31 30 2e 30 2e 32 2e 31 35 20  dress 10.0.2.15 
0050: 6e 65 74 6d 61 73 6b 20 32 35 35 2e 32 35 35 2e  netmask 255.255.
0060: 32 35 35 2e 30 20 66 6c 61 67 73 20 7b 42 52 4f  255.0 flags {BRO
0070: 41 44 43 41 53 54 20 4d 55 4c 54 49 43 41 53 54  ADCAST MULTICAST
0080: 20 55 50 7d 0a 3a 3a 74 75 61 70 69 3a 3a 73 79   UP}.::tuapi::sy
0090: 73 63 61 6c 6c 3a 3a 72 6f 75 74 65 20 61 64 64  scall::route add
00a0: 20 30 2e 30 2e 30 2e 30 20 30 2e 30 2e 30 2e 30   0.0.0.0 0.0.0.0
00b0: 20 67 61 74 65 77 61 79 20 31 30 2e 30 2e 32 2e   gateway 10.0.2.
00c0: 32 20 64 65 76 20 65 74 68 30 0a 0a 66 69 6c 65  2 dev eth0..file
00d0: 20 6d 6b 64 69 72 20 2f 65 74 63 20 20 20 0a 73   mkdir /etc   .s
00e0: 65 74 20 66 64 20 5b 6f 70 65 6e 20 2f 65 74 63  et fd [open /etc
00f0: 2f 72 65 73 6f 6c 76 2e 63 6f 6e 66 20 77 5d 0a  /resolv.conf w].
0100: 70 75 74 73 20 24 66 64 20 22 6e 61 6d 65 73 65  puts $fd "namese
0110: 72 76 65 72 20 31 30 2e 30 2e 32 2e 33 22 0a 63  rver 10.0.2.3".c
0120: 6c 6f 73 65 20 24 66 64 0a                       lose $fd.