diff options
Diffstat (limited to 'test')
| -rwxr-xr-x | test/audioboom-inspect | 3 | ||||
| -rwxr-xr-x | test/cba-inspect | 4 |
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; |