From 16f3dbfecbc2883f8de632d433ec5009e2d91934 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Sat, 30 Nov 2013 22:32:21 +0100
Subject: [PATCH] New guantanomo_list command

---
 commands/guantanamo_list.sh | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 commands/guantanamo_list.sh

diff --git a/commands/guantanamo_list.sh b/commands/guantanamo_list.sh
new file mode 100755
index 0000000..a23aac1
--- /dev/null
+++ b/commands/guantanamo_list.sh
@@ -0,0 +1,14 @@
+#!/bin/sh
+
+if ! which gearman > /dev/null 2> /dev/null
+then
+    echo "gearman isn't installed on this machine. Please try another one."
+    exit 1
+fi
+
+cat <<EOF | gearman -h gearmand -p 4730 -f guantanamo
+<?xml version="1.0" encoding="UTF-8"?>
+<process>
+  <param name="action">list</param>
+</process>
+EOF