+ # XXX should check_call(['/sbin/lvremove', '-f', 'xenvg/'+args_volume])
+
+def frob_copy_simple(target, hostname, rootpw, *args):
+ """target should be an LV device filename
+
+ This is highly specific to the etch install produced by sipb-xen-make-iso.
+ Generalizing and customizing to other distros is left to the future...
+ """
+ # 1: mount filesystem
+ fs = losetup(target, 32256)
+ mntdir = tempfile.mkdtemp('', 'auto-install.frob.', '/tmp')
+ call(['mount', '-t', 'ext3', fs, mntdir])
+ # 2: do frobbing
+ # 2a: (printf "%s\n" "$ROOTPW"; sleep .3; printf "%s\n" "$ROOTPW")
+ # | /usr/sbin/chroot "$TARGET" /usr/bin/passwd root
+ p = Popen(['/usr/sbin/chroot', mntdir, '/usr/bin/passwd', 'root'], stdin=PIPE)
+ p.stdin.write(rootpw+'\n')
+ time.sleep(1)
+ p.stdin.write(rootpw+'\n')
+ p.stdin.close()
+ p.wait()
+ os.chdir(mntdir)
+ # 2b: clear generated file that has eth0's old MAC address
+ # rm $TARGET/etc/udev/rules.d/z25_persistent-net.rules
+ os.unlink('etc/udev/rules.d/z25_persistent-net.rules')
+ # 2c: hostname.
+ # XX Use nullmailer in image, not exim4. (Fewer copies of hostname.)
+ # 2c1: rm /var/lib/dhcp3/dhclient.eth0.leases
+ os.unlink('var/lib/dhcp3/dhclient.eth0.leases')
+ # 2c2: /etc/hosts, /etc/hostname; /etc/motd? /etc/mailname?
+ call(['perl', '-i', '-pe', 's/ice3.servers.csail.mit.edu/'+hostname+'/g',
+ 'etc/hosts', 'etc/hostname', 'etc/motd', 'etc/mailname'])
+ # 3: clean up
+ os.chdir('/')
+ call(['umount', mntdir])
+ call(['losetup', '-d', fs])
+
+def duplicate_by_vm(source, target, *args):
+ # source, target should be machine names
+ prefix = 'd_'
+ # 1. copy (by dd) source to target
+ source_device = '/dev/xenvg/' + prefix + source + '_hda'
+ target_device = '/dev/xenvg/' + prefix + target + '_hda'
+ check_call(['/bin/dd', 'bs=1M', 'conv=nocreat',
+ 'if='+source_device, 'of='+target_device])
+ # 2. frob target
+ frob_copy_simple(target_device, *args)