diff options
| author | Christian Pointner <equinox@helsinki.at> | 2012-11-08 10:39:17 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2012-11-08 10:39:17 (GMT) |
| commit | 4453b157866875f925fe2c26f7c86027b4674fc4 (patch) | |
| tree | 3c3c1f000476ec93c21ba237ec967a51f0418925 /rhimport-fw | |
| parent | 1cc29cc247ed9f78858b0ec4b24aed0bb5e1ffe3 (diff) | |
output now contians feed url
Diffstat (limited to 'rhimport-fw')
| -rwxr-xr-x | rhimport-fw | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rhimport-fw b/rhimport-fw index 75fcd27..009a137 100755 --- a/rhimport-fw +++ b/rhimport-fw @@ -87,6 +87,7 @@ if($dropbox eq "") { my $regexp = sprintf("%04d%02d%02d(.*)\\.mp3\$", $broadcastday[0], $broadcastday[1], $broadcastday[2]); print "looking for file from " . Date::Calc::Date_to_Text(@broadcastday) . " in RSS Feed\n"; +print " -> $RSS_URL\n"; my $feed = XML::Feed->parse(URI->new($RSS_URL)) or die "Error fetching feed: " . XML::Feed->errstr; |