#!/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);