From 43047fbf801e72b6be9c6676e709288bf8d872d7 Mon Sep 17 00:00:00 2001
From: Scott Schneider <sschneider@puppetlabs.com>
Date: Fri, 13 Dec 2013 10:13:28 -0800
Subject: [PATCH] Delete long-running VMs after 12 hours

---
 vmware-host-pooler | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/vmware-host-pooler b/vmware-host-pooler
index d559f07..0061682 100755
--- a/vmware-host-pooler
+++ b/vmware-host-pooler
@@ -2,6 +2,7 @@
 
 require 'rbvmomi'
 require 'redis'
+require 'time'
 require 'yaml'
 
 $:.unshift(File.dirname(__FILE__))
@@ -306,6 +307,19 @@ def check_pool pool
         end
       end
 
+      # LONG-RUNNING
+      $redis.hkeys('vmware_host_pool__active__'+pool['name']).each do |vm|
+        running = (Time.now - Time.parse($redis.hget('vmware_host_pool__active__'+pool['name'], vm)))/60/60
+        if (running > 12)
+          $logger.log('d', "[!] [#{pool}] '#{vm}' reached end of TTL after 12 hours")
+
+          begin
+            destroy_vm(vm, pool['name'])
+          rescue
+          end
+        end
+      end
+
       # REPOPULATE
       total = $redis.scard('vmware_host_pool__ready__'+pool['name']) +
               $redis.scard('vmware_host_pool__pending__'+pool['name'])