summaryrefslogtreecommitdiff
path: root/test/cba-inspect
blob: 6a2cf49a5ae4d579f4afb9ed4ecf96d6f13f6d34 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
#!/usr/bin/perl -w
#
#
#  rhautoimport
#
#  Copyright (C) 2009-2017 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 XML::Feed;
use XML::Feed::Entry;
use XML::Feed::Content;
use XML::Feed::Enclosure;
use URI::URL;
use HTML::Entities;

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

use Data::Dumper::Simple;

$XML::Feed::MULTIPLE_ENCLOSURES=1;

if($#ARGV != 0) {
  print "Usage: cba-inspect <rss url>\n";
  exit 1;
}
my $RSS_URL = $ARGV[0];

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

my ($result, $feed) = rhautoimport::fetch_parse_rss_cba($RSS_URL);
unless ($result) {
  print "Error fetching feed: $feed\n";
  exit 1;
}

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

my $i = 0;
for my $entry ($feed->entries) {
  $i++;
  next unless $entry->enclosure;

  $sum_title = decode_entities($entry->title);
  $sum_text = decode_entities($entry->content->body);
  my $production_date = $entry->{'entry'}{'https://cba.media/help#feeds'}{'productionDate'};
  $production_date = '<unset>' unless (defined $production_date);
  my $broadcast_date = $entry->{'entry'}{'https://cba.media/help#feeds'}{'broadcastDate'};
  $broadcast_date = '<unset>' unless (defined $broadcast_date);
  my $contains_copyright = $entry->{'entry'}{'https://cba.media/help#feeds'}{'containsCopyright'};
  $contains_copyright = 'false' unless (defined $contains_copyright);

  print $sum_title . ":\n";
  print "  Issued:     " . $entry->issued . "\n";
  print "  Production: " . $production_date . "\n";
  print "  Broadcast:  " . $broadcast_date . "\n";
  print "  Contains Copyright:  " . $contains_copyright . "\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;