diff options
Diffstat (limited to 'rhimport.pm')
| -rw-r--r-- | rhimport.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/rhimport.pm b/rhimport.pm index df67f74..948d675 100644 --- a/rhimport.pm +++ b/rhimport.pm @@ -117,7 +117,8 @@ sub clear_carts ($low_cart, $high_cart) = get_cart_range($dbh, $group); } - print "clearing Carts $low_cart - $high_cart\n"; + my $log = "clearing Carts $low_cart - $high_cart\n"; + print $log; my $cart = $low_cart; while($cart <= $high_cart) { $progress_cb->($cart - $low_cart, $high_cart + 1 - $low_cart, "deleting $cart") if($progress_cb); @@ -127,6 +128,7 @@ sub clear_carts $sth->execute(); while(my $cut_name = $sth->fetchrow_array()) { delete_file("/var/snd/$cut_name.wav"); + $log .= " - deleting file /var/snd/$cut_name.wav"; } $sth->finish(); @@ -142,6 +144,8 @@ sub clear_carts $cart++; } + + return $log; } sub import_playlist |