1 | #!/usr/bin/csi -script |
---|
2 | |
---|
3 | (define repo "chicken-eggs:/") |
---|
4 | |
---|
5 | (define releases '(#f 2 3 4)) |
---|
6 | |
---|
7 | (define header |
---|
8 | (conc "[groups] |
---|
9 | eggs=mario,felix,azul,rsheridan,chust,ashinn,daishi,kon,zbigniew,hans,sjamaan,arto,iraikov,tbutzon,graham,tonysidaway,shawnw,awgh,elf,sven,pete |
---|
10 | |
---|
11 | eggsread=muresan,anonymous,jptmoore,paf,moe,elf,mejedi,bvanevery,thu,certainty,wmfarr,cadmus_sw,alaric,asandroq,awgh,schemelab,ozzilee,rm,mfredrickson,ecloud,gabalz,ashley,etatoby,alanpost,rlpowell,hadronzoo,kburton,azure |
---|
12 | |
---|
13 | maintenance=felix,mario,iraikov |
---|
14 | |
---|
15 | post_commit_tasks=felix,azul,iraikov,kon |
---|
16 | |
---|
17 | [" repo "] |
---|
18 | @eggs = rw |
---|
19 | @eggsread = r |
---|
20 | anonymous = r |
---|
21 | |
---|
22 | [chicken-eggs:/maintenance] |
---|
23 | @eggs = r |
---|
24 | @eggsread = r |
---|
25 | @maintenance = rw |
---|
26 | anonymous = r |
---|
27 | ")) |
---|
28 | ;" <- fooling emacs syntax highlight |
---|
29 | |
---|
30 | (define eggs/users/perms |
---|
31 | '((post-commit-tasks.scm (@eggs . r) (@post_commit_tasks . rw)) |
---|
32 | (nondescript (@eggs . rw) (@eggsread . rw) (anonymous . r)) |
---|
33 | (wiki (svnwiki . rw) (@eggsread . rw)) |
---|
34 | (packedobjects (jptmoore . rw)) |
---|
35 | (dpfw (muresan . rw)) |
---|
36 | (scsh-regexp (muresan . rw)) |
---|
37 | (octave (paf . rw)) |
---|
38 | (http-server-form-posts (moe . rw)) |
---|
39 | (libapreq-mfd-parser (mejedi . rw)) |
---|
40 | (gl-display-glx (thu . rw)) |
---|
41 | (gl-font (thu . rw)) |
---|
42 | (glc (thu . rw)) |
---|
43 | (dict (certainty . rw)) |
---|
44 | (SO31 (wmfarr . rw)) |
---|
45 | (gsl-srfi-27 (wmfarr . rw)) |
---|
46 | (memcached (alaric . rw)) |
---|
47 | (wings (alaric . rw) (certainty . rw)) |
---|
48 | (iup (asandroq . rw)) |
---|
49 | (qdbm (sven . rw)) |
---|
50 | (sendfile (certainty . rw)) |
---|
51 | (pairing-heap (wmfarr . rw)) |
---|
52 | (meroonet (schemelab . rw)) |
---|
53 | (meroonet (schemelab . rw)) |
---|
54 | (methods (schemelab . rw)) |
---|
55 | (minioop (schemelab . rw)) |
---|
56 | (scoop (schemelab . rw)) |
---|
57 | (yasos (schemelab . rw)) |
---|
58 | (matpak (schemelab . rw)) |
---|
59 | (predicate-calculus (naruto . rw)) |
---|
60 | (grobner-basis (naruto . rw)) |
---|
61 | (glfw (asandroq . rw)) |
---|
62 | (sxml-templates (moe . rw)) |
---|
63 | (srfi-34 (ben . rw)) |
---|
64 | (statvfs (ozzilee . rw)) |
---|
65 | (filesystem (ozzilee . rw)) |
---|
66 | (flux (rm . rw)) |
---|
67 | (stacktor (mfredrickson . rw)) |
---|
68 | (geos (mfredrickson . rw)) |
---|
69 | (dbus (ecloud . rw)) |
---|
70 | (caketext (rlpowell . rw)) |
---|
71 | (readline (mfredrickson . rw)) |
---|
72 | (selenium (rlpowell . rw)) |
---|
73 | (sqlite3-records (hadronzoo . rw)) |
---|
74 | (plurals (hadronzoo . rw)) |
---|
75 | (date-info (alaric . rw)) |
---|
76 | (lzma (alaric . rw)) |
---|
77 | (gps (ecloud . rw)) |
---|
78 | (soundex (kburton . rw)) |
---|
79 | (cairo (luke . rw)) |
---|
80 | (chicken (ashley . rw)) |
---|
81 | (unicode-normalization (azure . rw)) |
---|
82 | (stringprep (azure . rw)) |
---|
83 | (ugarit (alaric . rw)) |
---|
84 | (aes (alaric . rw)) |
---|
85 | )) |
---|
86 | |
---|
87 | (print |
---|
88 | #<#EOF |
---|
89 | ##************************************************ |
---|
90 | ## This file should not be manually edited. |
---|
91 | ## Use dav-authz-gen.scm to change it. |
---|
92 | ##************************************************ |
---|
93 | |
---|
94 | EOF |
---|
95 | ) |
---|
96 | (print header) |
---|
97 | (for-each (lambda (release) |
---|
98 | (for-each (lambda (egg) |
---|
99 | (print "[" repo (if release (conc "release/" release "/") "") (car egg) "]") |
---|
100 | (for-each (lambda (user/perm) |
---|
101 | (print (car user/perm) " = " (cdr user/perm))) |
---|
102 | (cdr egg)) |
---|
103 | (print "")) |
---|
104 | eggs/users/perms)) |
---|
105 | releases) |
---|
106 | |
---|
107 | |
---|