Index: trunk/packages/xvm-db-backup/debian/changelog
===================================================================
--- trunk/packages/xvm-db-backup/debian/changelog	(revision 1709)
+++ trunk/packages/xvm-db-backup/debian/changelog	(revision 1711)
@@ -1,2 +1,8 @@
+xvm-db-backup (0.0.2) unstable; urgency=low
+
+  * Backup a list of currently running VMs as well as the database
+
+ -- Evan Broder <broder@mit.edu>  Mon, 17 Nov 2008 21:02:41 -0500
+
 xvm-db-backup (0.0.1) unstable; urgency=low
 
Index: trunk/packages/xvm-db-backup/xvm-db-backup
===================================================================
--- trunk/packages/xvm-db-backup/xvm-db-backup	(revision 1709)
+++ trunk/packages/xvm-db-backup/xvm-db-backup	(revision 1711)
@@ -6,7 +6,11 @@
 aklog sipb
 
-filename="/mit/xvm/backups/db/prod/$(date +%Y-%m-%d-%H-%M.sql.gz)"
+db_filename="/mit/xvm/backups/db/prod/$(date +%Y-%m-%d-%H-%M.sql.gz)"
 
 /usr/bin/pg_dump -U "$(invirt-getconf db.user)" \
                  -h "$(invirt-getconf db.host)" \
-                 "$(invirt-getconf db.dbname)" | gzip - >"$filename"
+                 "$(invirt-getconf db.dbname)" | gzip - >"$db_filename"
+
+running_filename="/mit/xvm/log/running/prod/$(date +%Y-%m-%d-%H-%M.gz)"
+
+remctl "$(invirt-getconf remote.hostname)" web listvms | gzip - >"$running_filename"