346 |
my ($parts_nr, $check_nr) = ($sth_archive_backup_parts->rows, $sth_archive_backup_check->fetchrow_array); |
my ($parts_nr, $check_nr) = ($sth_archive_backup_parts->rows, $sth_archive_backup_check->fetchrow_array); |
347 |
|
|
348 |
if ($parts_nr != $check_nr) { |
if ($parts_nr != $check_nr) { |
349 |
warn "ERROR: DVD #$dvd_nr is still not in consistent state. Some backup parts are ", |
warn "ERROR: DVD #$dvd_nr is still not inconsistent state. Some backup parts are ", |
350 |
($parts_nr < $check_nr) ? "missing ($parts_nr < $check_nr)" : "extra ($parts_nr > $check_nr)", |
($parts_nr < $check_nr) ? "missing ($parts_nr < $check_nr)" : "extra ($parts_nr > $check_nr)", |
351 |
" you should re-create this DVD after BackupPC_incPartsUpdate finish\n"; |
" you should re-create this DVD after BackupPC_incPartsUpdate finish\n"; |
352 |
next if delete_dvd( $dvd_nr ); |
delete_dvd( $dvd_nr ); |
353 |
|
next; |
354 |
} |
} |
355 |
|
|
356 |
if ($sth_archive_backup_parts->rows == 0) { |
if ($sth_archive_backup_parts->rows == 0) { |
522 |
$sth->finish; |
$sth->finish; |
523 |
$sth_archive_backup_parts->finish; |
$sth_archive_backup_parts->finish; |
524 |
$sth_archive_burned->finish; |
$sth_archive_burned->finish; |
525 |
|
$sth_archive_backup_check->finish; |
526 |
|
$sth_archive_burned->finish; |
527 |
|
|
528 |
$dbh->disconnect; |
$dbh->disconnect; |
529 |
|
|