#!/usr/bin/perl -w

use strict;
my $thumbsource = "/Users/igzebedze/Movies/doku/thumbs/";
my $episodestart = 5646; # take from database
my $seriesstart = 17;
my $seasonstart = 17;

my @shows = (
'50knjig',
'bukvozer',
'bukvozercek',
'hisaeksperimentov',
'megabitienergije',
'naravniparki',
'resnicnost',
'solaracunalnistva',
'yuvi',
'zadevetimigorami',
);

# 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«.

# series:
# | series_id | title | trailer_url | description_short | description_long | genre_id | director | actors | year | rating | featured | kids_restriction | episodes |

# episode:
# | episode_id | season_id | title | url | description |

# season:
# season_id | series_id | name |

open (SERIES, ">series.csv");
open (EPISODES, ">episodes.csv");
open (SEASONS, ">seasons.csv");
foreach my $series (@shows) {
	my $genre = 4;
	my $year = 2020;
	
	foreach my $episode (readpipe("cat $series.list")) {
		chop $episode;
		my @meta = split/\t/,$episode;
	
		if (!-f "./thumbs/$episodestart.jpg") {
			system ("convert $thumbsource".$meta[3]." ./thumbs/$episodestart.jpg");	
		}
		if (!-f "./posters/$episodestart.jpg") {
			system ("convert $thumbsource".$meta[4]." ./posters/$episodestart.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";
		print EPISODES join("\t", $episodestart, $seasonstart, $meta[0], $meta[1], $meta[6])."\n";
		$genre = $meta[10];
		$year = $meta[11] if $meta[11];
		$episodestart++;
	}	
	
	print SERIES join("\t", $seriesstart, $series, "", "", "", $genre, 4, "['2']", $year, 3, 0, 0, "")."\n";
	print SEASONS join("\t", $seasonstart, $seriesstart, "1. sezona")."\n";
	$seasonstart++;
	$seriesstart++;
}
close SERIES;
close EPISODES;
close SEASONS;