Repo created

tools/json/getaddons.pl

@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+#
+# Copyright 2017 Martijn Brekhof. 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.
+#
+
+use strict;
+use warnings;
+
+use Types::Serialiser;
+use JsonTools qw(sendJsonRequest writeJsonFile);
+
+sub getAddons() {
+	my $jsonrequest = {
+		"jsonrpc" => "2.0",
+		"method" => "Addons.GetAddons",
+			"params" => {
+			"properties" => [
+			"name",
+	                "version",
+	                "summary",
+	                "description",
+	                "path",
+	                "author",
+	                "thumbnail",
+	                "disclaimer",
+	                "fanart",
+	                "dependencies",
+	                "broken",
+	                "extrainfo",
+	                "rating",
+	                "enabled",
+	                "installed"
+			],
+		},
+		"id" => "libAddons"
+	};
+
+	return sendJsonRequest("http://127.0.0.1:8080/jsonrpc", $jsonrequest);
+}
+
+writeJsonFile("Addons.GetAddons.json", getAddons);