diff options
Diffstat (limited to 'test/cba-inspect')
| -rwxr-xr-x | test/cba-inspect | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/cba-inspect b/test/cba-inspect index f998d43..f625cff 100755 --- a/test/cba-inspect +++ b/test/cba-inspect @@ -67,15 +67,18 @@ for my $entry ($feed->entries) { $sum_title = decode_entities($entry->title); $sum_text = decode_entities($entry->content->body); - my $production_date = $entry->{'entry'}{'productionDate'}; + my $production_date = $entry->{'entry'}{'https://cba.fro.at'}{'productionDate'}; $production_date = '<unset>' unless (defined $production_date); - my $broadcast_date = $entry->{'entry'}{'broadcastDate'}; + my $broadcast_date = $entry->{'entry'}{'https://cba.fro.at'}{'broadcastDate'}; $broadcast_date = '<unset>' unless (defined $broadcast_date); + my $contains_copyright = $entry->{'entry'}{'https://cba.fro.at'}{'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; |