#!/usr/bin/perl -w

use strict;
my $thumbsource = "/Users/igzebedze/Movies/doku/thumbs/";
my $start = 102; # take from database

# INPUT:
# print LIST join("\t",$title, $embed, $embed, "$id.png", "$id-l.png", $duration, $desc, '', 4, 2, $kevdrcats{$cat}, $year)."\n";
# 'G. von Einem – Henrik Neubauer: Rondo o zlatem teletu, koprodukcijski baletni film','https://4d.rtvslo.si/embed/174611259','https://4d.rtvslo.si/embed/174611259','174611259.png','174611259-l.png','0:44:41','Henrik Neubauer (* 1929), nekdanji baletni plesalec, koreograf in operni režiser je v bogatem opusu ustvaril 80 baletnih koreografij. Med njimi leta 1957 Rondo o zlatem teletu na glasbo Gottfrieda von Einema. Tri plesne drame po scenariju Tatjane Gsovsky povezuje moč denarja, katere simbol je zlato tele. Neubauer jih je postavil v čas pred drugo svetovno vojno, ko je »svet, ki mu je vladal denar, postavil usodo ljudi na kocko«.

# OUTPUT:
# | movie_id | title | description_short | description_long | year | rating | genre_id | director | actors | featured | kids_restriction | url | trailer_url | duration |

foreach my $show (readpipe("cat *.list")) {
	chop $show;
	my @meta = split/\t/,$show;

	if (!-f "./thumbs/$start.jpg") {
		system ("convert $thumbsource".$meta[3]." ./thumbs/$start.jpg");	
	}
	if (!-f "./posters/$start.jpg") {
		system ("convert $thumbsource".$meta[4]." ./posters/$start.jpg");	
	}
	
	print join("\t", $start, $meta[0], $meta[6], $meta[6], $meta[11], 3, $meta[10], 4, "[2]", 0, 0, $meta[1], $meta[2], $meta[5])."\n";
	$start++;
}