Add a utility to clean up stranded load balancers.

cluster/gce/delete-stranded-load-balancers.sh

@@ -0,0 +1,33 @@
+#!/bin/bash
+
+# Copyright 2015 The Kubernetes Authors All rights reserved.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+# A utility for deleting target pools and forwarding rules that are unattached to VMs
+PROJECT=${PROJECT:-kubernetes-jenkins}
+REGION=${REGION:-us-central1}
+
+LIST=$(gcloud --project=${PROJECT} compute target-pools list | sed 1d | awk '{print $1}')
+
+result=0
+for x in ${LIST}; do
+    if ! gcloud compute --project=${PROJECT} target-pools get-health "${x}" --region=${REGION} 2>/dev/null >/dev/null; then
+	echo DELETING "${x}"
+	gcloud compute --project=kubernetes-jenkins forwarding-rules delete "${x}" --region=us-central1 -q
+	gcloud compute --project=kubernetes-jenkins target-pools delete "${x}" --region=us-central1 -q
+        result=1
+    fi
+done
+exit ${result}
+