From 70c7fd5765720621553b3ddaff1009c795f49a76 Mon Sep 17 00:00:00 2001
From: Michael Rasmussen <mir@datanom.net>
Date: Thu, 25 Jun 2015 01:32:16 +0200
Subject: [PATCH] First upload of wblist page

---
 wblist.php | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/wblist.php b/wblist.php
index 115fff0..eeb5409 100644
--- a/wblist.php
+++ b/wblist.php
@@ -3,6 +3,33 @@
     require_once 'config.php';
     require_once $CFG->root . 'lib/utils.inc.php';
 
+	function createHeader($data) {
+		$out = '';
+		foreach ($data as $head => $value) {
+			$out .= '<th>$head</th>';
+		}
+		
+		return $out;
+	}
+	
+	function parseResponse($raw) {
+		if (count($raw) < 1) {
+			return '';
+		}
+		$headers = createHeader($raw[0]);
+		$r = "<table><tr>$headers</tr>";
+		foreach ($raw as $obj) {
+			$r .= '<tr>';
+			foreach ($obj as $value) {
+				$r .= "<td>$value</td>";
+			}
+			$r .= '</tr>';
+		}
+		$r .= '</table>';
+		
+		return $r;
+	}
+
     $util = new Utils;
 
     if ($util->isLoggedIn()) {
@@ -16,7 +43,7 @@
     		if ($subfunction == 'all') {
     			$list = $util->makeRestCall('/show');
     			if ($list) {
-    				$out = '<pre>'.var_export($list, true).'</pre>';
+    				$out = parseResponse($list);
     			} else {
     				$out = '<p>Connection to REST service failed</p>';
     			}
-- 
2.39.2