source: project/maintenance/dav-authz-gen.scm @ 15827

Last change on this file since 15827 was 15827, checked in by Mario Domenech Goulart, 10 years ago

Added uri-match directory for syn (DerGuteMoritz?).

  • Property svn:executable set to *
File size: 3.6 KB
Line 
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]
9eggs=mario,felix,azul,rsheridan,chust,ashinn,daishi,kon,zbigniew,hans,sjamaan,arto,iraikov,tbutzon,graham,tonysidaway,shawnw,awgh,elf,sven,pete
10
11eggsread=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,ckeen,syn
12
13maintenance=felix,mario,iraikov
14
15post_commit_tasks=felix,azul,iraikov,kon
16
17[" repo "]
18@eggs = rw
19@eggsread = r
20anonymous = r
21
22[chicken-eggs:/maintenance]
23@eggs = r
24@eggsread = r
25@maintenance = rw
26anonymous = 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    (crypto-tools    (alaric . rw))
86    (uri-dispatch    (certainty . rw))
87    (mailbox-threads (ckeen . rw))
88    (syslog          (certainty . rw))
89    (uri-match       (syn . rw))
90    ))
91
92(print
93#<#EOF
94##************************************************
95##   This file should not be manually edited.
96##   Use dav-authz-gen.scm to change it.   
97##************************************************
98
99EOF
100)
101(print header)
102(for-each (lambda (release)
103            (for-each (lambda (egg)
104                        (print "[" repo (if release (conc "release/" release "/") "")  (car egg) "]")
105                        (for-each (lambda (user/perm)
106                                    (print (car user/perm) " = " (cdr user/perm)))
107                                  (cdr egg))
108                        (print ""))
109                      eggs/users/perms))
110          releases)
111
112
Note: See TracBrowser for help on using the repository browser.