X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-web.git/blobdiff_plain/61154617919ca57b6f1d4bed02aa9847ef14232a..b812ecb815635726dca92b6c3725ac0a4bb86ab6:/code/templates/list.tmpl diff --git a/code/templates/list.tmpl b/code/templates/list.tmpl index c5c3e9d..71f36ea 100644 --- a/code/templates/list.tmpl +++ b/code/templates/list.tmpl @@ -6,11 +6,11 @@ VM List #end def -#def createTable() +#def createForm() #if $cant_add_vm

$cant_add_vm

#else -

Create a new VM:

+

Create a new VM

#if $err

We had a problem with your request:

#else if $varExists('new_machine') @@ -35,28 +35,23 @@ $errorRow('memory', $err) GiB (${"%0.1f" % ($max_disk-0.05)} max) $errorRow('disk', $err) + + HVM/ParaVM$helppopup('hvm_paravm') + $vmTypeList($defaults.type) + +$errorRow('vmtype', $err) - HVM/ParaVM$helppopup('hvm_paravm') - -#for $value, $name in (('hvm', 'HVM'), ('paravm', 'ParaVM')) - $name -#end for - + Autoinstall$helppopup('autoinstall') + $autoList($defaults.cdrom, "document.getElementById('cd_or_auto_auto').checked = true;document.getElementById('cdromlist').value = ''") + (experimental; 1-2 minutes, and you have a machine; root pw is 'password'.) + -$errorRow('vmtype', $err) Boot CD - $cdromList($cdroms, $defaults.cdrom) + $cdromList($defaults.cdrom, "document.getElementById('cd_or_auto_cd').checked = true;document.getElementById('autoinstalllist').value = ''") + $errorRow('cdrom', $err) - - Clone image? - - (experimental; 1-2 minutes, and you have an etch machine; root pw is 'password'.) - - $errorRow('cdrom', $err) Owner @@ -84,14 +79,12 @@ $errorRow('cdrom', $err) #slurp #if $machine.uptime $machine.uptime#slurp -#else -Off#slurp #end if #slurp #if $has_vnc[$machine] == True Console#slurp -#else +#else if $has_vnc[$machine] != 'Off' $has_vnc[$machine] #end if @@ -111,14 +104,15 @@ $has_vnc[$machine] #def machineList($machines) - - - - - - - - + + + + + + + + + #for $machine in $machines: $machineRow($machine) #end for @@ -127,17 +121,13 @@ $has_vnc[$machine] #def body -

Note: SIPB Virtual Servers is a very alpha service. What does this mean?

+

SIPB Virtual Servers is an alpha service. What does this mean?

#if not $machines

You don't currently control any VMs.

-#else -

You have the following VMs:

#end if

refresh

$machineList($machines)
-
-$createTable() -
+$createForm() #end def
NameMemoryOwnerAdministratorIPUptimeVNCNameMemoryOwner$helppopup('owner')Administrator$helppopup('administrator')IPUptimeVNC