Move things around and add web interface support code.
[invirt/packages/invirt-remote.git] / files / usr / sbin / remctl-update.sh
1 #!/bin/sh
2 DIR=/etc/remctl/sipb-xen-auto
3 TEMPLATE=$DIR/conf.template
4 MACHINEDIR=$DIR/machine.d
5 MOIRADIR=$DIR/moira-acl
6 MOIRATMP=$DIR/moira-tmp
7 MACHINETMP=$DIR/machine-list-tmp
8 AUTOMACHINELIST=$DIR/auto-machine-list
9 AUTOMOIRALIST=$DIR/auto-moira-list
10 BINDIR=/usr/sbin
11 ACLDIR=$DIR/acl
12
13 update_machine()
14 {
15     machine=$1
16     sed "s/#MACHINENAME#/$machine/g" "$TEMPLATE" | \
17         sed "s,#BINDIR#,$BINDIR,g" >| "$MACHINETMP"
18     if ! cmp -s "$MACHINEDIR/$machine" "$MACHINETMP"; then
19         mv "$MACHINETMP" "$MACHINEDIR/$machine"
20     else
21         rm -f "$MACHINETMP"
22     fi
23 }
24
25 update_moiragroup()
26 {
27     group=$1
28     # Should perhaps replace with LDAP, but fine for now.
29
30     # We should do more careful error checking so we don't take away
31     # all bits and delete the moira-acl files whenever there's an AFS
32     # outage.
33     pts membership -nameorid "system:$group" -noauth | tail -n+2 | \
34         sed 's/\./\//; s/^  //; s/$/@ATHENA.MIT.EDU/g' >| "$MOIRATMP"
35     if test -s "$MOIRATMP"; then
36         if ! cmp -s "$MOIRADIR/$group" "$MOIRATMP"; then
37             mv "$MOIRATMP" "$MOIRADIR/$group"
38         fi
39     else
40         if test -e "$MOIRADIR/$group"; then
41             rm "$MOIRADIR/$group"
42         fi
43     fi
44     rm -f "$MOIRATMP"
45 }
46
47 case "$1" in
48     moiragroup)
49         update_moiragroup "$2"
50         ;;
51
52     all_machines)
53         # update the remctl.conf definitions
54         for machine in `cat "$AUTOMACHINELIST"`; do
55             update_machine "$machine"
56         done
57         ;;
58     all_moira)
59         # update our moira ACL lists
60         for group in `cat "$AUTOMOIRALIST"`; do
61             update_moiragroup "$group"
62         done
63         ;;
64     auto_machine_list)
65         # update the list of maintained machines
66         /bin/ls "$ACLDIR" >| "$AUTOMACHINELIST"
67         ;;
68     auto_moira_list)
69         # update the moira list-of-lists
70         # /bin/ls "$MOIRADIR" >| "$AUTOMOIRALIST" # BAD IDEA in case of outage
71
72         # This extracts the list of all moira lists we care about, and updates those.
73         grep -R moira "$ACLDIR/" /etc/remctl/acl/ | perl -pe 's/.*moira-acl\/(.*)/$1/g' >| "$AUTOMOIRALIST"
74         ;;
75     all)
76         "$0" auto_machine_list
77         "$0" all_machines
78         "$0" auto_moira_list
79         "$0" all_moira
80         ;;
81 esac
82
83 exit 0