#!/usr/bin/perl -w
#
#
#  rhautoimport
#
#  Copyright (C) 2009-2016 Christian Pointner <equinox@helsinki.at>
#
#  This file is part of rhautoimport.
#
#  rhautoimport is free software: you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation, either version 3 of the License, or
#  any later version.
#
#  rhautoimport is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with rhautoimport. If not, see <http://www.gnu.org/licenses/>.
#

use strict;
use attributes;
use Date::Calc;
use URI::URL;
use HTML::Entities;

use lib '../../rhrdlibs/lib/';
use lib '../';
use rhautoimport;

use Data::Dumper::Simple;

if($#ARGV != 0) {
  print "Usage: audioboom-inspect <user-id>\n";
  exit 1;
}
my $API_URL =  "https://api.audioboom.com/users/" .  $ARGV[0] . "/audio_clips";

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

my %h = ( 'Accept' => 'application/json; version=1' );
my ($result, $data) = RHRD::utils::fetch_parse_json($API_URL, "Radio Helsinki - Automatic Import", \%h);
unless ($result) {
  print "Error fetching data: $data\n";
  exit 1;
}

my @clips = @{$data->{'body'}{'audio_clips'}};

my $uri = "";
my $file = "";
my $sum_title = "";
my $sum_text = "";

my $i = 0;
for my $clip (@clips) {
  $i++;
  print $i . ": " . $clip->{title} . "\n";

  # next unless $entry->enclosure;

  # $sum_title = decode_entities($entry->title);
  # $sum_text = decode_entities($entry->content->body);
  # my $guid = $entry->{'entry'}{'guid'};
  # $guid = '<unset>' unless (defined $guid);

  # print $sum_title . ":\n";
  # print "  Issued:     " . $entry->issued . "\n";
  # print "  guid:       " . $guid. "\n";
  # print "  Files:\n";

  # my $j = 0;
  # for my $enclosure($entry->enclosure) {
  #   $j++;
  #   if($enclosure->type eq "audio/mpeg" || $enclosure->type eq "audio/ogg") {
  #     my $orig_uri = $enclosure->url;
  #     if($orig_uri =~ /^(.*)_cut(\.[^\.]+)$/) {
  #       $orig_uri = $1 . $2;
  #     }
  #     $uri = new URI::URL($orig_uri);
  #     my @path = $uri->path_components;
  #     $file = $path[-1];

  #     print "    $j: (" . $enclosure->type . ", " . $enclosure->length . ") "  . $file . "\n";
  #   }
  # }
  # print "\n";
}

exit 0;