diff options
| -rwxr-xr-x | test/audioboom-inspect | 59 |
1 files changed, 29 insertions, 30 deletions
diff --git a/test/audioboom-inspect b/test/audioboom-inspect index 6120a85..4bca4c9 100755 --- a/test/audioboom-inspect +++ b/test/audioboom-inspect @@ -60,36 +60,35 @@ 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"; + + $sum_title = decode_entities($clip->{title}); + $sum_text = decode_entities($clip->{description}); + my $orig_uri = $clip->{urls}{high_mp3}; + next unless $orig_uri; + + my $duration = $clip->{duration}; + $duration = 0 unless (defined $duration); + my $size = $clip->{mp3_filesize}; + $size = 0 unless (defined $size); + + my @tags = @{$clip->{tags}}; + + my $recorded = $clip->{recorded_at}; + $recorded = '<unset>' unless (defined $recorded); + my $uploaded = $clip->{uploaded_at}; + $uploaded = '<unset>' unless (defined $uploaded); + + $uri = new URI::URL($orig_uri); + my @path = $uri->path_components; + $file = $path[-1]; + + print $clip->{title} . ":\n"; +# print " Description: " . $sum_text . "\n"; + print " Recorded: " . $recorded . "\n"; + print " Uploaded: " . $uploaded . "\n"; + print " Tags: " . join(", ", @tags) . "\n"; + print " Files:\n 1: (audio/mpeg), " . $size . ") " . $file . "\n"; + print "\n"; } exit 0; |