| 197 |
|
|
| 198 |
print ", $items items"; |
print ", $items items"; |
| 199 |
|
|
| 200 |
|
if ($tar_size == 0 && $items == 0) { |
| 201 |
|
print ", EMPTY tar\n"; |
| 202 |
|
|
| 203 |
|
my $backup_id = get_backup_id($host, $share, $num); |
| 204 |
|
|
| 205 |
|
my $sth_inc_deleted = $dbh->prepare(qq{ |
| 206 |
|
update backups set |
| 207 |
|
inc_deleted = true |
| 208 |
|
where id = ? |
| 209 |
|
}); |
| 210 |
|
$sth_inc_deleted->execute($backup_id); |
| 211 |
|
|
| 212 |
|
$dbh->commit; |
| 213 |
|
|
| 214 |
|
return 1; |
| 215 |
|
} |
| 216 |
|
|
| 217 |
|
# fix tar_size for tars without any files |
| 218 |
|
$tar_size ||= 512 * $items; |
| 219 |
|
|
| 220 |
|
|
| 221 |
# |
# |
| 222 |
# check if md5 exists, and if not, create one |
# check if md5 exists, and if not, create one |
| 223 |
# |
# |
Parent Directory
| 
Revision Log
| 
Patch