diff options
Diffstat (limited to 'rhimport-dn')
-rwxr-xr-x | rhimport-dn | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/rhimport-dn b/rhimport-dn index bf72584..644f729 100755 --- a/rhimport-dn +++ b/rhimport-dn @@ -80,9 +80,10 @@ my $feed = XML::Feed->parse(URI->new('http://www.democracynow.org/podcast.xml')) my $file = ""; for my $entry ($feed->entries) { if($entry->enclosure && $entry->enclosure->type eq "audio/mpeg") { - my $summary = $entry->title . "\n\n" . $entry->summary->body . "\n\n" . $entry->link . "\n"; + my $sum_title = $entry->title; + my $sum_text = $entry->summary->body . "\n" . $entry->link; - if($entry->id =~ /tag:democracynow.org,([0-9-]+):media\/mp3download\/[^\/]+/) { + if($entry->id =~ /tag:democracynow.org,([0-9-]+):media\/mp3download\/[^\/]+/) { next if($y ne $1); my $ff = File::Fetch->new(uri => $entry->enclosure->url); @@ -90,7 +91,7 @@ for my $entry ($feed->entries) { $file = $ff->fetch( to => '/tmp' ) or die $ff->error; print "ok\n"; - print "summary:\n" . $summary; + print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n"; } print "\n"; } |