| 1 | #!/bin/sh |
|---|
| 2 | |
|---|
| 3 | genacl="read:source read read:staff read adm:source la" |
|---|
| 4 | |
|---|
| 5 | case "$1" in |
|---|
| 6 | repository) |
|---|
| 7 | genacl="$genacl write:staff write" |
|---|
| 8 | ;; |
|---|
| 9 | wd) |
|---|
| 10 | genacl="$genacl write:update write" |
|---|
| 11 | ;; |
|---|
| 12 | *) |
|---|
| 13 | echo "Usage: $0 {repository|wd}" |
|---|
| 14 | exit 1 |
|---|
| 15 | ;; |
|---|
| 16 | esac |
|---|
| 17 | |
|---|
| 18 | public="$genacl system:anyuser read" |
|---|
| 19 | fascist="$genacl system:anyuser l" |
|---|
| 20 | auth="$genacl system:anyuser l system:authuser read" |
|---|
| 21 | |
|---|
| 22 | attach -h -n -q gnu |
|---|
| 23 | `athdir /mit/gnu bin`/gfind . -noleaf \ |
|---|
| 24 | -path ./athena/bin/lpr -prune -o \ |
|---|
| 25 | -path ./athena/bin/quota -prune -o \ |
|---|
| 26 | -path ./athena/bin/login -prune -o \ |
|---|
| 27 | -path ./athena/bin/write -prune -o \ |
|---|
| 28 | -path ./athena/bin/voldump -prune -o \ |
|---|
| 29 | -path ./athena/lib/gdss/lib -prune -o \ |
|---|
| 30 | -path ./athena/etc/synctree -prune -o \ |
|---|
| 31 | -path ./athena/etc/ftpd -prune -o \ |
|---|
| 32 | -path ./athena/etc/snmp -prune -o \ |
|---|
| 33 | -path ./third/mwm -prune -o \ |
|---|
| 34 | -path ./third/transcript -prune -o \ |
|---|
| 35 | -type d -print | xargs fs sa -acl $public -clear -dir |
|---|
| 36 | |
|---|
| 37 | find athena/bin/lpr -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 38 | find athena/bin/quota -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 39 | find athena/bin/login -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 40 | find athena/bin/write -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 41 | find athena/bin/voldump -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 42 | find athena/lib/gdss/lib -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 43 | find athena/etc/synctree -type d -print | xargs fs sa -acl $auth -clear -dir |
|---|
| 44 | find athena/etc/ftpd -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 45 | find athena/etc/snmp -type d -print | xargs fs sa -acl $auth -clear -dir |
|---|
| 46 | find third/mwm -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
| 47 | find third/transcript -type d -print | xargs fs sa -acl $fascist -clear -dir |
|---|
