summaryrefslogtreecommitdiff
path: root/rhimport-dn
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-06-13 17:27:28 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-06-13 17:27:28 (GMT)
commitbd47b034d73177ca3dd7088fcb34bb78721c33b8 (patch)
tree692c1e27681e5578c99f934208d003dca1347fa5 /rhimport-dn
parent06e03ea970f2111022c1982d5ef3d50e30db10c0 (diff)
added pre-import converter for EU
Diffstat (limited to 'rhimport-dn')
-rwxr-xr-xrhimport-dn8
1 files changed, 4 insertions, 4 deletions
diff --git a/rhimport-dn b/rhimport-dn
index 9a1020a..41c980b 100755
--- a/rhimport-dn
+++ b/rhimport-dn
@@ -146,12 +146,13 @@ for my $entry ($files_feed->entries) {
}
}
if($file eq "" || !(-e "$file")) {
- print "No Entry found from day in qeustion or download error - ";
+ print "No Entry found from day in question or download error - ";
if($#ARGV >= 0 && $ARGV[0] eq 'last') {
print "giving up, manual import necessary!!!\n";
} else {
print "will retry later\n";
}
+ $dbh->disconnect();
exit 1;
}
@@ -201,7 +202,7 @@ if( $! != 0) {
print "ok\n";
unlink $infile;
-print "will import $file to dropbox $dropbox (cart=$to_cart)\n\n";
+print "will import $file to dropbox $dropbox (cart=$to_cart)\n";
my $error_cb = sub {
my ($text) = @_;
@@ -213,8 +214,7 @@ my $error_cb = sub {
rhimport::check_key_file() or die "Import Key not found, use rhimport-create-id to create one\n";
my $ret;
-my $log;
-$log = rhimport::clear_carts($dbh, $group, $to_cart);
+my $log = rhimport::clear_carts($dbh, $group, $to_cart);
my $import_log;
($ret, $import_log) = rhimport::import_single($file, $dropbox, $user, 0, $error_cb);
$log .= $import_log;