First upload of wblist page

[qtadmin.git] / wblist.php

diff --git a/wblist.php b/wblist.php
new file mode 100644 (file)
index 0000000..7746869
--- /dev/null
+++ b/wblist.php
@@ -0,0 +1,22 @@
+<?php
+/* vim: set ts=4 tw=0 sw=4 noet: */
+    require_once 'config.php';
+    require_once $CFG->root . 'lib/utils.inc.php';
+
+    $util = new Utils;
+
+    if ($util->isLoggedIn()) {
+        $util->setHeading('WB List and Quarantine Administration');
+        echo $util->getHeader();
+        echo $util->getHeading();
+               $list = $util->makeRestCall('/show');
+               if ($list) {
+                       $out = var_export($list, true);
+               } else {
+                       $out = '<p>Connection to REST service failed</p>';
+               echo $out;
+        echo $util->getFooter();
+    } else {
+        header('Location: auth.php');
+    }
+?>
\ No newline at end of file