From ad2b45acaa773db856bf82724d33d2173b9d79e8 Mon Sep 17 00:00:00 2001
From: skyjake <skyjake@users.sourceforge.net>
Date: Fri, 1 Feb 2013 12:05:22 +0000
Subject: [PATCH] Host: Compress old log output files

To prevent running out of disk space, compress old log files in the
runtime directories.
---
 doomsday/host/doomsday-host | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/doomsday/host/doomsday-host b/doomsday/host/doomsday-host
index a2f084b8bb..bcf347ec49 100755
--- a/doomsday/host/doomsday-host
+++ b/doomsday/host/doomsday-host
@@ -277,6 +277,21 @@ def rebuildAndInstall():
     
     msg('Successful rebuild from branch %s.' % branch)
     return True
+
+
+def logCleanup():
+    for sv in servers:
+        files = os.listdir(sv.runtime)
+        logs = []
+        for fn in files:
+            if fn[-4:] == '.out' and '-' in fn:
+                logs.append(fn)
+        logs.sort()
+        # Process all except the latest one.
+        logs = logs[:-1]
+        for log in logs:
+            fn = os.path.join(sv.runtime, log)
+            run('gzip -9 ' + fn)
     
     
 def startInstance():
@@ -333,6 +348,9 @@ def main():
         
     # Save the state.
     pickle.dump(state, file(stateFn, 'wb')) 
+
+    # Archive old log files.
+    logCleanup()
     
     # We're done.
     endInstance()