#!/usr/bin/perl -w

use strict;

# todo: import vimeo as wll

my $proddir = "../assets/global/episode_thumb/";
my $thumbdir = "./thumbs/";
open (EPISODES, ">episodes.csv");
open (SERIES, ">series.csv");
open (SEASONS, ">seasons.csv");

# https://www.youtube.com/watch?v=-8Y09vrux2Y
# https://i.ytimg.com/vi/IZN8KrZmvls/hqdefault.jpg
my $start = 1;
my $series = 1;
foreach my $file (readpipe("ls *.txt")) {
  chop $file;
  print SERIES "\"$series\",\"$file\"\n";

  foreach my $line (readpipe("cat $file")) {
    if ($line =~ /watch\?v=(.*?)\"/) {
        my $id = $1;
        my $pic = "https://i.ytimg.com/vi/".$id."/hqdefault.jpg";

        if (!-f $thumbdir.$id.'.jpg') {
            system ("curl $pic > '$thumbdir$id.jpg'");
            sleep 1;
        }
        
        system ("cp '$thumbdir$id.jpg' '$proddir$start.jpg'");
    }

    $line =~ s/\(.*?\)//;
    print EPISODES "\"$start\",\"$series\",".$line;
    print SEASONS "\"$series\",\"$series\",sezona\n";
    $start++;
  }
  $series++;
}