make usage of fetch_parse_(rss|json) easier

2 files changed, 3 insertions, 4 deletions

diff --git a/test/audioboom-inspect b/test/audioboom-inspect
index aab1b2b..7f4c6fc 100755
--- a/test/audioboom-inspect
+++ b/test/audioboom-inspect
@@ -42,8 +42,7 @@ 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);
+my ($result, $data) = rhautoimport::fetch_parse_json_audioboom($API_URL);
 unless ($result) {
   print "Error fetching data: $data\n";
   exit 1;
diff --git a/test/cba-inspect b/test/cba-inspect
index f625cff..bc03ac3 100755
--- a/test/cba-inspect
+++ b/test/cba-inspect
@@ -43,13 +43,13 @@ if($#ARGV != 0) {
   print "Usage: cba-inspect <rss url>\n";
   exit 1;
 }
-my $RSS_URL = $ARGV[0] . "?c=Kfs2IoV2Wmd";
+my $RSS_URL = $ARGV[0];
 
 binmode(STDIN, ":utf8");
 binmode(STDOUT, ":utf8");
 binmode(STDERR, ":utf8");
 
-my ($result, $feed) = rhautoimport::fetch_parse_rss($RSS_URL);
+my ($result, $feed) = rhautoimport::fetch_parse_rss_cba($RSS_URL);
 unless ($result) {
   print "Error fetching feed: $feed\n";
   exit 1;