Re: Setting up multiple NICs

[rustand . lars]

Wojtek Kosior <koszko@koszko.org> writes:
>> On Linux, the static-network-service-type should create a file containing
>> "set-up-network" in its name [1]. Will you please locate it with
>> 
>>   ls -ld /gnu/store/*set-up-network*
>
> Btw, it might be even more convenient to do `ls -lhdct`.  This will
> list the items in order from newest to oldest (by real modification
> time, not the fake one used by guix daemon)

Sure here is the list of files:

--8<---------------cut here---------------start------------->8---
-r--r--r-- 1 root root 1.3K Dec  7 08:44 
/gnu/store/g64r168i3v4yiqb0cd32pc7yqggx56wr-set-up-network
-r--r--r-- 1 root root 1.9K Dec  7 08:44 
/gnu/store/y0r29f5i9qzhykvx42w9ddwccsv9f2mc-set-up-network
-r--r--r-- 1 root root 2.1K Dec  7 08:44 
/gnu/store/2v6q6r2qybdz36sfdpiv9ll2k411wwfv-set-up-network-builder
-r--r--r-- 1 root root  936 Dec  7 08:44 
/gnu/store/7vn4rdsln9kr60j8fj3afadkrj9254fj-set-up-network.drv
-r--r--r-- 1 root root 1.3K Dec  7 08:39 
/gnu/store/2fal9d49xlwfisicp59kbvk6qgryawyh-set-up-network
-r--r--r-- 1 root root 1.6K Dec  3 01:05 
/gnu/store/viakdpgib14a0acsvaqb1wiiny38x7vd-set-up-network
-r--r--r-- 1 root root 1.9K Dec  3 00:49 
/gnu/store/748zg4c04r716wfdzr46rrgf1p0rh3gp-set-up-network
-r--r--r-- 1 root root 2.0K Dec  3 00:08 
/gnu/store/95nwcggb4si3ni714jajm8dwvmchfrlm-set-up-network-builder
-r--r--r-- 1 root root  936 Dec  3 00:08 
/gnu/store/f49na8slabsx66xmwbbgmn7siaqd7cwf-set-up-network.drv
-r--r--r-- 1 root root 2.1K Dec  3 00:02 
/gnu/store/3gpmwcymbyawy798x9jh5c50yq9l1lpa-set-up-network
-r--r--r-- 1 root root 2.2K Dec  3 00:02 
/gnu/store/qrpy1m7v2nhpsrmhssv92b4qq5042ia2-set-up-network-builder
-r--r--r-- 1 root root  936 Dec  3 00:02 
/gnu/store/41gww72b45kwqi5gda8r0l2j75nl3x7b-set-up-network.drv
-r--r--r-- 1 root root 1.5K Nov 29 10:04 
/gnu/store/njnka38xz6wpg7yrkl9fzbhhnz5fggmy-set-up-network
-r--r--r-- 1 root root 1.6K Nov 29 09:51 
/gnu/store/f6j5cca8d0spl66q80r5yvv4p8iiy02j-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 29 09:51 
/gnu/store/dq0x3nlybh3vf79zm23hphxagib839vz-set-up-network.drv
-r--r--r-- 1 root root 2.1K Nov 29 09:46 
/gnu/store/gdkzqpiqk9xc3z0n0cq1vvmznm1cl3rs-set-up-network
-r--r--r-- 1 root root 2.2K Nov 29 09:45 
/gnu/store/8d2cy47462nc1ngn8vwpa6n2ydkl8zf0-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 29 09:45 
/gnu/store/h5hiaxm9vxlvfm22d1p218l8jlqjg03s-set-up-network.drv
-r--r--r-- 1 root root 2.8K Nov 29 09:12 
/gnu/store/vyq6sbny5g0kb4d29jgj4lvrk2wiars9-set-up-network
-r--r--r-- 1 root root 2.9K Nov 29 09:11 
/gnu/store/qcxq1ki3ajyjghc6hrj9jc7cxdj3gszp-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 29 09:10 
/gnu/store/wk6k6mn6ihip2cv043b3c9hlhfkqgwys-set-up-network.drv
-r--r--r-- 1 root root 2.5K Nov 23 19:48 
/gnu/store/frmq7p9fqkifp6k4zag21zz7qn1jvb64-set-up-network
-r--r--r-- 1 root root 2.7K Nov 23 19:48 
/gnu/store/vkg6079rr3k8rdyacqyr6fhwjx06gdfx-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 19:48 
/gnu/store/967zsmd46wyvahb4gp54h23j88nnxh7x-set-up-network.drv
-r--r--r-- 1 root root 2.1K Nov 23 19:47 
/gnu/store/sazxsclh6fj4475xsxck48yrrfr5jadz-set-up-network
-r--r--r-- 1 root root 2.3K Nov 23 19:46 
/gnu/store/dzfiyqx3wsx70hn0jdf1bkdmnn6bi0s5-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 19:46 
/gnu/store/0pzwyvlkhx0ayk1d6vh3bagixi440cvj-set-up-network.drv
-r--r--r-- 1 root root 1.5K Nov 23 19:44 
/gnu/store/amppm2x57hv3b295qamj9mnnpny2pqf8-set-up-network
-r--r--r-- 1 root root 1.6K Nov 23 19:44 
/gnu/store/fqcpbwwjq22imylnwl5axjn4hk73w9s7-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 19:44 
/gnu/store/1k4h2mjdrxlaxvcg2c5wcn7c943pd5xl-set-up-network.drv
-r--r--r-- 1 root root 1.5K Nov 23 19:41 
/gnu/store/5ssj3xpnyya8l087plv7kn9iddjiyi5l-set-up-network
-r--r--r-- 1 root root 1.6K Nov 23 19:40 
/gnu/store/1s82g30dr2mpc45awsaqpvb3dz6dwyih-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 19:40 
/gnu/store/l8lw2cfp4caylrwl1ynmmrn2xp3w64s0-set-up-network.drv
-r--r--r-- 1 root root 1.6K Nov 23 19:39 
/gnu/store/9rppan8sc1mkmlhwjfpq9b9mv25gia41-set-up-network
-r--r--r-- 1 root root 1.7K Nov 23 19:39 
/gnu/store/cs4mlsncckmnbi2p73s6ih7n1d3rwfxp-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 19:39 
/gnu/store/l92yy1xacsj01p768smxq2wfwvlgpm19-set-up-network.drv
-r--r--r-- 1 root root 1.6K Nov 23 19:33 
/gnu/store/nipniyr23x74n33sww7q212lwd51v240-set-up-network
-r--r--r-- 1 root root 1.8K Nov 23 19:33 
/gnu/store/3pnsqw2yky6f5nh2jq8v1ajkp9zp5fsx-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 19:33 
/gnu/store/4cqh9fypw9qwq9imw3mngcmvw6p4ql0k-set-up-network.drv
-r--r--r-- 1 root root 1.8K Nov 23 11:08 
/gnu/store/p2qv18daak55nrgjf4n4n1w4d7pjd5rj-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 11:07 
/gnu/store/9n7nci7c448jlcfqfka2hcjv6f105a0q-set-up-network.drv
-r--r--r-- 1 root root 1.5K Nov 23 09:40 
/gnu/store/ba25d8yv1qa5mvml5j2db7541x5f2vjf-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 09:40 
/gnu/store/3lxb8p3iqgb9fvir8hqbzkyq9b0mvs20-set-up-network.drv
-r--r--r-- 1 root root 2.8K Nov 23 09:34 
/gnu/store/9d9my2yrizxc79l84vvplrnajcdnqcg2-set-up-network
-r--r--r-- 1 root root 2.9K Nov 23 09:28 
/gnu/store/2vqr58kayx910xz3rsvlc7lj3rz0l0i5-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 23 09:28 
/gnu/store/6jkanggpg3r1s2j268hp2vb6fpdvjvba-set-up-network.drv
-r--r--r-- 1 root root 2.7K Nov 23 09:21 
/gnu/store/3pkaka6wq19swgi2yxrb0lri8nlqwxi5-set-up-network
-r--r--r-- 1 root root  918 Nov 23 00:00 
/gnu/store/fk6slzbvqwfvg7ici782sic0yp05b4nf-set-up-network
-r--r--r-- 1 root root 2.1K Nov 23 00:00 
/gnu/store/pckmy79lban5fh6nin51says81jlhj9w-set-up-network
-r--r--r-- 1 root root 2.3K Nov 22 23:58 
/gnu/store/mqvv4amw0lj7za3bg9n8vcz0r5j7ky5s-set-up-network-builder
-r--r--r-- 1 root root 1.1K Nov 22 23:58 
/gnu/store/f1ahmarg3nzhq3dk7848vn8pzw1znccp-set-up-network-builder
-r--r--r-- 1 root root  930 Nov 22 23:43 
/gnu/store/j1lpfpz1ksbxyg8ykwyjgxg855n66raj-set-up-network.drv
-r--r--r-- 1 root root  930 Nov 22 23:43 
/gnu/store/y5bi5a1pwd2qkw0aznfc87g7f13zm819-set-up-network.drv
-r--r--r-- 1 root root  936 Nov 22 22:02 
/gnu/store/i16kkanalxhddszqyy931lnkz7r1wh27-set-up-network.drv
-r--r--r-- 1 root root  936 Nov 22 22:02 
/gnu/store/jpxr76hv6w6if52j9l7vgfi0y80rr3s0-set-up-network.drv
-r--r--r-- 1 root root 1.4K Nov 22 21:16 
/gnu/store/qm7kk3msk6rd12q2ssviqay1jmvrc81w-set-up-network-builder
-r--r--r-- 1 root root 2.9K Nov 22 21:16 
/gnu/store/y6rmw1wdi8xj6yll6hkfdflgakd9a1rm-set-up-network-builder
-r--r--r-- 1 root root  936 Nov 22 21:01 
/gnu/store/ggcg18gpac9zd4l183617jb188y4gasy-set-up-network.drv
-r--r--r-- 1 root root  936 Nov 22 21:01 
/gnu/store/17gqgb342ynid20h0p0zmiwnrp6kxlbm-set-up-network.drv
-r--r--r-- 1 root root  884 Nov 21 21:56 
/gnu/store/4j8vdqrxsbfjxqcl62kn4xl4fdp9ysc1-set-up-network
--8<---------------cut here---------------end--------------->8---


And this is the contents of the newest one:

--8<---------------cut here---------------start------------->8---
(eval-when (expand load eval) (let ((extensions (quote 
("/gnu/store/1wg092wqd4041n7k11g17machlmpb5w0-guile-netlink-1.2.1"))) (prepend 
(lambda (items lst) (let loop ((items items) (lst lst)) (if (null? items) lst 
(loop (cdr items) (cons (car items) (delete (car items) lst)))))))) (set! 
%load-path (prepend (cons 
"/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" (map (lambda 
(extension) (string-append extension "/share/guile/site/" (effective-version))) 
extensions)) %load-path)) (set! %load-compiled-path (prepend (cons 
"/gnu/store/pp2cqdcpaxvw3fka3d6d16c0q9yz37d5-module-import-compiled" (map 
(lambda (extension) (string-append extension "/lib/guile/" (effective-version) 
"/site-ccache")) extensions)) %load-compiled-path))))(begin (use-modules (ip 
addr) (ip link) (ip route) (srfi srfi-1) (ice-9 format) (ice-9 match)) (define 
(match-link-by field-accessor value) (fold (lambda (link result) (if (equal? 
(field-accessor link) value) link result)) #f (get-links))) (define 
(alist->keyword+value alist) (fold (match-lambda* (((k . v) r) (cons* 
(symbol->keyword k) v r))) (quote ()) alist)) #f (begin (wait-for-link "lo" 
#:blocking? #f) (addr-add "lo" "127.0.0.1/8" #:ipv6? #f) (link-set "lo" 
#:multicast-on #t #:up #t))
--8<---------------cut here---------------end--------------->8---