From e277baed387b642bb7e6707b49e55da4719a9c79 Mon Sep 17 00:00:00 2001
From: Simon Rettberg
Date: Tue, 5 Nov 2013 20:25:55 +0100
Subject: Working on download of remote configs

---
 modules/sysconfig.inc.php | 58 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 modules/sysconfig.inc.php

(limited to 'modules/sysconfig.inc.php')

diff --git a/modules/sysconfig.inc.php b/modules/sysconfig.inc.php
new file mode 100644
index 00000000..f8e6c6ad
--- /dev/null
+++ b/modules/sysconfig.inc.php
@@ -0,0 +1,58 @@
+<?php
+
+User::load();
+
+function render_module()
+{
+	if (!isset($_REQUEST['action'])) $_REQUEST['action'] = 'list';
+	switch ($_REQUEST['action']) {
+	case 'remotelist':
+		list_remote_configs();
+		break;
+	case 'list':
+		list_configs();
+		break;
+	default:
+		Message::addError('invalid-action', $_REQUEST['action']);
+		break;
+	}
+}
+
+function list_configs()
+{
+	if (!User::hasPermission('superadmin')) {
+		Message::addError('no-permission');
+		return;
+	}
+	$files = array();
+	foreach (glob(CONFIG_TGZ_LIST_DIR . '/*.tgz') as $file) {
+		$files[] = array(
+			'file' => $file
+		);
+	}
+	Render::addTemplate('tgz-list', array('files' => $files));
+}
+
+function list_remote_configs()
+{
+	if (!User::hasPermission('superadmin')) {
+		Message::addError('no-permission');
+		return;
+	}
+	$data = Util::download(CONFIG_REMOTE_TGZ . '/list', 4, $code);
+	if ($code !== 200) {
+		Message::addError('remote-timeout', CONFIG_REMOTE_TGZ);
+		return;
+	}
+	$list = json_decode($data, true);
+	if (!is_array($list)) {
+		Message::addError('remote-parse-failed');
+		return;
+	}
+	$id = 0;
+	foreach ($list as &$item) {
+		$item['id'] = ++$id;
+	}
+	Render::addTemplate('remote-tgz-list', array('files' => $list));
+}
+
-- 
cgit v1.2.3-55-g7522