summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2011-07-21 04:37:38 (GMT)
committerChristian Pointner <equinox@helsinki.at>2011-07-21 04:37:38 (GMT)
commit83d91c24488dd19789314c235134d6361398e321 (patch)
tree48d690b9ea1861db350b9c7cde8968f781adec45
parentd379141b316cf4e93f4ed65927e552acb8b5eaf9 (diff)
addnote function should be working
-rwxr-xr-xrhimport-dn5
1 files changed, 2 insertions, 3 deletions
diff --git a/rhimport-dn b/rhimport-dn
index fcfa7e9..0b95049 100755
--- a/rhimport-dn
+++ b/rhimport-dn
@@ -92,7 +92,7 @@ for my $entry ($feed->entries) {
my $ff = File::Fetch->new(uri => $entry->enclosure->url);
print $1 . ": downloading " . $entry->enclosure->url . " (" . $entry->enclosure->length . " Bytes) .. ";
- $file = "test"; #$ff->fetch( to => '/tmp' ) or die $ff->error;
+ $file = $ff->fetch( to => '/tmp' ) or die $ff->error;
print "ok\n";
print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n";
@@ -103,6 +103,7 @@ for my $entry ($feed->entries) {
local $SIG{CHLD} = 'DEFAULT';
my $pid = open3($writer, $reader, $error, @PV_SCRIPT);
print $writer $sum_title . "\n" . $sum_text;
+ close $writer;
waitpid $pid, 0;
my $out = join('', <$reader>);
my $errstr = "";
@@ -123,8 +124,6 @@ for my $entry ($feed->entries) {
(-e "$file") or die "file '$file' not found - donwload error?\n";
print "will import $file to dropbox $dropbox (cart=$to_cart)\n\n";
-exit 0
-
my $error_cb = sub {
my ($text) = @_;