#!/usr/bin/perl -w

use strict;

# todo: import vimeo as wll

my $proddir = "../assets/global/episode_thumb/";
my $thumbdir = "./thumbs2/";
open (EPISODES, ">episodes2.csv");
open (SERIES, ">series2.csv");
open (SEASONS, ">seasons2.csv");

# from existing db
my %series = ("vesti", 8, "godler", 10, "vic ", 11, "komentar", 3, "Kinoto", 12, "Debilde", 13, "takle", 5, "denis pokora", 14);

# https://www.youtube.com/watch?v=-8Y09vrux2Y
# https://i.ytimg.com/vi/IZN8KrZmvls/hqdefault.jpg
my $start = 3005;

foreach my $file (keys(%series)) {
  print SERIES "\"".$series{$file}."\",\"$file\"\n";
}

foreach my $line (readpipe("cat vimeo.csv")) {
    if ($line =~ /.*years ago\d+\:\d+(.*?)\t.*?vimeo\.com\/(.*)$/) {
        my $title = $1;
        my $id = $2;

        $title =~ s/\(.*?\)//;
        $title =~ s/\"//g;
        my $url = "https://www.vimeo.com/$id";
        
        my $series = 4;	# default: ostalo
        foreach my $cat (keys(%series)) {
            if ($title =~ /$cat/i) {
                $series = $series{$cat};
                last;
            }
        }
        
#        warn "$title\t$id\t$series\n";
#        next;
          
        if (!-f $thumbdir.$id.'.jpg') {
          my $metadata = readpipe("curl http://vimeo.com/api/v2/video/$id.xml");
          if ($metadata =~ /<thumbnail_large>(.*?)<\/thumbnail_large>/) {
            my $pic = $1;
            system ("curl $pic > '$thumbdir$id.jpg'");
            sleep 1;
        } }
        
        system ("cp '$thumbdir$id.jpg' '$proddir$start.jpg'");

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

#  $series++;
#}