diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-07-19 21:44:38 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-07-19 21:44:38 (GMT) |
commit | c10b740439ddcdeb4fd475e113cc439f374fc96b (patch) | |
tree | abe7ab50005c8a86bf25314667795e33325a678a /rhautoimport-nw | |
parent | 4fdc9672f1cdc3b8d541fd62fea196140937e6f8 (diff) |
make usage of fetch_parse_(rss|json) easier
Diffstat (limited to 'rhautoimport-nw')
-rwxr-xr-x | rhautoimport-nw | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rhautoimport-nw b/rhautoimport-nw index 356c2a8..c8ea341 100755 --- a/rhautoimport-nw +++ b/rhautoimport-nw @@ -34,7 +34,7 @@ use lib '/usr/local/share/rhautoimport/'; use rhautoimport; my $STAT_FILE = $ENV{'HOME'} . "/rhautoimport-nw.stat"; -my $RSS_URL = "https://cba.fro.at/series/radio-netwatcher/feed?c=Kfs2IoV2Wmd"; +my $RSS_URL = "https://cba.fro.at/series/radio-netwatcher/feed"; $XML::Feed::MULTIPLE_ENCLOSURES=1; my $RD_GROUP = "netwatcher"; my $PV_ID = '73'; @@ -91,7 +91,7 @@ my $bdfile = sprintf("NETWATCHER[-_]?%04d%02d%02d(.*)\.MP3", @broadcast_day); print "looking for files from $bd in RSS Feed\n"; print " -> $RSS_URL\n"; -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; |