use Cwd qw/abs_path/;
use Data::Dumper;
-my $debug = $ENV{DEBUG} || 1;
+my $debug = $ENV{DEBUG} || 0;
# set this to 1 to prompt for DVD removal for each selected item.
my $prompt_for_delete = shift @ARGV;
$|=1;
my $backups_sql = q{
SELECT
backup_id,
+ backup_part_id,
host,
num,
date,
size
FROM archive_backup_parts
WHERE archive_id = ?
- ORDER BY
- hosts.name, shares.name, backups.num
+ ORDER BY backup_part_id
};
my $sth = $dbh->prepare("SELECT dvd_nr, total_size, note, username, date, id FROM archive WHERE dvd_nr=?");
items,
filename
FROM archive_backup_parts
- WHERE archive.dvd_nr = ?
+ WHERE dvd_nr = ?
ORDER BY backup_id, part_nr
});
$sth->finish;
$sth_archive_backup_parts->finish;
$sth_archive_burned->finish;
-$sth_archive_backup_check->finish;
$sth_archive_burned->finish;
$dbh->disconnect;