diff options
Diffstat (limited to 'rhimport')
-rwxr-xr-x | rhimport | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -337,6 +337,14 @@ if(!$FILE || !$DROPBOX) { ########################################### ## command line mode +my $cl_error_cb = sub { + my ($text) = @_; + + print "\n$text .. cancel operation [Y/n]? "; + my $x = scalar(<STDIN>); + $x =~ /^n/i; +}; + (-e "$FILE") or die "file '$FILE' not found"; if($POOL) { print "will import from playlist $FILE, with user $user\n\n"; @@ -365,9 +373,9 @@ if($POOL) { rhimport::clear_carts($dbh, $group, $to_cart); } - $ret = rhimport::import_playlist($FILE, $DROPBOX); + $ret = rhimport::import_playlist($FILE, $DROPBOX, 0, $cl_error_cb); } else { - $ret = rhimport::import_single($FILE, $DROPBOX); + $ret = rhimport::import_single($FILE, $DROPBOX, 0); } $dbh->disconnect(); |