diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-06-13 17:27:28 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-06-13 17:27:28 (GMT) |
commit | bd47b034d73177ca3dd7088fcb34bb78721c33b8 (patch) | |
tree | 692c1e27681e5578c99f934208d003dca1347fa5 /rhimport-dn | |
parent | 06e03ea970f2111022c1982d5ef3d50e30db10c0 (diff) |
added pre-import converter for EU
Diffstat (limited to 'rhimport-dn')
-rwxr-xr-x | rhimport-dn | 8 |
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; |