summaryrefslogtreecommitdiff
path: root/rhimport-dn
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2011-07-24 13:28:06 (GMT)
committerChristian Pointner <equinox@helsinki.at>2011-07-24 13:28:06 (GMT)
commit02c5a1891db0bed999866f7cff54179930012b38 (patch)
tree7fa39304b9debbff10ad8e9d61fb6d0068ba8da0 /rhimport-dn
parent2f9b57eca16e752235ba78088ae31f0149518b04 (diff)
error callback without interaction
wrong print "\n" fixed deleting carts if now import for today git-svn-id: https://svn.helsinki.at/rhimport/trunk@90 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport-dn')
-rwxr-xr-xrhimport-dn16
1 files changed, 10 insertions, 6 deletions
diff --git a/rhimport-dn b/rhimport-dn
index ca7d4b2..dce71bc 100755
--- a/rhimport-dn
+++ b/rhimport-dn
@@ -126,20 +126,24 @@ for my $entry ($feed->entries) {
print "\nPV: note added successfully";
print join('', <$reader>) . "\n";
}
+ print "\n";
}
- print "\n";
}
}
-($file ne "") or die "No Entry found for today!\n";
-(-e "$file") or die "file '$file' not found - donwload error?\n";
+if($file eq "" || !(-e "$file")) {
+ print "No Entry found for today or download error - just clearing cart!\n";
+ rhimport::check_key_file() or die "Import Key not found, use rhimport-create-id to create one\n";
+ rhimport::clear_carts($dbh, $group, $to_cart);
+ exit 1;
+}
+
print "will import $file to dropbox $dropbox (cart=$to_cart)\n\n";
my $error_cb = sub {
my ($text) = @_;
- print "\n$text .. cancel operation [Y/n]? ";
- my $x = scalar(<STDIN>);
- $x =~ /^n/i;
+ print "\n$text";
+ return 0;
};
rhimport::check_key_file() or die "Import Key not found, use rhimport-create-id to create one\n";