-web lvcreate /usr/sbin/sipb-xen-lvcreate /etc/remctl/acl/web
-web lvremove /usr/sbin/sipb-xen-lvremove /etc/remctl/acl/web
-web lvrename /usr/sbin/sipb-xen-lvrename /etc/remctl/acl/web
+web lvcreate /usr/sbin/sipb-xen-lvm /etc/remctl/acl/web
+web lvremove /usr/sbin/sipb-xen-lvm /etc/remctl/acl/web
+web lvrename /usr/sbin/sipb-xen-lvm /etc/remctl/acl/web
+web lvresize /usr/sbin/sipb-xen-lvm /etc/remctl/acl/web
web vmboot /usr/sbin/sipb-xen-boot /etc/remctl/acl/web
web register /usr/sbin/remctl-update.sh /etc/remctl/acl/web
web moveregister /usr/sbin/remctl-update.sh /etc/remctl/acl/web
rm -f "$MOIRATMP"
}
+check_machine_name()
+{
+ machine="$1"
+ if ! perl -0e 'exit($ARGV[0] !~ /^[A-Za-z0-9][A-Za-z0-9._-]*$/)' -- "$machinename"; then
+ echo "Bad machine name"
+ exit 1
+ fi
+}
+
case "$1" in
moiragroup)
update_moiragroup "$2"
;;
unregister)
machine="$2"
+ check_machine_name "$machine"
rm -f "$ACLDIR"/"$machine"
rm -f "$MACHINEDIR"/"$machine"
"$0" web
moveregister)
oldmachine="$2"
newmachine="$3"
+ check_machine_name "$oldmachine"
+ check_machine_name "$newmachine"
mv "$ACLDIR"/"$oldmachine" "$ACLDIR"/"$newmachine"
rm -f "$MACHINEDIR"/"$oldmachine"
"$0" web
;;
register)
machine="$2"
- if [ "$machine" == "Domain-0" ]; then
- echo "No, you can't control Domain 0"
- exit 1
- fi
- if [ -e /etc/xen/"$machine" ]; then
- echo "Machine already exists outside database"
- exit 1
- fi
+ check_machine_name "$machine"
if [ -e "$ACLDIR"/"$machine" ]; then
echo "Machine already registered"
exit 1
--- /dev/null
+#!/usr/bin/env python
+
+import sys
+import os.path
+from subprocess import call
+
+def check(b):
+ if not b:
+ exit(1)
+
+vg = "xenvg"
+prefix = "d_"
+
+subcommand = sys.argv[1]
+machine = sys.argv[2]
+disk = sys.argv[3]
+lvname = prefix + machine + "_" + disk
+lvpath = "/dev/" + vg + "/" + lvname
+
+def ensureoff(machine):
+ # Make sure the machine is off, but we don't care about errors if it is already off.
+ rv = call(["/usr/sbin/xm", "destroy", prefix + machine]
+
+if subcommand == "lvremove":
+ rv = call(["/sbin/lvremove", "--force", lvpath])
+ ensureoff(machine)
+ if rv != 0:
+ print >>sys.stderr, "Error removing LV %s\n" %(lvname,)
+ sys.exit(1)
+else if subcommand == "lvresize":
+ size = sys.argv[4]
+ ensureoff(machine)
+ rv = call(["/sbin/lvresize", "-L", size + "M", lvpath])
+ if rv != 0:
+ print >>sys.stderr, "Error resizing LV %s\n" %(lvname,)
+ sys.exit(1)
+else if subcommand == "lvrename":
+ newmachine = sys.argv[4]
+ newlvname = prefix + newmachine + "_" + disk
+ ensureoff(machine)
+ ensureoff(newmachine)
+ rv = call(["/sbin/lvrename", vg, lvname, newlvname])
+ if rv != 0:
+ print >>sys.stderr, "Error renaming LV %s\n" %(lvname,)
+ sys.exit(1)
+else if subcommand == "lvcreate":
+ size = sys.argv[4]
+ rv = call(["/sbin/lvcreate", "-L", size + "M", "-n", lvname, vg])
+ if rv != 0:
+ print >>sys.stderr, "Error creating LV %s\n" %(lvname,)
+ sys.exit(1)
+
+else if subcommand == "lvcreate-all":
+ from sipb_xen_database import *
+ import re
+ connect('postgres://sipb-xen@sipb-xen-dev.mit.edu/sipb_xen')
+ for d in Disk.select():
+ check(re.match('^[A-Za-z0-9]+$', d.guest_device_name))
+ machine = Machine.get(d.machine_id)
+ check(re.match('^[A-Za-z0-9][A-Za-z0-9._-]*$', machine.name))
+ lvname = machine.name + "_" + d.guest_device_name
+ if not os.path.exists("/dev/%s/%s" % (vg, lvname)):
+ # LV doesn't exist
+ print >>sys.stderr, "Creating LV %s..." % (lvname,)
+ rv = call(["/sbin/lvcreate", "-L", str(d.size) + "M", "-n", lvname, vg])
+ if rv != 0:
+ print >>sys.stderr, "Error creating LV %s\n" %(lvname,)
+ sys.exit(1)
+