Changeset 340 for trunk

Timestamp:

Mar 30, 2008, 4:28:10 AM (17 years ago)

Author:

price

Message:

expose cloning autoinstaller in web interface

Location:

trunk/packages/sipb-xen-www/code

Files:

• controls.py (modified) (3 diffs)
• main.py (modified) (1 diff)
• templates/list.tmpl (modified) (1 diff)

trunk/packages/sipb-xen-www/code/controls.py

@@ -69 +69 @@
         lvcreate(machine, disk)
 
+def lvcopy(machine_orig_name, machine, rootpw):
+    """Copy a golden image onto a machine's disk"""
+    remctl('web', 'lvcopy', machine_orig_name, machine.name, rootpw)
+
 def bootMachine(machine, cdtype):
     """Boot a machine with a given boot CD.
@@ -96 +100 @@
     remctl('web', 'unregister', machine.name)
 
-def createVm(owner, contact, name, memory, disk_size, is_hvm, cdrom):
+def createVm(owner, contact, name, memory, disk_size, is_hvm, cdrom, clone_from):
     """Create a VM and put it in the database"""
     # put stuff in the table
@@ -137 +141 @@
     registerMachine(machine)
     makeDisks(machine)
+    if clone_from:
+        lvcopy(clone_from, machine, 'password')
     # tell it to boot with cdrom
     bootMachine(machine, cdrom)

trunk/packages/sipb-xen-www/code/main.py

@@ -160 +160 @@
     if cdrom is not None and not CDROM.get(cdrom):
         raise CodeError("Invalid cdrom type '%s'" % cdrom)
+
+    clone_from = fields.getfirst('clone_from')
+    if clone_from and clone_from != 'ice3':
+        raise CodeError("Invalid clone image '%s'" % clone_from)
+    
     return dict(contact=user, name=name, memory=memory, disk_size=disk_size,
-                owner=owner, is_hvm=is_hvm, cdrom=cdrom)
+                owner=owner, is_hvm=is_hvm, cdrom=cdrom, clone_from=clone_from)
 
 def create(user, fields):

trunk/packages/sipb-xen-www/code/templates/list.tmpl

@@ -50 +50 @@
           <td>Boot CD</td>
           <td>$cdromList($cdroms, $defaults.cdrom)</td>
+        </tr>
+$errorRow('cdrom', $err)
+        <tr>
+          <td>Clone image?</td>
+          <td><input type="checkbox" name="clone_from" value="ice3"/>
+              (experimental; 1-2 minutes, and you have an etch machine; root pw is 'password'.)</td>
         </tr>
 $errorRow('cdrom', $err)