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

#!/usr/bin/csi -script

(define repo "chicken-eggs:/")

(define releases '(#f 2 3 4))

(define header
(conc "[groups]
eggs=mario,felix,azul,rsheridan,chust,ashinn,daishi,kon,zbigniew,hans,sjamaan,arto,iraikov,tbutzon,graham,tonysidaway,shawnw,awgh,elf,sven,pete

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

maintenance=felix,mario,iraikov

post_commit_tasks=felix,azul,iraikov,kon

[" repo "]
@eggs = rw
@eggsread = r
anonymous = r

[chicken-eggs:/maintenance]
@eggs = r
@eggsread = r
@maintenance = rw
anonymous = r
"))
;" <- fooling emacs syntax highlight

(define eggs/users/perms
  '((post-commit-tasks.scm (@eggs . r) (@post_commit_tasks . rw))
    (nondescript    (@eggs . rw) (@eggsread . rw) (anonymous . r))
    (wiki           (svnwiki . rw) (@eggsread . rw))
    (packedobjects  (jptmoore . rw))
    (dpfw           (muresan . rw))
    (scsh-regexp    (muresan . rw))
    (octave         (paf . rw))
    (http-server-form-posts (moe . rw))
    (libapreq-mfd-parser (mejedi . rw))
    (gl-display-glx (thu . rw))
    (gl-font        (thu . rw))
    (glc            (thu . rw))
    (dict           (certainty . rw))
    (SO31           (wmfarr . rw))
    (gsl-srfi-27    (wmfarr . rw))
    (memcached      (alaric . rw))
    (wings          (alaric . rw) (certainty . rw))
    (iup            (asandroq . rw))
    (qdbm           (sven . rw))
    (sendfile       (certainty . rw))
    (pairing-heap   (wmfarr . rw))
    (meroonet       (schemelab . rw))
    (meroonet       (schemelab . rw))
    (methods        (schemelab . rw))
    (minioop        (schemelab . rw))
    (scoop          (schemelab . rw))
    (yasos          (schemelab . rw))
    (matpak         (schemelab . rw))
    (predicate-calculus (naruto . rw))
    (grobner-basis  (naruto . rw))
    (glfw           (asandroq . rw))
    (sxml-templates (moe . rw))
    (srfi-34 (ben . rw))
    (statvfs        (ozzilee . rw))
    (filesystem     (ozzilee . rw))
    (flux           (rm . rw))
    (stacktor       (mfredrickson . rw))
    (geos           (mfredrickson . rw))
    (dbus           (ecloud . rw))
    (caketext       (rlpowell . rw))
    (readline       (mfredrickson . rw))
    (selenium       (rlpowell . rw))
    (sqlite3-records (hadronzoo . rw))
    (plurals        (hadronzoo . rw))
    (date-info     (alaric . rw))
    (lzma           (alaric . rw))
    (gps            (ecloud . rw))
    (soundex        (kburton . rw))
    (cairo          (luke . rw))
    (chicken        (ashley . rw))
    (unicode-normalization (azure . rw))
    (stringprep (azure . rw))
    (ugarit          (alaric . rw))
    (aes          (alaric . rw))
    ))

(print
#<#EOF
##************************************************
##   This file should not be manually edited.
##   Use dav-authz-gen.scm to change it.   
##************************************************

EOF
)
(print header)
(for-each (lambda (release)
            (for-each (lambda (egg)
                        (print "[" repo (if release (conc "release/" release "/") "")  (car egg) "]")
                        (for-each (lambda (user/perm)
                                    (print (car user/perm) " = " (cdr user/perm)))
                                  (cdr egg))
                        (print ""))
                      eggs/users/perms))
          releases)