#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use Getopt::Long;

use lib '../../files/lib';
use Util::Movie qw(movie);
use Util::Convert qw(filify);
use Util::Data qw(data_file);
use Util::Sort qw(article_sort);

GetOptions( 'open' => \my $open );

my $movies = movie('data');

local $\ = "\n";

for my $movie (sort { article_sort($a->{'title'}, $b->{'title'}) } values %$movies) {
  my $title = $movie->{'title'};

  next if ($movie->{'media'} ne 'tv' || (($movie->{'end year'} && $movie->{'end year'} ne 'tbd') || !$movie->{'end year'}));
  next if $title =~ /Awards/;
  
  print $title;
  
  next if !$open;

  my $filename = filify($title);
  my $file     = data_file('Movies/Episode_lists',"$filename.txt");
  system("xdg-open", $file) == 0 || warn "Can't open $file";
}