Index: trunk/packages/invirt-remote/debian/changelog
===================================================================
--- trunk/packages/invirt-remote/debian/changelog	(revision 2244)
+++ trunk/packages/invirt-remote/debian/changelog	(revision 2245)
@@ -1,2 +1,8 @@
+invirt-remote (0.3.9) unstable; urgency=low
+
+  * Include a CDROM in listvms, if there is one.
+
+ -- Evan Broder <broder@mit.edu>  Thu, 12 Mar 2009 17:20:15 -0400
+
 invirt-remote (0.3.8) unstable; urgency=low
 
Index: trunk/packages/invirt-remote/host/usr/sbin/invirt-listvms
===================================================================
--- trunk/packages/invirt-remote/host/usr/sbin/invirt-listvms	(revision 2244)
+++ trunk/packages/invirt-remote/host/usr/sbin/invirt-listvms	(revision 2245)
@@ -33,4 +33,10 @@
     data['start_time'] = float(xsc.read('', '%s/start_time' % data['vm']))
     data['uptime'] = time.time()-data['start_time']
+    # CD, if there is one
+    vbds = xsc.ls('', '/local/domain/%d/device/vbd' % domid)
+    for vbd in vbds:
+        dev = '/local/domain/%d/device/vbd/%s' % (domid, vbd)
+        if xsc.read('', '%s/device-type' % dev) == 'cdrom':
+            data['cdrom'] = xsc.read('', '%s/params' % xsc.read('', '%s/backend' % dev))
     
     return name, data