summaryrefslogtreecommitdiff
path: root/rhimport-dn
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2011-07-20 23:03:13 (GMT)
committerChristian Pointner <equinox@helsinki.at>2011-07-20 23:03:13 (GMT)
commitbf841248f3e7365511f56b31f8575a1571dbae42 (patch)
tree0763ce87deb69b1f793ee8397fa69137085711cf /rhimport-dn
parent5e335c04f01174267c8a25754e52529eb4de75fc (diff)
seperated text and title
git-svn-id: https://svn.helsinki.at/rhimport/trunk@80 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport-dn')
-rwxr-xr-xrhimport-dn7
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";
}