Repo created

tools/json/getmusicvideos.pl

@@ -0,0 +1,63 @@
+#!/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 getMusicVideos() {
+	my $jsonrequest = {
+		"jsonrpc" => "2.0",
+		"method" => "VideoLibrary.GetMusicVideos",
+		"params" => {
+			"limits" => { "start" => 0, "end" => 10 },
+			"properties" => [
+				"title",
+				"playcount",
+				"runtime",
+				"director",
+				"studio",
+				"year",
+				"plot",
+				"album",
+				"artist",
+				"genre",
+				"track",
+				"streamdetails",
+				"lastplayed",
+				"fanart",
+				"thumbnail",
+				"file",
+				"resume",
+				"dateadded",
+				"tag",
+				"art",
+				"rating",
+				"userrating",
+				"premiered"
+			],
+			"sort" => { "order" => "ascending", "method" => "label", "ignorearticle" => Types::Serialiser::true }
+		},
+		"id" => "libMovies"
+	};
+
+	return sendJsonRequest("http://127.0.0.1:8080/jsonrpc", $jsonrequest);
+}
+
+writeJsonFile("VideoLibrary.GetMusicVideos.json", getMusicVideos);